diff options
author | irfan <irfan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2002-11-20 01:55:01 +0000 |
---|---|---|
committer | irfan <irfan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2002-11-20 01:55:01 +0000 |
commit | 32ede8e1ab59e9934bd229b5355bb0969697f9de (patch) | |
tree | 4fd48f0e02ab502efbcceb0767a31a2c8d5d63c1 /bin/auto_run_tests.pl | |
parent | 698f4b12141c17493b6ca84266d77aee019ce06d (diff) | |
download | ATCD-32ede8e1ab59e9934bd229b5355bb0969697f9de.tar.gz |
ChangeLogTag: Tue Nov 19 18:14:10 2002 Pradeep Gore <pradeep@oomworks.com>
Diffstat (limited to 'bin/auto_run_tests.pl')
-rwxr-xr-x | bin/auto_run_tests.pl | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/bin/auto_run_tests.pl b/bin/auto_run_tests.pl index 4b011b16014..e0bd2b73b47 100755 --- a/bin/auto_run_tests.pl +++ b/bin/auto_run_tests.pl @@ -65,10 +65,22 @@ foreach $test ($config_list->valid_entries ()) { chdir ($ACE_ROOT."/$directory") || die "Error: Cannot chdir to $ACE_ROOT/$directory"; - if (! -e $program) { - print STDERR "Error: $test does not exist\n"; - next; - } + if ($program =~ /(.*?) (.*)/) + { + if (! -e $1) + { + print STDERR "Error: $directory.$1 does not exist\n"; + next; + } + } + else + { + if (! -e $program) + { + print STDERR "Error: $directory.$program does not exist\n"; + next; + } + } ### Genrate the -ExeSubDir and -Config options my $inherited_options = " -ExeSubDir $PerlACE::Process::ExeSubDir "; |