12 require q(./test.pl); plan(tests => 4);
25 *{'Old::'} = *{'New::'};
29 ok (Old->isa (New::), 'Old inherits from New');
30 ok (New->isa (Old::), 'New inherits from Old');
32 isa_ok (bless ({}, Old::), New::, 'Old object');
33 isa_ok (bless ({}, New::), Old::, 'New object');