X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2Ffailing%2F012_rebless.t;fp=t-failing%2F010_basics%2F012_rebless.t;h=e8c6722af7851a523977ca44140ba8c4ab050410;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=dd946f0ec4fc1b8551410c3bd733c152f4b8b3f6;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git diff --git a/t-failing/010_basics/012_rebless.t b/t/010_basics/failing/012_rebless.t similarity index 83% rename from t-failing/010_basics/012_rebless.t rename to t/010_basics/failing/012_rebless.t index dd946f0..e8c6722 100644 --- a/t-failing/010_basics/012_rebless.t +++ b/t/010_basics/failing/012_rebless.t @@ -1,13 +1,9 @@ #!/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::More tests => 11; use Test::Exception; use Scalar::Util 'blessed'; @@ -66,10 +62,10 @@ lives_ok { $foo->type_constrained(10.5) } "Num type constraint for now.."; # try to rebless, except it will fail due to Child's stricter type constraint throws_ok { Child->meta->rebless_instance($foo) } -qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' with value 10\.5/, +qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' failed with value 10\.5/, '... this failed cause of type check'; throws_ok { Child->meta->rebless_instance($bar) } -qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' with value 5\.5/, +qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' failed with value 5\.5/, '... this failed cause of type check';; $foo->type_constrained(10); @@ -85,7 +81,5 @@ is($foo->lazy_classname, 'Parent', "lazy attribute was already initialized"); is($bar->lazy_classname, 'Child', "lazy attribute just now initialized"); throws_ok { $foo->type_constrained(10.5) } -qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' with value 10\.5/, +qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' failed with value 10\.5/, '... this failed cause of type check'; - -done_testing;