Use Test::Requires in recipe tests
Dave Rolsky [Fri, 10 Sep 2010 16:38:04 +0000 (11:38 -0500)]
lib/Moose/Cookbook/Basics/Recipe11.pod
lib/Moose/Cookbook/Basics/Recipe4.pod
lib/Moose/Cookbook/Basics/Recipe5.pod
lib/Moose/Cookbook/Extending/Recipe2.pod
lib/Moose/Cookbook/Extending/Recipe3.pod

index 82b7cf3..a339014 100644 (file)
@@ -3,14 +3,10 @@
 
 =begin testing-SETUP
 
-BEGIN {
-    eval 'use DateTime; use DateTime::Calendar::Mayan;';
-    if ($@) {
-        diag 'DateTime & DateTime::Calendar::Mayan required for this test';
-        ok(1);
-        exit 0;
-    }
-}
+use Test::Requires {
+    'DateTime'                  => '0',
+    'DateTime::Calendar::Mayan' => '0',
+};
 
 =end testing-SETUP
 
index f5fd597..325b43b 100644 (file)
@@ -3,14 +3,10 @@
 
 =begin testing-SETUP
 
-BEGIN {
-    eval 'use Regexp::Common; use Locale::US;';
-    if ($@) {
-        diag 'Regexp::Common & Locale::US required for this test';
-        ok(1);
-        exit 0;
-    }
-}
+use Test::Requires {
+    'Locale::US'     => '0',
+    'Regexp::Common' => '0',
+};
 
 =end testing-SETUP
 
index 2cfa2a6..d901d57 100644 (file)
@@ -3,14 +3,11 @@
 
 =begin testing-SETUP
 
-BEGIN {
-    eval 'use HTTP::Headers; use Params::Coerce; use URI;';
-    if ($@) {
-        diag 'HTTP::Headers, Params::Coerce & URI required for this test';
-        ok(1);
-        exit 0;
-    }
-}
+use Test::Requires {
+    'HTTP::Headers'  => '0',
+    'Params::Coerce' => '0',
+    'URI'            => '0',
+};
 
 =end testing-SETUP
 
index 8fff44c..b37d3a6 100644 (file)
@@ -3,14 +3,9 @@
 
 =begin testing-SETUP
 
-BEGIN {
-    eval 'use Test::Output;';
-    if ($@) {
-        diag 'Test::Output is required for this test';
-        ok(1);
-        exit 0;
-    }
-}
+use Test::Requires {
+    'Test::Output' => '0',
+};
 
 =end testing-SETUP
 
index 012c185..1028a58 100644 (file)
@@ -3,14 +3,9 @@
 
 =begin testing-SETUP
 
-BEGIN {
-    eval 'use Test::Output;';
-    if ($@) {
-        diag 'Test::Output is required for this test';
-        ok(1);
-        exit 0;
-    }
-}
+use Test::Requires {
+    'Test::Output' => '0',
+};
 
 =end testing-SETUP