From: Dave Rolsky <autarch@urth.org>
Date: Fri, 29 Aug 2008 03:19:40 +0000 (+0000)
Subject: redo these tests using is_deeply
X-Git-Tag: 0.55_02~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0fe33940b2e2ba4cf2b88a31bbcc2a4e58a7d024;p=gitmo%2FMoose.git

redo these tests using is_deeply
---

diff --git a/t/030_roles/032_roles_alias_methods.t b/t/030_roles/032_roles_alias_methods.t
index 8e11e97..3725261 100644
--- a/t/030_roles/032_roles_alias_methods.t
+++ b/t/030_roles/032_roles_alias_methods.t
@@ -12,11 +12,14 @@ use lib 't/lib', 'lib';
 
 use Role::Child;
 
-_test('Role::Parent', 'meth1,meth2');
-_test('Role::Child', 'aliased_meth1,meth1,meth2');
-
-sub _test {
-    my ($role, $methods) = @_;
-    is join(',', sort $role->meta->get_method_list), $methods;
-}
 
+is_deeply(
+    [ sort Role::Parent->meta->get_method_list ],
+    [qw( meth1 meth2 )],
+    'method list for Role::Parent'
+);
+is_deeply(
+    [ sort Role::Child->meta->get_method_list ],
+    [qw( aliased_meth1 meth1 meth2 )],
+    'method list for Role::Child'
+);