[perl5.git] / lib / base / t / isa.t

#!/usr/bin/perl -w

# Regression test some quirky behavior of base.pm.

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

use strict;
use Test::More tests => 1;

{
    package Parent;

    sub foo { 42 }

    package Middle;

    use base qw(Parent);

    package Child;

    base->import(qw(Middle Parent));
}

is_deeply [@Child::ISA], [qw(Middle)],
          'base.pm will not add to @ISA if you already are-a';
Commit	Line	Data
00ed247a MS	1	#!/usr/bin/perl -w
	2
	3	# Regression test some quirky behavior of base.pm.
	4
	5	BEGIN {
	6	if( $ENV{PERL_CORE} ) {
	7	chdir 't' if -d 't';
	8	@INC = qw(../lib);
	9	}
	10	}
	11
	12	use strict;
	13	use Test::More tests => 1;
	14
	15	{
	16	package Parent;
	17
	18	sub foo { 42 }
	19
	20	package Middle;
	21
	22	use base qw(Parent);
	23
	24	package Child;
	25
	26	base->import(qw(Middle Parent));
	27	}
	28
	29	is_deeply [@Child::ISA], [qw(Middle)],
	30	'base.pm will not add to @ISA if you already are-a';