zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-05-05 22:11:12 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

test harness prints out the actual command being executed

Browse Source
This commit is contained in:
Dima Kogan 2013-10-19 23:56:12 -07:00
parent 54862ec2fd
commit 48254eefa8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/plots.t
View File

@ -2143,16 +2143,16 @@ sub tryplot
my @options = ('--exit', my @options = ('--exit',
'--extracmds', 'unset grid', '--extracmds', 'unset grid',
'--terminal', 'dumb 40,40'); '--terminal', 'dumb 40,40');
unshift @options, @{$args{options}}; unshift @options, @{$args{options}};
my $feedgnuplot = dirname($0) . "/../bin/feedgnuplot";
my $out = ''; my $out = '';
my $err = ''; my $err = '';
open IN, '-|', $args{cmd} or die "Couldn't open pipe to $args{cmd}"; 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; \*IN, \$out, \$err;
note( "Running test '$args{testname}'. Running: $args{cmd} | feedgnuplot " . note( "Running test '$args{testname}'. Running: $args{cmd} | $feedgnuplot " .
shell_quote(@options)); shell_quote(@options));
is($err, '', "$args{testname} stderr" ); is($err, '', "$args{testname} stderr" );
is($out, $args{refplot}, "$args{testname} stdout"); is($out, $args{refplot}, "$args{testname} stdout");