fix warning in test.pl diagnostics output.
authorCraig A. Berry <craigberry@mac.com>
Wed, 7 Mar 2012 13:12:00 +0000 (07:12 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 7 Mar 2012 13:13:05 +0000 (07:13 -0600)
2f137bbd018b assumed that $name is always defined, but it isn't
always, and when it's not the resulting undefined value warning
could corrupt test output and even make TODO tests trigger failure
with "unexpected output at test 0."

t/test.pl

index 604cdda..b33c634 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -210,7 +210,10 @@ sub _ok {
        note @mess; # Ensure that the message is properly escaped.
     }
     else {
-        _diag "# Failed test $test - $name $where\n";
+       my $msg = "# Failed test $test - ";
+       $msg.= "$name " if $name;
+       $msg .= "$where\n";
+       _diag $msg;
        _diag @mess;
     }