From: Fuji, Goro <gfuji@cpan.org>
Date: Mon, 27 Sep 2010 12:56:05 +0000 (+0900)
Subject: Update tests
X-Git-Tag: 0.76~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12497085db697a49a8b8794b003f5cff91c1f171;p=gitmo%2FMouse.git

Update tests
---

diff --git a/Moose-t-failing/040_type_constraints/004_util_find_type_constraint.t b/Moose-t-failing/040_type_constraints/004_util_find_type_constraint.t
deleted file mode 100644
index 7caf228..0000000
--- a/Moose-t-failing/040_type_constraints/004_util_find_type_constraint.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-
-use strict;
-use warnings;
-
-use Test::More;
-$TODO = q{Mouse is not yet completed};
-use Test::Exception;
-
-BEGIN {
-    use_ok('Mouse::Util::TypeConstraints');
-}
-
-foreach my $type_name (qw(
-    Any
-    Item
-        Bool
-        Undef
-        Defined
-            Value
-                Num
-                  Int
-                Str
-            Ref
-                ScalarRef
-                ArrayRef
-                HashRef
-                CodeRef
-                RegexpRef
-                Object
-                    Role
-    )) {
-    is(find_type_constraint($type_name)->name,
-       $type_name,
-       '... got the right name for ' . $type_name);
-}
-
-# TODO:
-# add tests for is_subtype_of which confirm the hierarchy
-
-done_testing;
diff --git a/t/040_type_constraints/004_util_find_type_constraint.t b/t/040_type_constraints/004_util_find_type_constraint.t
index 1a58e8c..5c33799 100644
--- a/t/040_type_constraints/004_util_find_type_constraint.t
+++ b/t/040_type_constraints/004_util_find_type_constraint.t
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More tests => 17;
+use Test::More;
 use Test::Exception;
 
 BEGIN {
@@ -35,3 +38,5 @@ foreach my $type_name (qw(
 
 # TODO:
 # add tests for is_subtype_of which confirm the hierarchy
+
+done_testing;