diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-08-12 12:37:56 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:50 +1000 |
commit | 3d5db752ffeaf40e616198872083b3a00eadc36b (patch) | |
tree | 3f22805afc71701f38f78821693d1f26a30de251 /tests/exec.test | |
parent | eff647111d79428d586446349f2eca2110e97554 (diff) | |
download | jimtcl-3d5db752ffeaf40e616198872083b3a00eadc36b.zip jimtcl-3d5db752ffeaf40e616198872083b3a00eadc36b.tar.gz jimtcl-3d5db752ffeaf40e616198872083b3a00eadc36b.tar.bz2 |
Small improvements to tests
Make exec-9.7 test more reliable
Quieten jim tests unless running manually
Add jim pipe example
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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. |