failing test for inheriting from non Mouse class

diff --git a/t/301-bugs-non-mouse.t b/t/301-bugs-non-mouse.t
new file mode 100644 (file)
index 0000000..bfa53a4
--- /dev/null
+++ b/t/301-bugs-non-mouse.t
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+use Test::Exception;
+
+{
+    package Foo;
+    use Mouse;
+
+    has foo => ( is => "rw" );
+
+    package Bar;
+    sub oink { "oink" }
+
+    package Gorch;
+    use Mouse;
+
+    extends qw(Bar Foo);
+
+    ::lives_ok{
+        has '+foo' => ( default => "the default" );
+    } 'inherit attr when @ISA contains a non Mouse class before a Mouse class with the base attr';
+}
+
+{
+    my $g = Gorch->new;
+
+    is( $g->foo, "the default", "inherited attribute" );
+}
+
+