From: Karen Etheridge 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?a=commitdiff_plain;h=3f3dcd72365ac2254a802c0f77bbecc3a02c7b84;p=gitmo%2FMooseX-Storage.git 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; }