diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | t/mro/package_aliases.t | 33 |
2 files changed, 34 insertions, 0 deletions
@@ -3919,6 +3919,7 @@ t/mro/next_NEXT.t mro tests t/mro/next_skip.t mro tests t/mro/overload_c3.t mro tests t/mro/overload_dfs.t mro tests +t/mro/package_aliases.t mro tests t/mro/pkg_gen.t mro tests t/mro/recursion_c3.t mro tests t/mro/recursion_dfs.t mro tests diff --git a/t/mro/package_aliases.t b/t/mro/package_aliases.t new file mode 100644 index 0000000000..b8d03160ae --- /dev/null +++ b/t/mro/package_aliases.t @@ -0,0 +1,33 @@ +#!./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'); |