Resolve a failing test
gfx [Tue, 27 Oct 2009 04:09:21 +0000 (13:09 +0900)]
t/040_type_constraints/004_util_find_type_constraint.t [moved from t/040_type_constraints/failing/004_util_find_type_constraint.t with 92% similarity]

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More tests => 17;
 use Test::Exception;
 
 BEGIN {
@@ -27,7 +27,6 @@ foreach my $type_name (qw(
                 CodeRef
                 RegexpRef
                 Object
-                    Role
     )) {
     is(find_type_constraint($type_name)->name,
        $type_name,