remove last use of Best (that should have come out in 2010!)
[gitmo/MooseX-Storage.git] / t / 040_basic_utils.t
index 8d2e299..4d3f803 100644 (file)
@@ -62,6 +62,7 @@ SKIP: {
         MooseX::Storage::Util->peek($json => ('format' => 'JSON'))
     };
     if ($@ =~ /^Could not load JSON module because/) {
+        die 'No JSON module found' if $ENV{AUTHOR_TESTING};
         skip "No JSON module found", 1;
     }
 
@@ -73,9 +74,8 @@ SKIP: {
     my $classname = eval {
         MooseX::Storage::Util->peek($yaml => ('format' => 'YAML'))
     };
-    if ($@ =~ /^Could not load YAML module because/
-        or $@ =~ /^Can't locate Best/
-    ) {
+    if ($@ =~ /^Could not load YAML module because/) {
+        die 'No YAML module found' if $ENV{AUTHOR_TESTING};
         skip "No YAML module found", 1;
     }