summaryrefslogtreecommitdiff
path: root/ACE/tests/run_test.pl
diff options
context:
space:
mode:
authorOssama Othman <ossama-othman@users.noreply.github.com>2007-09-06 17:45:12 +0000
committerOssama Othman <ossama-othman@users.noreply.github.com>2007-09-06 17:45:12 +0000
commit07abb31b300ae836f6ee640b4977fb2191fadfb8 (patch)
tree3f3d617a46e59c0b1cafd224e330c58eb0ad380e /ACE/tests/run_test.pl
parent38a60e447d6bf2201eda237cbf321471767973a7 (diff)
downloadATCD-07abb31b300ae836f6ee640b4977fb2191fadfb8.tar.gz
ChangeLogTag:Thu Sep 6 18:41:36 UTC 2007 Ossama Othman <ossama_othman at symantec dot com>
Diffstat (limited to 'ACE/tests/run_test.pl')
-rwxr-xr-xACE/tests/run_test.pl7
1 files changed, 6 insertions, 1 deletions
diff --git a/ACE/tests/run_test.pl b/ACE/tests/run_test.pl
index fb50e675cf2..878d9d5c91d 100755
--- a/ACE/tests/run_test.pl
+++ b/ACE/tests/run_test.pl
@@ -23,6 +23,7 @@ use Cwd;
use English;
use Getopt::Std;
use FileHandle;
+use File::Basename;
$config_list = new PerlACE::ConfigList;
@@ -258,7 +259,11 @@ sub check_log ($)
else {
$log_suffix = ".log";
}
- local $log = "log/".$program.$log_suffix;
+
+ # Support logs generated by tests in subdirectories, such as tests
+ # found in the SSL subdirectory.
+ local $the_program = basename($program);
+ local $log = "log/".$the_program.$log_suffix;
if (-e "core") {
print STDERR "Error: $program dumped core\n";