t/05-isa.t

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