X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F11-overflow.t;fp=t%2F11-overflow.t;h=8aec1b1abe71b8f81776d1bc2efaa16a4eaf9129;hb=9eb6e8c6a5da5d60eb1986db304565b8ea826aed;hp=6a167061f4003242fc1602cf9093145519e9041d;hpb=c5d806b45e84f98b691c45b6b55670ff51f58ee5;p=gitmo%2FMooseX-Types-Structured.git

diff --git a/t/11-overflow.t b/t/11-overflow.t
index 6a16706..8aec1b1 100644
--- a/t/11-overflow.t
+++ b/t/11-overflow.t
@@ -36,32 +36,3 @@ 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,
-       slurpy HashRef[Int],
-     ];
-
-ok !$hash_tailed_tuple->check(['ss',1]), 'correct fail';
-ok $hash_tailed_tuple->check([1,'ss']), 'correct pass';
-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 $array_tailed_dict =
-    subtype 'hash_tailed_dict',
-    as Dict[
-      name=>Str,
-      age=>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,3}), 'correct pass with tail';
-ok !$array_tailed_dict->check({name=>'Vanessa Li', age=>35, 1, "hello"}), 'correct fail with tail';