X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F811-util-linear-isa.t;fp=t%2F001_mouse%2F811-util-linear-isa.t;h=c556b794e7c70134d39c8b6c9681969c22558a6b;hb=849b02a951189021f7c7253121e1974a26e3162b;hp=0000000000000000000000000000000000000000;hpb=034587d897c53d4df84085a9229334bd2d51f1c6;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/811-util-linear-isa.t b/t/001_mouse/811-util-linear-isa.t
new file mode 100644
index 0000000..c556b79
--- /dev/null
+++ b/t/001_mouse/811-util-linear-isa.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+{
+    package Parent;
+    use Mouse;
+}
+
+{
+    package Child;
+    use Mouse;
+    extends 'Parent';
+}
+
+is_deeply join(', ', Parent->meta->linearized_isa), 'Parent, Mouse::Object';
+is_deeply join(', ', Child->meta->linearized_isa),  'Child, Parent, Mouse::Object';
+