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 (file)
--- 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 (file)
--- 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;
     }