t/dynpmc/subclass_with_pir_method.t

   1 #! perl
   2 # Copyright (C) 2001-2006, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8
   9 use Test::More;
  10 use Parrot::Test tests => 2;
  11
  12 =head1 NAME
  13
  14 t/dynpmc/subclass_with_pir_method.t - test adding pir methods to dynpmc's PMC
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/dynpmc/subclass_with_pir_method.t
  19
  20 =head1 DESCRIPTION
  21
  22 Tests the C<PerlString> PMC. Checks pir method execution in a dynpmc and a subclass of the pmc
  23
  24 =cut
  25
  26 # this works
  27 pir_output_is(
  28     <<'CODE', <<'OUTPUT', "subclass with pir method - .loadlib", todo => "PMCs don't obey HLL namespaces" );
  29 .loadlib  'perl_group'
  30 .sub main :main
  31   new $P0, 'PerlString'
  32   $P0.'perl_printhi'()
  33   get_class $P2, 'PerlString'
  34   subclass $P0, $P2, 'NewPerlString'
  35   $P0.'perl_printhi'()
  36   new $P1, 'NewPerlString'
  37   $P1.'perl_printhi'()
  38 .end
  39
  40 .HLL 'Perl'
  41 .loadlib 'perl_group'
  42 .namespace ['PerlString']
  43 .sub 'perl_printhi' :method
  44     print "HI from PerlString\n"
  45 .end
  46
  47 CODE
  48 HI from PerlString
  49 HI from PerlString
  50 HI from PerlString
  51 OUTPUT
  52
  53 pir_output_is(
  54     <<'CODE', <<'OUTPUT', "subclass with pir method - .HLL", todo => "PMCs don't obey HLL namespaces" );
  55 .HLL 'Perl'
  56 .loadlib 'perl_group'
  57 .sub main :main
  58   new $P0, 'PerlString'
  59   $P0.'perl_printhi'()
  60   get_class $P2, 'PerlString'
  61   subclass $P0, $P2, 'NewPerlString'
  62   $P0.'perl_printhi'()
  63   new $P1, 'NewPerlString'
  64   $P1.'perl_printhi'()
  65 .end
  66
  67 .namespace ['PerlString']
  68 .sub 'perl_printhi' :method
  69     print "HI from PerlString\n"
  70 .end
  71
  72 CODE
  73 HI from PerlString
  74 HI from PerlString
  75 HI from PerlString
  76 OUTPUT
  77
  78 # Local Variables:
  79 #   mode: cperl
  80 #   cperl-indent-level: 4
  81 #   fill-column: 100
  82 # End:
  83 # vim: expandtab shiftwidth=4: