From: Shawn M Moore <sartak@gmail.com>
Date: Mon, 22 Dec 2008 02:45:39 +0000 (+0000)
Subject: Better linear-isa tests (using the meta API)
X-Git-Tag: 0.19~95
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=003c5297e13e0427a8792fda372deebe88ecde07;p=gitmo%2FMouse.git

Better linear-isa tests (using the meta API)
---

diff --git a/t/800_shikabased/011-util-linear-isa.t b/t/800_shikabased/011-util-linear-isa.t
index 2ce23dc..c556b79 100644
--- 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';