diff options
Diffstat (limited to 'test/tcl/test006.tcl')
| -rw-r--r-- | test/tcl/test006.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/tcl/test006.tcl b/test/tcl/test006.tcl index f48a12fd..95be2739 100644 --- a/test/tcl/test006.tcl +++ b/test/tcl/test006.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 1996, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -193,7 +193,8 @@ proc test006_body { method {nentries 10000} {reopen 0} {tnum "006"} \ error_check_good get_on_empty [string length $ret] 0 error_check_good dbc_close [$dbc close] 0 if { $txnenv == 1 } { - error_check_good txn [$t commit] 0 + error_check_good txn [$t commit] 0 } -error_check_good db_close [$db close] 0 + puts "\t$tname.d: Close db." + error_check_good db_close [$db close] 0 } |