Add tests for names of types with overflow handlers.

[gitmo/MooseX-Types-Structured.git] / t / 11-overflow.t

diff --git a/t/11-overflow.t b/t/11-overflow.t
index a57f327..6a16706 100644 (file)
--- a/t/11-overflow.t
+++ b/t/11-overflow.t
@@ -1,42 +1,49 @@
-BEGIN {
-       use strict;
-       use warnings;
-       use Test::More tests=>20;
-}
+use strict;
+use warnings;
+use Test::More tests=>12;
 
 use Moose::Util::TypeConstraints;
-use MooseX::Types::Structured qw(Dict Tuple);
-use MooseX::Types::Moose qw(Int Str ArrayRef HashRef);
-
-
-sub merge(&$) {
-    my ($code, $tc) = @_;
-    return sub {
-        my @tail_args = @_;
-        $tc->check($code->(@tail_args));
-    }
-}
+use MooseX::Types::Structured qw(Dict Tuple slurpy);
+use MooseX::Types::Moose qw(Int Str ArrayRef HashRef Object);
 
 my $array_tailed_tuple =
-    subtype 'array_tailed_tuple',
-     as Tuple[
+     Tuple[
         Int,
         Str,
-        merge {[@_]} ArrayRef[Int],
+        slurpy ArrayRef[Int],
      ];
-  
+
+is($array_tailed_tuple->name, 'MooseX::Types::Structured::Tuple[Int,Str,slurpy ArrayRef[Int]]');
+
 ok !$array_tailed_tuple->check(['ss',1]), 'correct fail';
 ok $array_tailed_tuple->check([1,'ss']), 'correct pass';
 ok !$array_tailed_tuple->check({}), 'correct fail';
 ok $array_tailed_tuple->check([1,'hello',1,2,3,4]), 'correct pass with tail';
 ok !$array_tailed_tuple->check([1,'hello',1,2,'bad',4]), 'correct fail with tail';
 
+my $hash_tailed_dict =
+    Dict[
+      name=>Str,
+      age=>Int,
+      slurpy HashRef[Int],
+    ];
+
+is($hash_tailed_dict->name, 'MooseX::Types::Structured::Dict[name,Str,age,Int,slurpy HashRef[Int]]');
+
+ok !$hash_tailed_dict->check({name=>'john',age=>'napiorkowski'}), 'correct fail';
+ok $hash_tailed_dict->check({name=>'Vanessa Li', age=>35}), 'correct pass';
+ok !$hash_tailed_dict->check([]), 'correct fail';
+ok $hash_tailed_dict->check({name=>'Vanessa Li', age=>35, more1=>1,more2=>2}), 'correct pass with tail';
+ok !$hash_tailed_dict->check({name=>'Vanessa Li', age=>35, more1=>1,more2=>"aa"}), 'correct fail with tail';
+
+__END__
+
 my $hash_tailed_tuple =
     subtype 'hash_tailed_tuple',
      as Tuple[
        Int,
        Str,
-       merge {+{@_}} HashRef[Int],
+       slurpy HashRef[Int],
      ];
 
 ok !$hash_tailed_tuple->check(['ss',1]), 'correct fail';
@@ -45,31 +52,16 @@ ok !$hash_tailed_tuple->check({}), 'correct fail';
 ok $hash_tailed_tuple->check([1,'hello',age=>25,zip=>10533]), 'correct pass with tail';
 ok !$hash_tailed_tuple->check([1,'hello',age=>25,name=>'john']), 'correct fail with tail';
 
-my $hash_tailed_dict =
-    subtype 'hash_tailed_dict',
-    as Dict[
-      name=>Str,
-      age=>Int,
-       merge {+{@_}} HashRef[Int],
-    ];
-    
-ok !$hash_tailed_dict->check({name=>'john',age=>'napiorkowski'}), 'correct fail';
-ok $hash_tailed_dict->check({name=>'Vanessa Li', age=>35}), 'correct pass';
-ok !$hash_tailed_dict->check([]), 'correct fail';
-ok $hash_tailed_dict->check({name=>'Vanessa Li', age=>35, more1=>1,more2=>2}), 'correct pass with tail';
-ok !$hash_tailed_dict->check({name=>'Vanessa Li', age=>35, more1=>1,more2=>"aa"}), 'correct fail with tail';
-
 my $array_tailed_dict =
     subtype 'hash_tailed_dict',
     as Dict[
       name=>Str,
       age=>Int,
-      merge {[@_]} ArrayRef[Int],
+      slurpy ArrayRef[Int],
     ];
     
 ok !$array_tailed_dict->check({name=>'john',age=>'napiorkowski'}), 'correct fail';
 ok $array_tailed_dict->check({name=>'Vanessa Li', age=>35}), 'correct pass';
 ok !$array_tailed_dict->check([]), 'correct fail';
-ok $array_tailed_dict->check({name=>'Vanessa Li', age=>35, 1,2}), 'correct pass with tail';
+ok $array_tailed_dict->check({name=>'Vanessa Li', age=>35, 1,2,3}), 'correct pass with tail';
 ok !$array_tailed_dict->check({name=>'Vanessa Li', age=>35, 1, "hello"}), 'correct fail with tail';
-