standard on underscore in test names (bleah)

[gitmo/Moose.git] / t / 400_moose_util / 002_moose_util_does_role.t

diff --git a/t/400_moose_util/002_moose_util_does_role.t b/t/400_moose_util/002_moose_util_does_role.t
index d866b0d..26c1176 100644 (file)
--- a/t/400_moose_util/002_moose_util_does_role.t
+++ b/t/400_moose_util/002_moose_util_does_role.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More;
 
 BEGIN {
     use_ok('Moose::Util', ':all');
@@ -29,6 +29,20 @@ BEGIN {
   use Moose;
 }
 
+{
+  package Quux;
+
+  use metaclass;
+}
+
+{
+  package Foo::Foo;
+
+  use Moose::Role;
+
+  with 'Foo';
+}
+
 # Classes
 
 ok(does_role('Bar', 'Foo'), '... Bar does Foo');
@@ -50,3 +64,19 @@ ok(!does_role($baz, 'Foo'), '... $baz doesnt do Foo');
 ok(!does_role(undef,'Foo'), '... undef doesnt do Foo');
 
 ok(!does_role(1,'Foo'), '... 1 doesnt do Foo');
+
+# non Moose metaclass
+
+ok(!does_role('Quux', 'Foo'), '... Quux doesnt do Foo (does not die tho)');
+
+# TODO: make the below work, maybe?
+
+# Self
+
+#ok(does_role('Foo', 'Foo'), '... Foo does do Foo');
+
+# sub-Roles
+
+#ok(does_role('Foo::Foo', 'Foo'), '... Foo::Foo does do Foo');
+
+done_testing;