X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F15_recursion.t;h=f98709f757ca3ebc129dfa77b6e1583ec0425dd8;hb=077ac262426e5f48cfe70fd1711ccd27971fab44;hp=4c6ed41cc5b6ed6d29e9ce0d40f7df84855c9f06;hpb=e7d06577ac86f8d5aa7f917e0dbcb42fe4a62b3e;p=gitmo%2FMooseX-Types.git

diff --git a/t/15_recursion.t b/t/15_recursion.t
index 4c6ed41..f98709f 100644
--- a/t/15_recursion.t
+++ b/t/15_recursion.t
@@ -20,9 +20,10 @@ BEGIN {
     package MooseX::Types::Test::Recursion::TestRunner;
     
     BEGIN {
-        use Test::More 'no_plan';
-        use Data::Dump qw/dump/;
+        use Test::More tests=>5;
+        use Test::Exception;
         
+        ## Grab the newly created test type constraint
         MooseX::Types::Test::Recursion->import(':all');
     };
 
@@ -33,8 +34,21 @@ BEGIN {
     ok RecursiveHashRef->check({key=>{subkey=>"value"}})
      => 'properly validated {key=>{subkey=>"value"}}';
      
+    ok RecursiveHashRef->check({
+        key=>{
+            subkey=>"value",
+            subkey2=>{
+                ssubkey1=>"value3",
+                ssubkey2=>"value4"
+            }
+        }
+    }) => 'properly validated deeper recursive values';
+    
+    ok ! RecursiveHashRef->check({key=>[1,2,3]})
+     => 'Properly invalidates bad value';
      
-    warn dump RecursiveHashRef();
+    ok ! RecursiveHashRef->check({key=>{subkey=>"value",subkey2=>{ssubkey=>[1,2,3]}}})
+     => 'Properly invalidates bad value deeply';
 }