From: Karen Etheridge <ether@cpan.org>
Date: Fri, 9 Aug 2013 17:39:19 +0000 (-0700)
Subject: do not skip any tests in author mode - die instead!
X-Git-Tag: v0.40~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Storage.git;a=commitdiff_plain;h=3f3dcd72365ac2254a802c0f77bbecc3a02c7b84

do not skip any tests in author mode - die instead!
---

diff --git a/t/030_with_checksum.t b/t/030_with_checksum.t
index 0715831..e38986a 100644
--- a/t/030_with_checksum.t
+++ b/t/030_with_checksum.t
@@ -116,7 +116,12 @@ BEGIN {
 
 SKIP: {
     eval { require Digest::HMAC_SHA1 };
-    skip join( " ", "no Digest::HMAC", ( $@ =~ /\@INC/ ? () : do { chomp(my $e = $@); "($e)" } ) ), 15 if $@;
+    if ($@)
+    {
+        my $message = join( " ", "no Digest::HMAC", ( $@ =~ /\@INC/ ? () : do { chomp(my $e = $@); "($e)" } ) );
+        die $message if $ENV{AUTHOR_TESTING};
+        skip $message, 15;
+    }
 
     local $::DEBUG = 1;
 
diff --git a/t/040_basic_utils.t b/t/040_basic_utils.t
index 8d2e299..a969836 100644
--- a/t/040_basic_utils.t
+++ b/t/040_basic_utils.t
@@ -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;
     }
 
@@ -76,6 +77,7 @@ SKIP: {
     if ($@ =~ /^Could not load YAML module because/
         or $@ =~ /^Can't locate Best/
     ) {
+        die 'No YAML module found' if $ENV{AUTHOR_TESTING};
         skip "No YAML module found", 1;
     }