[p5sagit/p5-mst-13.2.git] / t / mro / package_aliases.t

#!./perl

BEGIN {
    unless (-d 'blib') {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
}

use strict;
use warnings;
require q(./test.pl); plan(tests => 4);

{
    package New;
    use strict;
    use warnings;

    package Old;
    use strict;
    use warnings;

    {
      no strict 'refs';
      *{'Old::'} = *{'New::'};
    }
}

ok (Old->isa (New::), 'Old inherits from New');
ok (New->isa (Old::), 'New inherits from Old');

isa_ok (bless ({}, Old::), New::, 'Old object');
isa_ok (bless ({}, New::), Old::, 'New object');
Commit	Line	Data
0643ac23	1	#!./perl
	2
	3	BEGIN {
	4	unless (-d 'blib') {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	}
	8	}
	9
	10	use strict;
	11	use warnings;
	12	require 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
	29	ok (Old->isa (New::), 'Old inherits from New');
	30	ok (New->isa (Old::), 'New inherits from Old');
	31
	32	isa_ok (bless ({}, Old::), New::, 'Old object');
	33	isa_ok (bless ({}, New::), Old::, 'New object');