Regenerate test files

[gitmo/Mouse.git] / t-failing / 040_type_constraints / 005_util_type_coercion.t

diff --git a/t/040_type_constraints/005_util_type_coercion.t b/t-failing/040_type_constraints/005_util_type_coercion.t
similarity index 90%
rename from t/040_type_constraints/005_util_type_coercion.t
rename to t-failing/040_type_constraints/005_util_type_coercion.t
index b191095..d540102 100644 (file)
--- a/t/040_type_constraints/005_util_type_coercion.t
+++ b/t-failing/040_type_constraints/005_util_type_coercion.t
@@ -1,16 +1,17 @@
 #!/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 => 8; # tests => 26;
+use Test::More;
+$TODO = q{Mouse is not yet completed};
 use Test::Exception;
 
-use lib 't/lib';
-use MooseCompat;
-
 BEGIN {
-       use_ok('Mouse::Util::TypeConstraints');
+    use_ok('Mouse::Util::TypeConstraints');
 }
 
 {
@@ -51,12 +52,11 @@ lives_ok {
             => via { HTTPHeader->new(hash => $_[0]) };
 } 'coercion of anonymous subtype succeeds';
 
-=pod
-
 foreach my $coercion (
     find_type_constraint('Header')->coercion,
     $anon_type->coercion
     ) {
+
     isa_ok($coercion, 'Mouse::Meta::TypeCoercion');
 
     {
@@ -93,8 +93,6 @@ foreach my $coercion (
     }
 }
 
-=cut
-
 subtype 'StrWithTrailingX'
     => as 'Str'
     => where { /X$/ };
@@ -106,3 +104,5 @@ coerce 'StrWithTrailingX'
 my $tc = find_type_constraint('StrWithTrailingX');
 is($tc->coerce("foo"), "fooX", "coerce when needed");
 is($tc->coerce("fooX"), "fooX", "do not coerce when unneeded");
+
+done_testing;