From: Torsten Schoenfeld <kaffeetisch@gmx.de>
Date: Sat, 15 Nov 2008 21:24:40 +0000 (+0100)
Subject: MRO tests for isa() and package aliases
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0643ac23d9959ac64e372f8c84ce026bffd9d7bf;p=p5sagit%2Fp5-mst-13.2.git

MRO tests for isa() and package aliases
Message-ID: <491F3008.4060205@gmx.de>

p4raw-id: //depot/perl@34839
---

diff --git a/MANIFEST b/MANIFEST
index b0593d9..5ddeec6 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -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 0000000..b8d0316
--- /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');