Fix bad prereqs and make sure we explicitly ask for module versions we need

[gitmo/MooseX-Params-Validate.git] / t / 009_wrapped.t

diff --git a/t/009_wrapped.t b/t/009_wrapped.t
index 6547942..e328b5d 100644 (file)
--- a/t/009_wrapped.t
+++ b/t/009_wrapped.t
@@ -3,8 +3,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
 {
     package Foo;
@@ -15,7 +15,7 @@ use Test::Exception;
         my $self   = shift;
         my %params = validated_hash(
             \@_,
-            foo   => { isa => 'Str' },
+            foo => { isa => 'Str' },
         );
         return $params{foo};
     }
@@ -28,9 +28,9 @@ use Test::Exception;
         my @args = ( bar => delete $p{bar} );
 
         my %params = validated_hash(
-                                   \@args,
-                                    bar => { isa => 'Str' },
-                                   );
+            \@args,
+            bar => { isa => 'Str' },
+        );
 
         $params{bar}, $self->$orig(%p);
     };
@@ -43,9 +43,9 @@ use Test::Exception;
         my @args = ( quux => delete $p{quux} );
 
         my %params = validated_hash(
-                                   \@args,
-                                    quux => { isa => 'Str' },
-                                   );
+            \@args,
+            quux => { isa => 'Str' },
+        );
 
         $params{quux}, $self->$orig(%p);
     };
@@ -54,12 +54,17 @@ use Test::Exception;
 {
     my $foo = Foo->new;
 
-    is_deeply( [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
-               [ 3, 2, 1 ],
-               'multiple around wrappers can safely be cached' );
-
-    is_deeply( [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
-               [ 3, 2, 1 ],
-               'multiple around wrappers can safely be cached (2nd time)' );
+    is_deeply(
+        [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
+        [ 3, 2, 1 ],
+        'multiple around wrappers can safely be cached'
+    );
+
+    is_deeply(
+        [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
+        [ 3, 2, 1 ],
+        'multiple around wrappers can safely be cached (2nd time)'
+    );
 }
 
+done_testing();