use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More;
use Test::Exception;
-
# RT #37569
{
subtype 'MyArrayRef'
=> as 'ArrayRef'
=> where { defined $_->[0] }
- => message { ref $_ ? "ref: ". ref $_ : 'scalar' } # stringy
+ => message { ref $_ ? "ref: ". ref $_ : 'scalar' } # stringy
;
subtype 'MyObjectType'
qr/Attribute \(nt\) does not pass the type constraint because: blessed/,
'... got the right error message';
+done_testing;