lib/base/t/isa.t

   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';