Import tc tests

[gitmo/Mouse.git] / t / 800_shikabased / 007-multi-roles.t

diff --git a/t/800_shikabased/007-multi-roles.t b/t/800_shikabased/007-multi-roles.t
index b781855..671e7d5 100644 (file)
--- a/t/800_shikabased/007-multi-roles.t
+++ b/t/800_shikabased/007-multi-roles.t
@@ -1,9 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
-
-plan skip_all => "Moose way 'with' function test" unless $ENV{MOUSE_DEVEL};
-plan tests => 2;
+use Test::More tests => 3;
 
 {
     package Requires;
@@ -19,26 +16,21 @@ plan tests => 2;
 }
 
 {
-    package Requires2;
-    use Mouse::Role;
-    requires 'bar';
-}
-
-{
     package Method2;
     use Mouse::Role;
 
-    sub foo { 'yep' }
+    sub bar { 'yep' }
 }
 
-
 {
     package MyApp;
     use Mouse;
-    with ('Requires2', 'Method2' => { alias => { foo => 'bar' } }, 'Requires', 'Method');
+    with ('Requires', 'Method');
+    with ('Method2' => { alias => { bar => 'baz' } });
 }
 
 my $m = MyApp->new;
 is $m->foo, 'ok';
 is $m->bar, 'yep';
+is $m->baz, 'yep';