Better linear-isa tests (using the meta API)

[gitmo/Mouse.git] / t / 800_shikabased / 011-util-linear-isa.t

diff --git a/t/800_shikabased/011-util-linear-isa.t b/t/800_shikabased/011-util-linear-isa.t
index 2ce23dc..c556b79 100644 (file)
--- a/t/800_shikabased/011-util-linear-isa.t
+++ b/t/800_shikabased/011-util-linear-isa.t
@@ -1,17 +1,18 @@
 use strict;
 use warnings;
-use Mouse::Util 'get_linear_isa';
 use Test::More tests => 2;
 
 {
     package Parent;
+    use Mouse;
 }
 
 {
     package Child;
-    unshift @Child::ISA, 'Parent';
+    use Mouse;
+    extends 'Parent';
 }
 
-is_deeply join(', ', @{get_linear_isa('Parent')}), 'Parent';
-is_deeply join(', ', @{get_linear_isa('Child')}),  'Child, Parent';
+is_deeply join(', ', Parent->meta->linearized_isa), 'Parent, Mouse::Object';
+is_deeply join(', ', Child->meta->linearized_isa),  'Child, Parent, Mouse::Object';