From: gfx <gfuji@cpan.org>
Date: Mon, 6 Sep 2010 04:44:10 +0000 (+0900)
Subject: Avoid warnings on compatibility tests
X-Git-Tag: 0.65~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f468374d868fcc56f12fe632bcab013d74ca976;hp=2bb76549d42baff2a0dd3c5be170d2850ecf0855;p=gitmo%2FMouse.git

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
--- 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
--- 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');