Make command_like output more compact

Consistently print the test name, not the full command, which can be
quite lenghty and include temporary directory names and other
distracting details.

Reviewed-by: Michael Paquier <michael.paquier@gmail.com>

diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
index 649fd821733f13a7e8d450a89d545b4d09047759..c7b3262087d995ed5bd0051ccc700002cc659201 100644 (file)
--- a/src/test/perl/TestLib.pm
+++ b/src/test/perl/TestLib.pm
@@ -276,8 +276,8 @@ sub command_like
        my ($stdout, $stderr);
        print("# Running: " . join(" ", @{$cmd}) . "\n");
        my $result = IPC::Run::run $cmd, '>', \$stdout, '2>', \$stderr;
-       ok($result, "@$cmd exit code 0");
-       is($stderr, '', "@$cmd no stderr");
+       ok($result, "$test_name: exit code 0");
+       is($stderr, '', "$test_name: no stderr");
        like($stdout, $expected_stdout, "$test_name: matches");
 }