Ticket #1218: dynpmc_foo2.patch

File dynpmc_foo2.patch, 1.2 KB (added by bubaflub, 5 years ago)

patch for t/dynpmc/foo2.t

  • t/dynpmc/foo2.t

    diff --git t/dynpmc/foo2.t t/dynpmc/foo2.t
    index 4a0dadf..8bd23a4 100644
     
    1 #! perl 
    2 # Copyright (C) 2005, Parrot Foundation. 
     1#! parrot 
     2# Copyright (C) 2001-2009, Parrot Foundation. 
    33# $Id$ 
    44 
    5 use strict; 
    6 use warnings; 
    7 use lib qw( . lib ../lib ../../lib ); 
    8 use Test::More; 
    9 use Parrot::Test tests => 1; 
    10 use Parrot::Config; 
    11  
    125=head1 NAME 
    136 
    14 t/dynpmc/foo.t - Test for a very simple dynamic PMC 
     7t/dynpmc/foo2.t - Test for a very simple dynamic PMC 
    158 
    169=head1 SYNOPSIS 
    1710 
    18         % prove t/dynpmc/foo.t 
     11        % prove t/dynpmc/foo2.t 
    1912 
    2013=head1 DESCRIPTION 
    2114 
     
    2316 
    2417=cut 
    2518 
    26 pir_output_is( << 'CODE', << 'OUTPUT', "dynpmcs can use SUPER to call parent dynpmc VTABLE functions" ); 
    27  
    2819.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  
    2927    $P0 = loadlib 'foo_group' 
    3028    $P1 = new "Foo2" 
    3129 
    3230    $I1 = $P1 
    33     say $I1 
     31    is($I1, 43, 'dynpmcs can use SUPER to call parent dynpmc VTABLE functions') 
    3432.end 
    35 CODE 
    36 43 
    37 OUTPUT 
    3833 
    3934# Local Variables: 
    4035#   mode: cperl 
    4136#   cperl-indent-level: 4 
    4237#   fill-column: 100 
    4338# End: 
    44 # vim: expandtab shiftwidth=4: 
     39# vim: expandtab shiftwidth=4: filetype=pir: