diff options
Diffstat (limited to 'storage/bdb/test/lock003.tcl')
| -rw-r--r-- | storage/bdb/test/lock003.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/storage/bdb/test/lock003.tcl b/storage/bdb/test/lock003.tcl index 91a8a2e90f6..a535142838c 100644 --- a/storage/bdb/test/lock003.tcl +++ b/storage/bdb/test/lock003.tcl @@ -1,9 +1,9 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996-2002 +# Copyright (c) 1996-2004 # Sleepycat Software. All rights reserved. # -# $Id: lock003.tcl,v 11.25 2002/09/05 17:23:06 sandstro Exp $ +# $Id: lock003.tcl,v 11.28 2004/01/28 03:36:28 bostic Exp $ # # TEST lock003 # TEST Exercise multi-process aspects of lock. Generate a bunch of parallel @@ -55,8 +55,10 @@ proc lock003 { {iter 500} {max 1000} {procs 5} } { watch_procs $pidlist 30 10800 # Check for test failure - set e [eval findfail [glob $testdir/lock003.*.out]] - error_check_good "FAIL: error message(s) in log files" $e 0 + set errstrings [eval findfail [glob $testdir/lock003.*.out]] + foreach str $errstrings { + puts "FAIL: error message in .out file: $str" + } # Remove log files for { set i 0 } {$i < $procs} {incr i} { |