don't reject win32 filenames (Yappo)

[gitmo/Moose.git] / t / 030_roles / 002_role.t

diff --git a/t/030_roles/002_role.t b/t/030_roles/002_role.t
index 4026a3b..b03027d 100644 (file)
--- a/t/030_roles/002_role.t
+++ b/t/030_roles/002_role.t
@@ -3,13 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 35;
+use Test::More tests => 36;
 use Test::Exception;
 
-BEGIN {  
-    use_ok('Moose::Role');               
-}
-
 =pod
 
 NOTE:
@@ -72,7 +68,10 @@ is_deeply(
     [ sort $foo_role->get_method_list() ],
     [ 'boo', 'foo' ],
     '... got the right method list');
-    
+
+ok(FooRole->can('foo'), "locally defined methods are still there");
+ok(!FooRole->can('has'), "sugar was unimported");
+
 # attributes ...
 
 is_deeply(