oops
Tokuhiro Matsuno [Sat, 6 Dec 2008 07:40:25 +0000 (07:40 +0000)]
t/800_shikabased/011-util-linear-isa.t

index 2d2663d..2ce23dc 100644 (file)
@@ -9,10 +9,9 @@ use Test::More tests => 2;
 
 {
     package Child;
-    use Mouse;
-    extends 'Parent';
+    unshift @Child::ISA, 'Parent';
 }
 
-is_deeply get_linear_isa('Parent'), [ 'Parent' ];
-is_deeply get_linear_isa('Child'),  [ 'Child', 'Parent' ];
+is_deeply join(', ', @{get_linear_isa('Parent')}), 'Parent';
+is_deeply join(', ', @{get_linear_isa('Child')}),  'Child, Parent';