Failing test for calling ->isa or ->can as a class methods on MooseX::Types::TypeDeco...

[gitmo/MooseX-Types.git] / t / 24_class_can_isa.t

diff --git a/t/24_class_can_isa.t b/t/24_class_can_isa.t
new file mode 100644 (file)
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();