v0.33

[gitmo/MooseX-Types.git] / t / 22_class_type.t

diff --git a/t/22_class_type.t b/t/22_class_type.t
index 091eba0..fe90fac 100644 (file)
--- a/t/22_class_type.t
+++ b/t/22_class_type.t
@@ -7,7 +7,11 @@ BEGIN {
 
   use MooseX::Types -declare => [ 'ClassyType' ];
 
-  class_type ClassyType, { class => 'ClassyClass' };
+  class_type 'ClassyClass';
+
+  subtype ClassyType, as 'ClassyClass';
+
+  #class_type ClassyType, { class => 'ClassyClass' };
 }
 
 BEGIN {
@@ -16,6 +20,8 @@ BEGIN {
 
   use Moose;
 
+  sub check { die "FAIL" }
+
   package ClassyClassConsumer;
 
   BEGIN { MyTypes->import('ClassyType') }
@@ -33,4 +39,6 @@ is(ref($o->om_nom), 'ClassyClass', 'Attribute happy');
 
 ok(ClassyClassConsumer->new(om_nom => ClassyClass->new), 'Constructor happy');
 
+ok(!eval { ClassyClassConsumer->new(om_nom => 3) }, 'Type checked');
+
 done_testing;