diff options
Diffstat (limited to 't/30-type-checks.t')
-rw-r--r-- | t/30-type-checks.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/t/30-type-checks.t b/t/30-type-checks.t new file mode 100644 index 0000000..58f4405 --- /dev/null +++ b/t/30-type-checks.t @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use Test::Fatal; + +{ + package Foo; + use Moose; + use MooseX::Bread::Board; + + has foo => ( + is => 'ro', + isa => 'Ref', + value => 'FOO', + ); +} + +{ + 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/, + "error when service returns invalid value"); +} + +done_testing; |