tests use some of the nicer new syntax

This commit is contained in:
Dima Kogan 2014-02-05 13:53:34 -08:00
parent 4fd1c390ff
commit 6cb1574e2b

View File

@ -804,7 +804,7 @@ EOF
tryplot( testname => 'Error bars (using extraValuesPerPoint)', tryplot( testname => 'Error bars (using extraValuesPerPoint)',
cmd => q{seq 5 | gawk '{print $1,$1,$1/10}'}, cmd => q{seq 5 | gawk '{print $1,$1,$1/10}'},
options => [qw(--domain), options => [qw(--domain),
qw(--extraValuesPerPoint 1 --curvestyle 0), 'with errorbars'], qw(--extraValuesPerPoint 1 --with errorbars)],
refplot => <<'EOF' ); refplot => <<'EOF' );
@ -2280,7 +2280,7 @@ sub tryplot
my %args = @_; my %args = @_;
my @options = ('--exit', my @options = ('--exit',
'--extracmds', 'unset grid', qw(--unset grid),
'--terminal', 'dumb 100,40'); '--terminal', 'dumb 100,40');
unshift @options, @{$args{options}}; unshift @options, @{$args{options}};