Deprecate _default_is and _default_default for native traits.

[gitmo/Moose.git] / t / 100_bugs / 017_type_constraint_messages.t

diff --git a/t/100_bugs/017_type_constraint_messages.t b/t/100_bugs/017_type_constraint_messages.t
index d425787..526130d 100644 (file)
--- a/t/100_bugs/017_type_constraint_messages.t
+++ b/t/100_bugs/017_type_constraint_messages.t
@@ -3,12 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');
-}
 
 # RT #37569
 
@@ -23,7 +20,7 @@ BEGIN {
     subtype 'MyArrayRef'
        => as 'ArrayRef'
        => where { defined $_->[0] }
-       => message { ref $_ ? "ref: ". ref $_ : 'scalar' }  # stringy  
+       => message { ref $_ ? "ref: ". ref $_ : 'scalar' }  # stringy
     ;
 
     subtype 'MyObjectType'
@@ -55,16 +52,22 @@ BEGIN {
 my $foo = Foo->new;
 my $obj = MyObject->new;
 
-throws_ok { 
-    $foo->ar([]);
-} qr/Attribute \(ar\) does not pass the type constraint because: ref: ARRAY/, '... got the right error message';
-
-throws_ok { 
-    $foo->obj($foo); # Doh!
-} qr/Attribute \(obj\) does not pass the type constraint because: Well it is an object/, '... got the right error message';
+throws_ok {
+    $foo->ar( [] );
+}
+qr/Attribute \(ar\) does not pass the type constraint because: ref: ARRAY/,
+    '... got the right error message';
 
-throws_ok { 
-    $foo->nt($foo);  # scalar
-} qr/Attribute \(nt\) does not pass the type constraint because: blessed/, '... got the right error message';
+throws_ok {
+    $foo->obj($foo);    # Doh!
+}
+qr/Attribute \(obj\) does not pass the type constraint because: Well it is an object/,
+    '... got the right error message';
 
+throws_ok {
+    $foo->nt($foo);     # scalar
+}
+qr/Attribute \(nt\) does not pass the type constraint because: blessed/,
+    '... got the right error message';
 
+done_testing;