diff options
| author | David Mitchell <davem@iabyn.com> | 2014-12-10 11:58:26 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2014-12-10 12:20:17 +0000 |
| commit | 17d72df675df954f83e3ef2b679e3c01d45a412e (patch) | |
| tree | b610621d43a50d913cb1f155b7287dd43ce5ac6d /t | |
| parent | 500f40f555ee1c386dcd8fbd4c8043a7739ec5f6 (diff) | |
| download | perl-17d72df675df954f83e3ef2b679e3c01d45a412e.tar.gz | |
porting/utils.t: explain what caused failures
On an error, include in the diagnostic output what perl command we were
running that triggered the failure.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/utils.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/porting/utils.t b/t/porting/utils.t index 7ff13cfdad..2fe9075b2c 100644 --- a/t/porting/utils.t +++ b/t/porting/utils.t @@ -86,7 +86,8 @@ foreach my $victim (@victims) { if $excuses{$victim}; my $got = runperl(switches => ['-c'], progfile => $victim, stderr => 1, nolib => 1); - is($got, "$victim syntax OK\n", "$victim compiles"); + is($got, "$victim syntax OK\n", "$victim compiles") + or diag("when executing perl with '-c $victim'"); } } |