[p5sagit/p5-mst-13.2.git] / lib / NEXT / t / actual.t

BEGIN {
    if ($ENV{PERL_CORE}) {
        chdir('t') if -d 't';
        @INC = qw(../lib);
    }
}

BEGIN { print "1..9\n"; }
use NEXT;

my $count=1;

package A;
@ISA = qw/B C D/;

sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}

package B;
@ISA = qw/C D/;
sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}

package C;
@ISA = qw/D/;
sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}

package D;

sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}

package main;

my $foo = {};

bless($foo,"A");

eval { $foo->test } and print "not ";
print "ok 9\n";
Commit	Line	Data
13021a80	1	BEGIN {
	2	if ($ENV{PERL_CORE}) {
	3	chdir('t') if -d 't';
	4	@INC = qw(../lib);
	5	}
	6	}
	7
	8	BEGIN { print "1..9\n"; }
	9	use NEXT;
	10
	11	my $count=1;
	12
	13	package A;
	14	@ISA = qw/B C D/;
	15
	16	sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}
	17
	18	package B;
	19	@ISA = qw/C D/;
	20	sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}
	21
	22	package C;
	23	@ISA = qw/D/;
	24	sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}
	25
	26	package D;
	27
	28	sub test { print "ok ", $count++, "\n"; $_[0]->NEXT::ACTUAL::test;}
	29
	30	package main;
	31
	32	my $foo = {};
	33
	34	bless($foo,"A");
	35
	36	eval { $foo->test } and print "not ";
	37	print "ok 9\n";