X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t-failing%2F040_type_constraints%2F001_util_type_constraints.t;fp=t%2F040_type_constraints%2Ffailing%2F001_util_type_constraints.t;h=9c53dab0aa72528ce88e47003981aee6d10def87;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=a928ff561b36de25f8c00e594430915211b1d91a;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git diff --git a/t/040_type_constraints/failing/001_util_type_constraints.t b/t-failing/040_type_constraints/001_util_type_constraints.t similarity index 95% rename from t/040_type_constraints/failing/001_util_type_constraints.t rename to t-failing/040_type_constraints/001_util_type_constraints.t index a928ff5..9c53dab 100644 --- a/t/040_type_constraints/failing/001_util_type_constraints.t +++ b/t-failing/040_type_constraints/001_util_type_constraints.t @@ -1,15 +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 => 85; +use Test::More; +$TODO = q{Mouse is not yet completed}; use Test::Exception; use Scalar::Util (); -use lib 't/lib'; -use Test::Mouse; use Mouse::Util::TypeConstraints; @@ -106,7 +108,7 @@ ok(!$natural->has_message, '... it does not have a message'); ok(!defined($natural->validate(5)), '... validated successfully (no error)'); is($natural->validate(-5), - "Validation failed for 'Natural' failed with value -5", + "Validation failed for 'Natural' with value -5", '... validated unsuccessfully (got error)'); my $string = find_type_constraint('String'); @@ -196,6 +198,11 @@ throws_ok {$r->add_type_constraint(bless {}, 'SomeClass')} qr/not a valid type c # sugar was indistinguishable from calling directly. { + no warnings 'redefine'; + *Mouse::Deprecated::deprecated = sub { return }; +} + +{ my $type = type( 'Number2', sub { Scalar::Util::looks_like_number($_) } ); ok( $type->check(5), '... this is a Num' ); @@ -227,3 +234,4 @@ throws_ok {$r->add_type_constraint(bless {}, 'SomeClass')} qr/not a valid type c ok( ! $subtype->check('Foo'), '... this is not a Natural'); } +done_testing;