X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F22_class_type.t;fp=t%2F22_class_type.t;h=8df1e4cf95667b850bd3ac3038c6283682c7669e;hb=7f95d0bf38da072ac2fba35dcfe29abfa62037a3;hp=fe90facee61aebf3e0cc27db30cef9e02dcf8dd3;hpb=4b643b273998718b300ddf3a760306adc09b022a;p=gitmo%2FMooseX-Types.git

diff --git a/t/22_class_type.t b/t/22_class_type.t
index fe90fac..8df1e4c 100644
--- a/t/22_class_type.t
+++ b/t/22_class_type.t
@@ -5,13 +5,24 @@ use Test::More;
 BEGIN {
   package MyTypes;
 
-  use MooseX::Types -declare => [ 'ClassyType' ];
+  use MooseX::Types -declare => [ 'ClassyType', 'NoClass' ];
 
   class_type 'ClassyClass';
 
   subtype ClassyType, as 'ClassyClass';
 
-  #class_type ClassyType, { class => 'ClassyClass' };
+  subtype NoClass, as 'Item', where { 1 };
+}
+
+BEGIN {
+
+  ok(!eval { MyTypes::ClassyType->new }, 'new without class loaded explodes');
+
+  like($@, qr/does not provide/, 'right exception');
+
+  ok(!eval { MyTypes::NoClass->new }, 'new on non-class type');
+
+  like($@, qr/non-class-type/, 'right exception');
 }
 
 BEGIN {