X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F24_class_can_isa.t;fp=t%2F24_class_can_isa.t;h=49c0cfdc78137e54cf37710421fd267c80aeb8c5;hb=6db34a2fe061cc3d65fbeb9509e087ea1568986e;hp=0000000000000000000000000000000000000000;hpb=3058b15c345b0ab55f7a11e7ec303ab50c483feb;p=gitmo%2FMooseX-Types.git

diff --git a/t/24_class_can_isa.t b/t/24_class_can_isa.t
new file mode 100644
index 0000000..49c0cfd
--- /dev/null
+++ b/t/24_class_can_isa.t
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use MooseX::Types::TypeDecorator;
+
+is(
+    exception { MooseX::Types::TypeDecorator->isa('X') },
+    undef,
+    'no exception calling ->isa on MooseX::Types::TypeDecorator as class method'
+);
+
+is(
+    exception { MooseX::Types::TypeDecorator->can('X') },
+    undef,
+    'no exception calling ->can on MooseX::Types::TypeDecorator as class method'
+);
+
+done_testing();