diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-26 10:13:08 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-26 10:13:08 -0500 |
commit | 5eeb5c4a9cc9875b88ffa5d8e0f4732d7befd1bd (patch) | |
tree | 8caa2760140d2ccb733461671878e50aa219e7e4 /t | |
parent | 30579545ce1517fb1b42a84dbb940e8d75aaa081 (diff) | |
parent | 4c1206bd959446cc8ae6431a4dcf95208e6bc576 (diff) | |
download | bread-board-declare-5eeb5c4a9cc9875b88ffa5d8e0f4732d7befd1bd.tar.gz bread-board-declare-5eeb5c4a9cc9875b88ffa5d8e0f4732d7befd1bd.zip |
Merge branch 'temp-release'
Diffstat (limited to 't')
-rw-r--r-- | t/30-type-checks.t | 8 |
1 files changed, 4 insertions, 4 deletions
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'; |