Remove spurious comma which broke test
[gitmo/Moose.git] / t / 200_examples / 005_example_w_TestDeep.t
index cd33fa9..676ae29 100644 (file)
@@ -7,19 +7,17 @@ use Test::More;
 
 =pod
 
-This tests how well Moose type constraints 
-play with Test::Deep. 
+This tests how well Moose type constraints
+play with Test::Deep.
 
-Its not as pretty as Declare::Constraints::Simple, 
+Its not as pretty as Declare::Constraints::Simple,
 but it is not completely horrid either.
 
 =cut
 
-BEGIN {
-    eval "use Test::Deep;";
-    plan skip_all => "Test::Deep is required for this test" if $@;        
-    plan tests => 5;    
-}
+use Test::Requires {
+    'Test::Deep' => '0.01', # skip all if not installed
+};
 
 use Test::Exception;
 
@@ -31,11 +29,11 @@ use Test::Exception;
     use Test::Deep qw[
         eq_deeply array_each subhashof ignore
     ];
-    
+
     # define your own type ...
-    type 'ArrayOfHashOfBarsAndRandomNumbers' 
+    type 'ArrayOfHashOfBarsAndRandomNumbers'
         => where {
-            eq_deeply($_, 
+            eq_deeply($_,
                 array_each(
                     subhashof({
                         bar           => Test::Deep::isa('Bar'),
@@ -43,8 +41,8 @@ use Test::Exception;
                     })
                 )
             )
-        };    
-    
+        };
+
     has 'bar' => (
         is  => 'rw',
         isa => 'ArrayOfHashOfBarsAndRandomNumbers',
@@ -56,12 +54,12 @@ use Test::Exception;
 
 my $array_of_hashes = [
     { bar => Bar->new, random_number => 10 },
-    { bar => Bar->new },    
+    { bar => Bar->new },
 ];
 
 my $foo;
 lives_ok {
-    $foo = Foo->new('bar' => $array_of_hashes); 
+    $foo = Foo->new('bar' => $array_of_hashes);
 } '... construction succeeded';
 isa_ok($foo, 'Foo');
 
@@ -75,4 +73,4 @@ dies_ok {
     $foo->bar([{ foo => 3 }]);
 } '... validation failed correctly';
 
-
+done_testing;