X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F802-mousex_types-isa-or.t;h=693b9a1b531dcac000f6897aa2b357a21759758c;hb=3fa6f35df998618abdf763f4e4a060ba8f450a35;hp=bd20f3a66ddfd2e193b807648771bdeb05bbae53;hpb=0d9fea2202e3abf87e59f693afab640548faeef5;p=gitmo%2FMouse.git

diff --git a/t/800_shikabased/802-mousex_types-isa-or.t b/t/800_shikabased/802-mousex_types-isa-or.t
index bd20f3a..693b9a1 100644
--- a/t/800_shikabased/802-mousex_types-isa-or.t
+++ b/t/800_shikabased/802-mousex_types-isa-or.t
@@ -9,13 +9,13 @@ use Test::More tests => 13;
     use MouseX::Types -declare => [qw/ Baz Type1 Type2 /];
     use MouseX::Types::Mouse qw( ArrayRef );
 
-    subtype Baz, where { defined($_) && $_ eq 'Baz' };
+    type Baz, where { defined($_) && $_ eq 'Baz' };
     coerce Baz, from ArrayRef, via { 'Baz' };
 
-    subtype Type1, where { defined($_) && $_ eq 'Name' };
+    type Type1, where { defined($_) && $_ eq 'Name' };
     coerce Type1, from 'Str', via { 'Names' };
 
-    subtype Type2, where { defined($_) && $_ eq 'Group' };
+    type Type2, where { defined($_) && $_ eq 'Group' };
     coerce Type2, from 'Str', via { 'Name' };
 
 }