diff options
Diffstat (limited to 'db/test/test106.tcl')
| -rw-r--r-- | db/test/test106.tcl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/db/test/test106.tcl b/db/test/test106.tcl index 7a8163fc5..48c1476a2 100644 --- a/db/test/test106.tcl +++ b/db/test/test106.tcl @@ -1,15 +1,14 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 2003-2004 -# Sleepycat Software. All rights reserved. +# Copyright (c) 2003-2006 +# Oracle Corporation. All rights reserved. # -# $Id: test106.tcl,v 1.4 2004/01/28 03:36:32 bostic Exp $ +# $Id: test106.tcl,v 12.5 2006/08/24 14:46:41 bostic Exp $ # # TEST test106 # TEST # TEST # TEST - proc test106 { method {nitems 100} {niter 200} {tnum "106"} args } { source ./include.tcl global dict @@ -105,4 +104,9 @@ proc test106 { method {nitems 100} {niter 200} {tnum "106"} args } { watch_procs $pidlist 10 tclkill $dpid } + + # If this test created the env, close it. + if { $eindex == -1 } { + error_check_good env_close [$env close] 0 + } } |