[gitmo/Package-Stash.git] / t / 05-isa.t

#!/usr/bin/env perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;

use Package::Stash;

{
    package Foo;
}

{
    package Bar;
}

my $stash = Package::Stash->new('Foo');
my @ISA = ('Bar');
@{$stash->get_or_add_symbol('@ISA')} = @ISA;
isa_ok('Foo', 'Bar');

done_testing;
Commit	Line	Data
b746972e	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
2905fb35	4	use lib 't/lib';
b746972e	5	use Test::More;
b746972e	6
e94260da	7	use Package::Stash;
b746972e	8
	9	{
	10	package Foo;
	11	}
	12
	13	{
	14	package Bar;
	15	}
	16
e94260da	17	my $stash = Package::Stash->new('Foo');
b746972e	18	my @ISA = ('Bar');
2905fb35	19	@{$stash->get_or_add_symbol('@ISA')} = @ISA;
b746972e	20	isa_ok('Foo', 'Bar');
	21
	22	done_testing;