X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F806-role_type.t;fp=t%2F001_mouse%2F806-role_type.t;h=a235dacf597bea02aa13ca2d206f88faf67bb310;hp=5893ddbcdcd821a8d339f3b0387a7c592ea1ff10;hb=7d4507ba0976d10a036aaa3a3a2ecb74c2bc38fb;hpb=63da74fd7be3c1236f0ace8684f078ff48fd3e2a

diff --git a/t/001_mouse/806-role_type.t b/t/001_mouse/806-role_type.t
index 5893ddb..a235dac 100644
--- a/t/001_mouse/806-role_type.t
+++ b/t/001_mouse/806-role_type.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More;
 
 {
     package Request::Headers::Role;
@@ -40,7 +40,7 @@ use Test::More tests => 5;
 
     has headers => (
         is     => 'rw',
-        isa    => 'Headers',
+        does   => 'Headers',
         coerce => 1,
     );
 }
@@ -55,4 +55,12 @@ is($res->headers->foo, 'yay');
 eval {
     $res->headers( Request::Headers->new( foo => 'baz' ) );
 };
-ok $@;
+like $@, qr/Validation failed/;
+
+eval {
+    $res->headers( Request::Headers->new( foo => undef ) );
+};
+like $@, qr/Validation failed/;
+
+done_testing;
+