Lines Matching refs:script
26 my @script = (
74 push(@script, <<'EOT');
82 push(@script, qq(print "ok $test\\n"}\n));
85 push(@script, <<'EOT');
95 push(@script, qq(print "ok $test\\n"}\n));
98 push(@script, <<'EOT');
108 push(@script, qq(print "ok $test\\n"}\n));
123 push(@script, $constants);
131 push(@script, <<EOT);
137 push(@script, qq(print "ok $test\\n";\n));
146 push(@script, <<EOT);
152 push(@script, qq(print "ok $test\\n";\n));
190 push(@script, <<EOT);
196 push(@script, qq(print "ok $test\\n";\n));
204 push @script, <<EOS;
210 push @script, <<EOS;
217 push @script, <<EOS;
224 push @script, <<EOS;
235 push @script, <<EOS;
242 push @script, <<EOS;
251 push @script, <<EOS;
260 push @script, <<EOS;
267 push @script, <<EOS;
276 push @script, <<EOS;
285 push @script, <<EOS;
294 push @script, <<EOS;
301 push @script, <<EOS;
312 push @script, <<EOS;
320 push @script, <<EOS;
328 push @script, <<EOS;
336 push @script, <<EOS;
344 push @script, <<EOS;
352 push @script, <<EOS;
361 push @script, <<'EOS';
367 push @script, <<EOS;
373 push @script, <<EOS;
378 push @script, <<EOS;
384 push @script, <<EOS;
389 push @script, <<EOS;
395 push @script, <<EOS;
400 push @script, <<EOS;
406 push @script, <<EOS;
413 push @script, <<'EOS';
421 push @script, <<EOS;
426 push @script, <<'EOS';
430 push @script, <<EOS;
434 push @script, <<EOS;
438 push @script, <<EOS;
442 push @script, <<EOS;
460 eval join '', @script;
466 push(@script, qq(print "# $op=\n";));
477 push @script, "\$z$i = $val;\n";
482 push @script, "\$res = $try; ";
483 push @script, "check($test, $args[0], \$res, \$z$#args, $args);\n";
493 push @script, "\$res = $try; ";
494 push @script, "check($test, '$try', \$res, \$z$#args, $args);\n";
498 push @script, <<EOB;
513 push @script, qq(print "not " unless (\$zbr == \$z1r and \$zbi == \$z1i););
514 push @script, qq(print "ok $test\\n";\n);
515 push @script, "}\n";
530 push @script, "\$s$i = $val;\n";