t/pmc/lexpad.t

   1 #!perl
   2 # Copyright (C) 2006-2007, The Perl Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 1;
  10
  11 =head1 NAME
  12
  13 t/pmc/lexpad.t - test LexPad PMC
  14
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/pmc/lexpad.t
  19
  20 =head1 DESCRIPTION
  21
  22 Tests the LexPad PMC.
  23
  24 =cut
  25
  26 pir_error_output_like( <<'CODE', <<'OUT', 'new' );
  27 .sub 'test' :main
  28     new P0, 'LexPad'
  29     print "ok 1\n"
  30 .end
  31 CODE
  32 /Cannot create a LexPad PMC without an initializer
  33 current instr\.:.*/
  34 OUT
  35
  36 # Local Variables:
  37 #   mode: cperl
  38 #   cperl-indent-level: 4
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4: