Remove numbers from our tests

[gitmo/Moose.git] / t / compat / moose_respects_base.t

diff --git a/t/compat/moose_respects_base.t b/t/compat/moose_respects_base.t
new file mode 100644 (file)
index 0000000..df23b74
--- /dev/null
+++ b/t/compat/moose_respects_base.t
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+
+=pod
+
+This test demonstrates that Moose will respect
+a previously set @ISA using use base, and not
+try to add Moose::Object to it.
+
+However, this is extremely order sensitive as
+this test also demonstrates.
+
+=cut
+
+{
+    package Foo;
+    use strict;
+    use warnings;
+
+    sub foo { 'Foo::foo' }
+
+    package Bar;
+    use base 'Foo';
+    use Moose;
+
+    sub new { (shift)->meta->new_object(@_) }
+
+    package Baz;
+    use Moose;
+    use base 'Foo';
+}
+
+my $bar = Bar->new;
+isa_ok($bar, 'Bar');
+isa_ok($bar, 'Foo');
+ok(!$bar->isa('Moose::Object'), '... Bar is not Moose::Object subclass');
+
+my $baz = Baz->new;
+isa_ok($baz, 'Baz');
+isa_ok($baz, 'Foo');
+isa_ok($baz, 'Moose::Object');
+
+done_testing;