X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbug-optional.t;h=431c65ff3ba9442cfef6e6ef66aa4c832c3267fc;hb=ae99852990e7c7faf5d4f44fc58f144d1b5dd2fd;hp=301de29852583ee5944d0fb83161b94ff97dde0c;hpb=ff0781f2e32ece5761542f8cdda51fc384715b98;p=gitmo%2FMooseX-Types-Structured.git

diff --git a/t/bug-optional.t b/t/bug-optional.t
index 301de29..431c65f 100644
--- a/t/bug-optional.t
+++ b/t/bug-optional.t
@@ -9,11 +9,14 @@ BEGIN {
     use MooseX::Types -declare => [qw(
         Signature
         MyDict
+        MyTuple
     )];
 
     subtype Signature, as Tuple[Tuple[Object], Dict[optional => Optional[Any], required => Any]];
 
     subtype MyDict, as Dict[optional => Optional[Any], required => Any];
+
+    subtype MyTuple, as Tuple[Object, Any, Optional[Any]];
 }
 
 BEGIN {
@@ -30,4 +33,11 @@ ok(!MyDict->check({ required => 42, unknown => 23 }));
 ok(MyDict->check({ optional => 42, required => 23 }));
 ok(MyDict->check({ required => 23 }));
 
+ok(!MyTuple->check([]));
+ok(!MyTuple->check([bless({}, 'Foo')]));
+ok(!MyTuple->check([bless({}, 'Foo'), 'bar', 'baz', 'moo']));
+
+ok(MyTuple->check([bless({}, 'Foo'), 'bar']));
+ok(MyTuple->check([bless({}, 'Foo'), 'bar', 'baz']));
+
 done_testing;