From: John Napiorkowski <jjnapiork@cpan.org>
Date: Tue, 9 Dec 2008 22:34:37 +0000 (+0000)
Subject: recursion test
X-Git-Tag: 0.10~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=e7d06577ac86f8d5aa7f917e0dbcb42fe4a62b3e

recursion test
---

diff --git a/lib/MooseX/Types.pm b/lib/MooseX/Types.pm
index 1743a1e..7eb0fec 100644
--- a/lib/MooseX/Types.pm
+++ b/lib/MooseX/Types.pm
@@ -357,6 +357,7 @@ sub type_export_generator {
         } else {
             $type_constraint = $class->create_base_type_constraint($name);
         }
+
         $type_constraint = defined($type_constraint) ? $type_constraint
          : MooseX::Types::UndefinedType->new($name);
          
diff --git a/lib/MooseX/Types/TypeDecorator.pm b/lib/MooseX/Types/TypeDecorator.pm
index 31dd3fd..519cad7 100644
--- a/lib/MooseX/Types/TypeDecorator.pm
+++ b/lib/MooseX/Types/TypeDecorator.pm
@@ -51,7 +51,10 @@ sub new {
     if(my $arg = shift @_) {
         if(blessed $arg && $arg->isa('Moose::Meta::TypeConstraint')) {
             return bless {'__type_constraint'=>$arg}, $class;
-        } elsif(blessed $arg && $arg->isa('MooseX::Types::UndefinedType')) {
+        } elsif(
+            blessed $arg &&
+            $arg->isa('MooseX::Types::UndefinedType') 
+          ) {
             ## stub in case we'll need to handle these types differently
             return bless {'__type_constraint'=>$arg}, $class;
         } elsif(blessed $arg) {
@@ -60,7 +63,7 @@ sub new {
             croak "Argument cannot be '$arg'";
         }
     } else {
-        croak "This method [new] requires a single argument of 'arg'.";        
+        croak "This method [new] requires a single argument.";        
     }
 }
 
@@ -135,7 +138,7 @@ sub AUTOLOAD {
     if($self->__type_constraint->can($method)) {
         return $self->__type_constraint->$method(@args);
     } else {
-        croak "Method '$method' is not supported";   
+        croak "Method '$method' is not supported for ". ref($self->__type_constraint);   
     }
 }
 
diff --git a/t/15_recursion.t b/t/15_recursion.t
new file mode 100644
index 0000000..4c6ed41
--- /dev/null
+++ b/t/15_recursion.t
@@ -0,0 +1,44 @@
+## Test case inspired by Stevan Little
+
+BEGIN {
+    package MooseX::Types::Test::Recursion;
+    
+    use Moose;
+
+    use Moose::Util::TypeConstraints;
+    use MooseX::Types::Moose qw(Str HashRef);
+    use MooseX::Types -declare => [qw(
+        RecursiveHashRef
+    )];
+
+    ## Define a recursive subtype and Cthulhu save us.
+    subtype RecursiveHashRef()
+     => as HashRef[Str() | RecursiveHashRef()];
+}
+
+{
+    package MooseX::Types::Test::Recursion::TestRunner;
+    
+    BEGIN {
+        use Test::More 'no_plan';
+        use Data::Dump qw/dump/;
+        
+        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"}}';
+     
+     
+    warn dump RecursiveHashRef();
+}
+
+
+
+
+
+