Avoid warnings on compatibility tests

diff --git a/t/001_mouse/814-subtype-as.t b/t/001_mouse/814-subtype-as.t
index 44a71e2..910ae2b 100644 (file)
--- a/t/001_mouse/814-subtype-as.t
+++ b/t/001_mouse/814-subtype-as.t
@@ -37,7 +37,7 @@ use Scalar::Util qw/blessed/;
     );
 
 
-    type 'Type4';
+    type 'Type4', where { 1 };
     has any => (
         is     => 'rw',
         isa    => 'Type4',

diff --git a/t/900_mouse_bugs/001_immutable_types.t b/t/900_mouse_bugs/001_immutable_types.t
index b3950e2..874ee3b 100644 (file)
--- a/t/900_mouse_bugs/001_immutable_types.t
+++ b/t/900_mouse_bugs/001_immutable_types.t
@@ -14,7 +14,7 @@ subtype 'Foo', as 'Object', where { $_->isa('A') };
 {
     package C;
     use Mouse;
-    has a => ( is => 'rw', isa => 'Foo', coerce => 1 );
+    has a => ( is => 'rw', isa => 'Foo' );
 }
 
 isa_ok(C->new(a => A->new()), 'C');