From: gfx <gfuji@cpan.org>
Date: Tue, 27 Oct 2009 04:09:21 +0000 (+0900)
Subject: Resolve a failing test
X-Git-Tag: 0.40_02~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=6650915646c1a88c97678467af2e5b6b9e9958e4

Resolve a failing test
---

diff --git a/t/040_type_constraints/failing/004_util_find_type_constraint.t b/t/040_type_constraints/004_util_find_type_constraint.t
similarity index 92%
rename from t/040_type_constraints/failing/004_util_find_type_constraint.t
rename to t/040_type_constraints/004_util_find_type_constraint.t
index f7dcf1a..1a58e8c 100644
--- a/t/040_type_constraints/failing/004_util_find_type_constraint.t
+++ b/t/040_type_constraints/004_util_find_type_constraint.t
@@ -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,