Tests
Fuji, Goro [Fri, 12 Nov 2010 06:42:27 +0000 (15:42 +0900)]
t/001_mouse/806-role_type.t

index 5893ddb..a235dac 100644 (file)
@@ -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;
+