MRO tests for isa() and package aliases

Message-ID: <491F3008.4060205@gmx.de>

p4raw-id: //depot/perl@34839

1 files changed, 33 insertions, 0 deletions

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');