add test for class type

diff --git a/t/22_class_type.t b/t/22_class_type.t
new file mode 100644 (file)
index 0000000..2fdf560
--- /dev/null
+++ b/t/22_class_type.t
@@ -0,0 +1,34 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+  package MyTypes;
+
+  use MooseX::Types -declare => [ 'ClassyType' ];
+
+  class_type ClassyType, { class => 'ClassyClass' };
+}
+
+BEGIN {
+
+  package ClassyClass;
+
+  use Moose;
+
+  package ClassyClassConsumer;
+
+  BEGIN { MyTypes->import('ClassyType') }
+  use Moose;
+
+  has om_nom => (
+    is => 'ro', isa => ClassyType, default => sub { ClassyType->new }
+  );
+
+}
+
+ok(my $o = ClassyClassConsumer->new, "Constructor happy");
+
+is(ref($o->om_nom), 'ClassyClass', 'Attribute happy');
+
+done_testing;