X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F043-parameterized-type.t;fp=t%2F043-parameterized-type.t;h=8bc1d982d23b9c33987affc6297645c6b6913901;hb=5fa003bf0b3308fd48519ff1173feb778c550c01;hp=0000000000000000000000000000000000000000;hpb=c3a839396252098f03aee1595c5c9c11c45321fd;p=gitmo%2FMouse.git

diff --git a/t/043-parameterized-type.t b/t/043-parameterized-type.t
new file mode 100644
index 0000000..8bc1d98
--- /dev/null
+++ b/t/043-parameterized-type.t
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 1;
+use Test::Exception;
+
+TODO: {
+    local $TODO = "Mouse does not support parameterized types yet";
+
+    eval {
+        package Foo;
+        use Mouse;
+
+        has foo => (
+            is  => 'ro',
+            isa => 'HashRef[Int]',
+        );
+    };
+
+    ok(Foo->meta->has_attribute('foo'));
+};
+