Lines Matching refs:args
21 my ($args, $op, $target, $test, $test_set, $try, $val, $zvalue, @set, @val);
52 my @args = split(/:/);
60 test($zvalue, $target, @args);
63 test($op, undef, @args);
353 my ($op, $z, @args) = @_;
358 for ($i = 0; $i < @args; $i++) {
359 $val = value($args[$i]);
363 $args = "'$op'"; # Really the value
366 push @script, "check($test, $args[0], \$res, \$z$#args, $args);\n";
368 my ($try, $args);
369 if (@args == 2) {
371 $args = "'$args[0]'";
374 $args = "'$args[0]', '$args[1]'";
377 push @script, "check($test, '$try', \$res, \$z$#args, $args);\n";
378 if (@args > 2 and $baop) { # binary assignment ops
392 check($test, '\$z0 $op= \$z1', \$za, \$z$#args, $args);
458 my $args = (@z == 1) ? "z = $z[0]" : "z0 = $z[0], z1 = $z[1]";
459 print "# '$try' expected: '$expected' got: '$got' for $args\n";