bd5ee7fc3c653041703b68746229453d7d5ad1f8
[perl.git] / ext / base / t / isa.t
1 #!/usr/bin/perl -w
2
3 # Regression test some quirky behavior of base.pm.
4
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)],
23           'base.pm will not add to @ISA if you already are-a';