diff options
author | Brad Gilbert <b2gills@gmail.com> | 2014-02-04 10:20:26 -0600 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2014-02-13 13:53:28 +1100 |
commit | 2691f8f5654919643a505d72ab569c89fe7a2516 (patch) | |
tree | bac187ce38aa310fe07e42d2429818637daad127 /t/test_pl | |
parent | a22ececd72a5705fe2f6eb85fd9cab48c1cbc37d (diff) | |
download | perl-2691f8f5654919643a505d72ab569c89fe7a2516.tar.gz |
Improve error diagnostics in t/test_pl/tempfile.t
Tony: add a missing local
Diffstat (limited to 't/test_pl')
-rw-r--r-- | t/test_pl/tempfile.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/test_pl/tempfile.t b/t/test_pl/tempfile.t index 51937c4ad6..dba363efb4 100644 --- a/t/test_pl/tempfile.t +++ b/t/test_pl/tempfile.t @@ -22,16 +22,20 @@ sub skip_files{ } } + local $main::Level = $main::Level + 1; + my $common_mess = "skip $skip filenames to $to so that the next one will end with $next"; if( $last == $skip ){ if( $check eq $cmp ){ pass( $common_mess ); }else{ my($alpha) = $check =~ /\Atmp\d+([A-Z][A-Z]?)\Z/; - fail( $common_mess, "only skipped to $alpha" ) + fail( $common_mess ); + diag( "only skipped to $alpha" ); } }else{ - fail( $common_mess, "only skipped $last files" ); + fail( $common_mess ); + diag( "only skipped $last out of $skip files" ); } } |