diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2015-02-17 17:25:57 +0000 |
|---|---|---|
| committer | <> | 2015-03-17 16:26:24 +0000 |
| commit | 780b92ada9afcf1d58085a83a0b9e6bc982203d1 (patch) | |
| tree | 598f8b9fa431b228d29897e798de4ac0c1d3d970 /test/tcl/wrap.tcl | |
| parent | 7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff) | |
| download | berkeleydb-master.tar.gz | |
Diffstat (limited to 'test/tcl/wrap.tcl')
| -rw-r--r-- | test/tcl/wrap.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/tcl/wrap.tcl b/test/tcl/wrap.tcl index 77c25db5..2bf94588 100644 --- a/test/tcl/wrap.tcl +++ b/test/tcl/wrap.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 2000, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2000, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -31,7 +31,7 @@ if { $argc >= 2 } { # # Account in args for SKIP command, or not. # -if { $skip != "SKIP" && $argc >= 2 } { +if { $skip != "SKIP" && $skip != "ALLOW_PIPE_CLOSE_ERROR" && $argc >= 2 } { set args [lrange $argv 2 end] } @@ -96,6 +96,8 @@ close $f set f [open $testdir/end.$parentpid w] close $f -error_check_good "Pipe close ($childpid: $script $argv: logfile $logfile)"\ - $ret 0 +if { $skip != "ALLOW_PIPE_CLOSE_ERROR" } { + error_check_good "Pipe close ($childpid: $script $argv: logfile\ + $logfile)" $ret 0 +} exit $ret |