X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F005-class_type.t;fp=t%2F800_shikabased%2F005-class_type.t;h=5b61762bb5b03f3620261ef6ef2e73e6fa47ecd0;hb=d9f8c87830d51d04b6347e9ff52ddd6d04e09918;hp=e58fde2727abd233bad56069eec4540406b4c25f;hpb=a510e63c7acd5fa667d7dce5f90b3fd07913e2d3;p=gitmo%2FMouse.git

diff --git a/t/800_shikabased/005-class_type.t b/t/800_shikabased/005-class_type.t
index e58fde2..5b61762 100644
--- a/t/800_shikabased/005-class_type.t
+++ b/t/800_shikabased/005-class_type.t
@@ -8,7 +8,14 @@ use Test::More tests => 4;
 
     require t::lib::ClassType_Foo;
 
-    class_type Headers => { class => 't::lib::ClassType_Foo' };
+    # XXX: This below API is different from that of Moose.
+    # class_type() should be class_type 'ClassName';
+    #    class_type 'Headers' => { class => 't::lib::ClassType_Foo' };
+    # this should be subtype Headers => as 't::lib::ClassType_foo';
+    subtype 'Headers'
+        => as 't::lib::ClassType_Foo'
+    ;
+        
     coerce 'Headers' =>
         from 'HashRef' => via {
             t::lib::ClassType_Foo->new(%{ $_ });