From 48254eefa88287e661e026ea2eab7f9f24857940 Mon Sep 17 00:00:00 2001 From: Dima Kogan Date: Sat, 19 Oct 2013 23:56:12 -0700 Subject: [PATCH] test harness prints out the actual command being executed --- t/plots.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/plots.t b/t/plots.t index 57ec853..a9fd8b8 100644 --- a/t/plots.t +++ b/t/plots.t @@ -2143,16 +2143,16 @@ sub tryplot my @options = ('--exit', '--extracmds', 'unset grid', '--terminal', 'dumb 40,40'); - unshift @options, @{$args{options}}; + my $feedgnuplot = dirname($0) . "/../bin/feedgnuplot"; my $out = ''; my $err = ''; open IN, '-|', $args{cmd} or die "Couldn't open pipe to $args{cmd}"; - run [dirname($0) . "/../bin/feedgnuplot",, @options], + run [$feedgnuplot, @options], \*IN, \$out, \$err; - note( "Running test '$args{testname}'. Running: $args{cmd} | feedgnuplot " . + note( "Running test '$args{testname}'. Running: $args{cmd} | $feedgnuplot " . shell_quote(@options)); is($err, '', "$args{testname} stderr" ); is($out, $args{refplot}, "$args{testname} stdout");