t/pmc/opcode.t

   1 #!./parrot
   2 # Copyright (C) 2001-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/opcode.t - Opcode PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/opcode.t
  12
  13 =cut
  14
  15 .include 'except_types.pasm'
  16
  17 .sub main :main
  18     .include 'test_more.pir'
  19     plan(1)
  20     cannot_create_directly()
  21 .end
  22
  23 .sub cannot_create_directly
  24     .local pmc eh, ex
  25     eh = new ['ExceptionHandler']
  26     eh.'handle_types'(.EXCEPTION_INVALID_OPERATION)
  27     set_label eh, cannot_create
  28     push_eh eh
  29     $P0 = new ['Opcode']
  30     ok(0, "shouldn't be able to create new opcode")
  31     goto create_end
  32   cannot_create:
  33     .get_results(ex)
  34     $S0 = ex['message']
  35     ok(1,  $S0)
  36   create_end:
  37 .end
  38
  39 # Local Variables:
  40 #   mode: pir
  41 #   fill-column: 100
  42 # End:
  43 # vim: expandtab shiftwidth=4 ft=pir: