diff options
| author | Steve Huston <shuston@riverace.com> | 2005-07-29 18:27:22 +0000 |
|---|---|---|
| committer | Steve Huston <shuston@riverace.com> | 2005-07-29 18:27:22 +0000 |
| commit | 122e5ceb9e9af8e76e1bfe19c5a5c6d9e381ff55 (patch) | |
| tree | 01f4f8f24a8a358fedac9f6c5997d8c1c6332462 /tests | |
| parent | 55e40ae548d05c069f4bb63dc00b1bbb445add08 (diff) | |
| download | ATCD-122e5ceb9e9af8e76e1bfe19c5a5c6d9e381ff55.tar.gz | |
ChangeLogTag:Fri Jul 29 14:25:12 2005 Steve Huston <shuston@riverace.com>
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/run_test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/run_test.pl b/tests/run_test.pl index fd545d23886..6aa08705d9e 100755 --- a/tests/run_test.pl +++ b/tests/run_test.pl @@ -314,7 +314,7 @@ sub check_log ($) # sub-log has an error, print the sub-log. opendir (THISDIR, "log"); local $sublognames = "$program\-.*".$log_suffix; - @sublogs = grep (/$sublognames/, readdir (THISDIR)); + @sublogs = grep (/^$sublognames/, readdir (THISDIR)); closedir (THISDIR); foreach $log (@sublogs) { # Just like the main log, but no start/end check @@ -353,7 +353,7 @@ sub check_log ($) } if ($number_starting != $number_ending) { - print STDERR "Error ($log): Nuber of 'Starting' does not match number of 'Ending' ($number_starting != $number_ending)\n"; + print STDERR "Error ($log): Number of 'Starting' does not match number of 'Ending' ($number_starting != $number_ending)\n"; $print_log = 1; } |