t/dynpmc/foo2.t

   1 #!./parrot
   2 # Copyright (C) 2009-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/dynpmc/foo2.t - Test for a very simple dynamic PMC
   8
   9 =head1 SYNOPSIS
  10
  11         % prove t/dynpmc/foo2.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the Foo PMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21     plan(1)
  22
  23     test_dynpmcs_can_use_super()
  24 .end
  25
  26 .sub test_dynpmcs_can_use_super
  27     $P0 = loadlib 'foo_group'
  28     $P1 = new "Foo2"
  29
  30     $I1 = $P1
  31     is($I1, 43, 'dynpmcs can use SUPER to call parent dynpmc VTABLE functions')
  32 .end
  33
  34 # Local Variables:
  35 #   mode: pir
  36 #   fill-column: 100
  37 # End:
  38 # vim: expandtab shiftwidth=4 ft=pir: