From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 18 May 2012 12:57:37 +0000 (+0000)
Subject: add test for class type
X-Git-Tag: v0.32~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=b2a6a381bc32367be60f79761351f2308025cb9a

add test for class type
---

diff --git a/t/22_class_type.t b/t/22_class_type.t
new file mode 100644
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;