diff options
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | t/30-type-checks.t | 8 |
2 files changed, 7 insertions, 4 deletions
@@ -2,6 +2,9 @@ Revision history for Bread-Board-Declare {{$NEXT}} +0.07 2011-04-26 + - fix test suite for upcoming moose error message changes + 0.06 2011-04-02 - set the 'class' attribute on block services, so that circular dependencies can work better. (jasonmay) diff --git a/t/30-type-checks.t b/t/30-type-checks.t index b7718ac..0641d98 100644 --- a/t/30-type-checks.t +++ b/t/30-type-checks.t @@ -19,7 +19,7 @@ use Test::Moose; has bar => ( is => 'ro', isa => 'Str', - block => sub { {} }, + block => sub { { foo => 'bar' } }, ); has baz => ( @@ -33,13 +33,13 @@ use Test::Moose; with_immutable { my $foo = Foo->new; like(exception { $foo->foo }, - qr/^Attribute \(foo\) does not pass the type constraint because: Validation failed for 'Ref' with value FOO/, + qr/^Attribute \(foo\) does not pass the type constraint because: Validation failed for 'Ref' with value .*FOO/, "error when service returns invalid value"); like(exception { $foo->bar }, - qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Str' with value HASH/, + qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Str' with value .*(?:HASH|foo.*bar)/, "error when service returns invalid value"); like(exception { $foo->baz }, - qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Str' with value HASH/, + qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Str' with value .*(?:HASH|foo.*bar)/, "error when service returns invalid value, even as a dependency"); } 'Foo'; |