On Wed Aug 16 23:06:53 2006, coke wrote:
> Anything referring to TEST_PROG should probably be renamed to
> "parrot" or "executable" based on context.
>
For reference ...
I 'acked' and got the instances of TEST_PROG found in the attachment
TEST_PROG.instances.txt.
kid51
languages/APL/t/harness:30:if ($ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~
/\b--gc-debug\b/) {
languages/APL/t/harness:31: $ENV{TEST_PROG_ARGS} .= " --gc-debug";
languages/c99/lib/Parrot/Test/C99.pm:39: my $args = $ENV{TEST_PROG_ARGS} ||
'';
languages/lua/t/alarm.t:28:if ( exists $ENV{PARROT_LUA_TEST_PROG} ) {
languages/lua/t/package.t:175:skip('only with Parrot', 1) if (exists
$ENV{PARROT_LUA_TEST_PROG});
languages/lua/t/package.t:253:skip('only with Parrot', 3) if (exists
$ENV{PARROT_LUA_TEST_PROG});
languages/lua/t/Parrot/Test/Lua.pm:54: my $lua_test =
$ENV{PARROT_LUA_TEST_PROG} || q{};
languages/lua/t/Parrot/Test/Lua.pm:59: my $test_prog_args =
$ENV{TEST_PROG_ARGS} || q{};
languages/lua/t/Parrot/Test/Lua.pm:62: @test_prog = (
"$ENV{PARROT_LUA_TEST_PROG} ${test_prog_args} languages/${lang_fn} $params", );
languages/lua/t/shootout.t:119: skip('low memory', 1) unless (exists
$ENV{PARROT_LUA_TEST_PROG});
languages/lua/t/shootout.t:151: skip('maximum recursion depth exceeded', 1)
unless (exists $ENV{PARROT_LUA_TEST_PROG});
languages/lua/t/shootout.t:188: skip('maximum recursion depth exceeded', 1)
unless (exists $ENV{PARROT_LUA_TEST_PROG});
languages/lua/t/shootout.t:203: skip('low memory', 1) unless (exists
$ENV{PARROT_LUA_TEST_PROG});
languages/m4/lib/Parrot/Test/M4/Gnu.pm:24: my $test_prog_args =
$ENV{TEST_PROG_ARGS} || q{};
languages/m4/lib/Parrot/Test/M4/Gnu.pm:27: return
("$ENV{PARROT_M4_TEST_PROG} $test_prog_args ${lang_fn}");
languages/m4/lib/Parrot/Test/M4/PIR.pm:25: my $test_prog_args =
$ENV{TEST_PROG_ARGS} || q{};
languages/m4/lib/Parrot/Test/M4.pm:38: return $ENV{PARROT_M4_TEST_PROG}
languages/m4/t/builtins/001_all.t:62: $ENV{TEST_PROG_ARGS} =
'--prefix-builtins';
languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm:47: my
$test_prog_args = $ENV{TEST_PROG_ARGS} || '';
languages/parrot_compiler/t/basic/hello.t:34:$ENV{TEST_PROG_ARGS} =
'parrot.pbc';
languages/parrot_compiler/t/basic/hello.t:36:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:38:$ENV{TEST_PROG_ARGS} =
'parrot.pasm';
languages/parrot_compiler/t/basic/hello.t:40:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:42:$ENV{TEST_PROG_ARGS} =
'parrot_compiler.pbc --language=PASM';
languages/parrot_compiler/t/basic/hello.t:44:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:46:$ENV{TEST_PROG_ARGS} =
'parrot_compiler.pbc --language=PASM';
languages/parrot_compiler/t/basic/hello.t:48:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:53: $ENV{TEST_PROG_ARGS} =
'parrot_compiler.pasm --language=PASM';
languages/parrot_compiler/t/basic/hello.t:55:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:60:$ENV{TEST_PROG_ARGS} =
'parrot_compiler.pbc --language=PIR';
languages/parrot_compiler/t/basic/hello.t:62:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:64:$ENV{TEST_PROG_ARGS} =
'parrot_compiler.pir --language=PIR';
languages/parrot_compiler/t/basic/hello.t:66:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:71: $ENV{TEST_PROG_ARGS} =
'parrot_compiler.pasm --language=PIR';
languages/parrot_compiler/t/basic/hello.t:73:
$ENV{TEST_PROG_ARGS} );
languages/parrot_compiler/t/basic/hello.t:79: $ENV{TEST_PROG_ARGS} =
'parrot_compiler.pasm --language=PAST';
languages/parrot_compiler/t/basic/hello.t:81:
$ENV{TEST_PROG_ARGS} );
languages/tcl/lib/Parrot/Test/Tcl.pm:66: $TEST_PROG_ARGS =
$ENV{TEST_PROG_ARGS} || '';
languages/tcl/lib/Parrot/Test/Tcl.pm:67: my $args = $TEST_PROG_ARGS;
languages/tcl/README.pod:58:C<TEST_PROG_ARGS=-G make test>. Send the results of
both to the mailing list
languages/tcl/t/harness:31:$ENV{TEST_PROG_ARGS} = "" unless
defined($ENV{TEST_PROG_ARGS});
languages/tcl/t/harness:34: if ( $ENV{TEST_PROG_ARGS} !~ /\b$option\b/) {
languages/tcl/t/harness:35: $ENV{TEST_PROG_ARGS} .= " $option";
languages/tcl/t/harness:40:while ($ENV{TEST_PROG_ARGS} =~ s/-D(\d*)//) {
languages/tcl/t/harness:45: $ENV{TEST_PROG_ARGS} .= "-D$DTotal";
lib/Parrot/Test/APL.pm:32: my $args = $ENV{TEST_PROG_ARGS} || '';
lib/Parrot/Test/Cardinal.pm:40: my $args = $ENV{TEST_PROG_ARGS} || '';
lib/Parrot/Test/Harness.pm:65: if ( $ENV{TEST_PROG_ARGS} &&
$ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/ ) {
lib/Parrot/Test/Harness.pm:66: $ENV{TEST_PROG_ARGS} .= " --gc-debug";
lib/Parrot/Test/Perl6.pm:117: my $args = $ENV{TEST_PROG_ARGS} || '';
lib/Parrot/Test/PIR_PGE.pm:36: my $args = $ENV{TEST_PROG_ARGS} || '';
lib/Parrot/Test/Punie.pm:32: my $args = $ENV{TEST_PROG_ARGS} || '';
lib/Parrot/Test.pm:423: my $args = $ENV{TEST_PROG_ARGS} || '';
lib/Parrot/Test.pm:555: my $args = $ENV{TEST_PROG_ARGS} || '';
t/compilers/imcc/syn/tail.t:15:$ENV{TEST_PROG_ARGS} = '-Oc';
t/compilers/tge/harness:15:if ($ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~
/\b--gc-debug\b/) {
t/compilers/tge/harness:16: $ENV{TEST_PROG_ARGS} .= " --gc-debug";
t/examples/shootout.t:98: $ENV{TEST_PROG_ARGS} = $args;
t/harness:112:# Suck the short options into the TEST_PROG_ARGS evar:
t/harness:147:$ENV{TEST_PROG_ARGS} = $args;
t/pmc/namespace.t:638: if ( exists $ENV{TEST_PROG_ARGS} and
$ENV{TEST_PROG_ARGS} =~ m/-r/ );
t/pmc/sub.t:934: if ( exists $ENV{TEST_PROG_ARGS} and $ENV{TEST_PROG_ARGS}
=~ m/-r/ ) {
