[p5sagit/p5-mst-13.2.git] / dist / base / t / isa.t

#!/usr/bin/perl -w

# Regression test some quirky behavior of base.pm.

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	1	#!/usr/bin/perl -w
	2
	3	# Regression test some quirky behavior of base.pm.
	4
00ed247a	5	use strict;
	6	use Test::More tests => 1;
	7
	8	{
	9	package Parent;
	10
	11	sub foo { 42 }
	12
	13	package Middle;
	14
	15	use base qw(Parent);
	16
	17	package Child;
	18
	19	base->import(qw(Middle Parent));
	20	}
	21
	22	is_deeply [@Child::ISA], [qw(Middle)],
e78bb0d8	23	'base.pm will not add to @ISA if you already are-a';