BEGIN {
package MooseX::Types::Test::Recursion;
-
+
use Moose;
use Moose::Util::TypeConstraints;
{
package MooseX::Types::Test::Recursion::TestRunner;
-
+
BEGIN {
- use Test::More tests=>5;
-
+ use Test::More;
+
## Grab the newly created test type constraint
MooseX::Types::Test::Recursion->import(':all');
};
-
+
ok RecursiveHashRef->check({key=>"value"})
=> 'properly validated {key=>"value"}';
-
+
ok RecursiveHashRef->check({key=>{subkey=>"value"}})
=> 'properly validated {key=>{subkey=>"value"}}';
-
+
ok RecursiveHashRef->check({
key=>{
subkey=>"value",
}
}
}) => 'properly validated deeper recursive values';
-
+
ok ! RecursiveHashRef->check({key=>[1,2,3]})
=> 'Properly invalidates bad value';
-
+
ok ! RecursiveHashRef->check({key=>{subkey=>"value",subkey2=>{ssubkey=>[1,2,3]}}})
=> 'Properly invalidates bad value deeply';
-}
-
-
-
-
-
+ done_testing;
+}