diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-05-12 12:33:44 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-05-12 12:38:50 -0500 |
commit | b746972e03adae326b05d48d28107e18b0567fe9 (patch) | |
tree | 34821112f8e0e769393b7d0d5c53a4607784db17 /t/005-isa.t | |
parent | a2a2164aadab29b7424ea8f581413cf6a3b185b1 (diff) | |
download | package-stash-b746972e03adae326b05d48d28107e18b0567fe9.tar.gz package-stash-b746972e03adae326b05d48d28107e18b0567fe9.zip |
what is this i don't even
Diffstat (limited to 't/005-isa.t')
-rw-r--r-- | t/005-isa.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/005-isa.t b/t/005-isa.t new file mode 100644 index 0000000..d21c7a7 --- /dev/null +++ b/t/005-isa.t @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Stash::Manip; + +{ + package Foo; +} + +{ + package Bar; +} + +my $stash = Stash::Manip->new('Foo'); +my @ISA = ('Bar'); +@{$stash->get_package_symbol('@ISA')} = @ISA; +isa_ok('Foo', 'Bar'); + +done_testing; |