diff options
Diffstat (limited to 'tests/exec.test')
-rw-r--r-- | tests/exec.test | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/exec.test b/tests/exec.test index 47b246f..e1b6e36 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -313,10 +313,11 @@ test exec-9.6 {commands returning errors} { list [catch {exec sh -c "echo error msg 1>&2"} msg] $msg } {0 {error msg}} test exec-9.7 {commands returning errors} { - list [catch {exec sh -c "echo error msg 1>&2" \ - | sh -c "echo error msg 1>&2"} msg] $msg -} {0 {error msg -error msg}} + # Note: Use sleep here to ensure the order + list [catch {exec sh -c "echo error msg 1 1>&2" \ + | sh -c "sleep 1; echo error msg 2 1>&2"} msg] $msg +} {0 {error msg 1 +error msg 2}} # Errors in executing the Tcl command, as opposed to errors in the # processes that are invoked. |