lib/coreutils
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/coreutils.git synced 2025-08-08 18:22:09 +03:00
Code Activity

tests: Coreutils.pm: support running a program that is a shell built-in

Browse Source 
* tests/Coreutils.pm (run_tests): Add support for running a
program like 'test', that is a shell built-in.
This commit is contained in:
Jim Meyering
2008-05-08 01:22:37 +02:00
parent 6a9c6804dd
commit 7fcb73cec0
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/Coreutils.pm
View File

@@ -214,6 +214,11 @@ sub run_tests ($$$$$)
{ {
my ($program_name, $prog, $t_spec, $save_temps, $verbose) = @_; my ($program_name, $prog, $t_spec, $save_temps, $verbose) = @_;
# To indicate that $prog is a shell built-in, you'd make it a string 'ref'.
# E.g., call run_tests ($prog, \$prog, \@Tests, $save_temps, $verbose);
# If it's a ref, invoke it via "env":
my @prog = ref $prog ? ('env', $$prog) : $prog;
# Warn about empty t_spec. # Warn about empty t_spec.
# FIXME # FIXME
@@ -260,7 +265,7 @@ sub run_tests ($$$$$)
return 1 if $bad_test_name; return 1 if $bad_test_name;
# FIXME check exit status # FIXME check exit status
system ($prog, '--version') if $verbose; system (@prog, '--version') if $verbose;
my @junk_files; my @junk_files;
my $fail = 0; my $fail = 0;
@@ -445,7 +450,7 @@ sub run_tests ($$$$$)
$actual{OUT} = "$test_name.O"; $actual{OUT} = "$test_name.O";
$actual{ERR} = "$test_name.E"; $actual{ERR} = "$test_name.E";
push @junk_files, $actual{OUT}, $actual{ERR}; push @junk_files, $actual{OUT}, $actual{ERR};
my @cmd = ($prog, @args, "> $actual{OUT}", "2> $actual{ERR}"); my @cmd = (@prog, @args, "> $actual{OUT}", "2> $actual{ERR}");
$env_prefix $env_prefix
and unshift @cmd, $env_prefix; and unshift @cmd, $env_prefix;
defined $input_pipe_cmd defined $input_pipe_cmd