xref: /openbsd/gnu/usr.bin/perl/t/mro/package_aliases.t (revision 3d8817e4) 
1#!./perl
2
3BEGIN {
4    unless (-d 'blib') {
5        chdir 't' if -d 't';
6        @INC = '../lib';
7    }
8}
9
10use strict;
11use warnings;
12require q(./test.pl); plan(tests => 4);
13
14{
15    package New;
16    use strict;
17    use warnings;
18
19    package Old;
20    use strict;
21    use warnings;
22
23    {
24      no strict 'refs';
25      *{'Old::'} = *{'New::'};
26    }
27}
28
29ok (Old->isa (New::), 'Old inherits from New');
30ok (New->isa (Old::), 'New inherits from Old');
31
32isa_ok (bless ({}, Old::), New::, 'Old object');
33isa_ok (bless ({}, New::), Old::, 'New object');
34