working example for anonymously created types

jjn1056 · Oct 27, 2010 · 82314ac · 82314ac
1 parent ffd6c41
commit 82314ac
Showing 1 changed file with 18 additions and 4 deletions.
diff --git a/t/06-anonymous.t b/t/06-anonymous.t
@@ -3,13 +3,27 @@ use strict;
 use warnings;
 
 use Test::More;
+use MooseX::Types;
 use MooseX::Types::Parameterizable qw(Parameterizable);
 use MooseX::Types::Moose qw(Int Str);
 
-ok my $varchar = (subtype as Parameterizable[Str, Int], where { $_[1] > length($_[0]); }),
-  'Anonymous Type';
+my $varchar = 
+    subtype as Parameterizable[Str, Int], 
+    where {
+        my ($str, $int) = @_;
+        $int > length($str);
+    };
 
-ok $varchar->parameterize(5)->check('aaa');
-ok !$varchar->parameterize(5)->check('aaaaa');
+ok $varchar,
+  'got anonymouse type';
 
+ok $varchar->parameterize(5)->check('aaa'),
+  'smaller than 5';
+
+ok !$varchar->parameterize(5)->check('aaaaa'),
+  'bigger than 5';
+
+ok !$varchar->parameterize(5)->check([1..3]),
+  'Not correct type';
+
 done_testing;