t/pmc/lexinfo.t

   1 #! parrot
   2 # Copyright (C) 2006-2007, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/lexinfo.t - test LexInfo PMC
   8
   9
  10 =head1 SYNOPSIS
  11
  12     % prove t/pmc/lexinfo.t
  13
  14 =head1 DESCRIPTION
  15
  16 Tests the LexInfo PMC.
  17
  18 =cut
  19
  20 .sub main :main
  21     .include 'include/test_more.pir'
  22     plan(1)
  23
  24     new_test()
  25 .end
  26
  27 .sub new_test
  28     push_eh eh
  29     $P0 = new 'LexInfo'
  30     pop_eh
  31     ok(0, "shouldn't be able to create a LexInfo without an initializer")
  32     goto end
  33 eh:
  34     ok(1, "can't create a LexInfo without an initializer")
  35 end:
  36 .end
  37
  38 # Local Variables:
  39 #   mode: pir
  40 #   cperl-indent-level: 4
  41 #   fill-column: 100
  42 # End:
  43 # vim: expandtab shiftwidth=4 ft=pir: