Lines Matching refs:prog
344 # prog => one-liner (avoid quotes)
387 if (defined $args{prog}) {
388 die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
390 $args{progs} = [$args{prog}]
395 foreach my $prog (@{$args{progs}}) {
397 $runperl .= qq ( -e "$prog" );
400 $runperl .= qq ( -e '$prog' );
531 my($prog, $resolve, $runperl_args, $name) = @_;
541 $prog =~ s#/dev/null#NL:#;
544 $prog =~ s{if \(-e _ and -f _ and -r _\)}
548 print TEST $prog, "\n";
573 _diag "# PROG: \n$prog\n";
581 ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
595 my($prog, $expected, $runperl_args, $name) = @_;
597 _fresh_perl($prog,
609 my($prog, $expected, $runperl_args, $name) = @_;
611 _fresh_perl($prog,