has 'maybe_bar' => (is => 'rw', isa => maybe_type(class_type('Bar')));
}
-ok ! exception {
+is( exception {
Foo->new(arr => [], bar => Bar->new);
-}, '... Bar->new isa Bar';
+}, undef, '... Bar->new isa Bar' );
-ok exception {
+isnt( exception {
Foo->new(arr => [], bar => undef);
-}, '... undef isnta Bar';
+}, undef, '... undef isnta Bar' );
-ok ! exception {
+is( exception {
Foo->new(arr => [], maybe_bar => Bar->new);
-}, '... Bar->new isa maybe(Bar)';
+}, undef, '... Bar->new isa maybe(Bar)' );
-ok ! exception {
+is( exception {
Foo->new(arr => [], maybe_bar => undef);
-}, '... undef isa maybe(Bar)';
+}, undef, '... undef isa maybe(Bar)' );
-ok exception {
+isnt( exception {
Foo->new(arr => [], maybe_bar => 1);
-}, '... 1 isnta maybe(Bar)';
+}, undef, '... 1 isnta maybe(Bar)' );
-ok ! exception {
+is( exception {
Foo->new(arr => []);
-}, '... it worked!';
+}, undef, '... it worked!' );
-ok ! exception {
+is( exception {
Foo->new(arr => undef);
-}, '... it worked!';
+}, undef, '... it worked!' );
-ok exception {
+isnt( exception {
Foo->new(arr => 100);
-}, '... failed the type check';
+}, undef, '... failed the type check' );
-ok exception {
+isnt( exception {
Foo->new(arr => 'hello world');
-}, '... failed the type check';
+}, undef, '... failed the type check' );
{
ok !$Maybe_Int->check("")
=> 'failed ("")';
-like exception { $obj->Maybe_Int("") },,
- qr/Attribute \(Maybe_Int\) does not pass the type constraint/
- => 'failed assigned ("")';
+like( exception { $obj->Maybe_Int("") }, qr/Attribute \(Maybe_Int\) does not pass the type constraint/, 'failed assigned ("")' );
ok !$Maybe_Int->check("a")
=> 'failed ("a")';
-like exception { $obj->Maybe_Int("a") },,
- qr/Attribute \(Maybe_Int\) does not pass the type constraint/
- => 'failed assigned ("a")';
+like( exception { $obj->Maybe_Int("a") }, qr/Attribute \(Maybe_Int\) does not pass the type constraint/, 'failed assigned ("a")' );
done_testing;