diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-27 14:11:42 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:46 +1000 |
commit | 88694720353f9c0ad65f8e2ce31d5e1b645474d6 (patch) | |
tree | 7507948ca4cff46dad44d75e8e3ce39b59c7f31f /tests/exec.test | |
parent | 82fcf63727049e8b97238ca8e419d3ea96d304a0 (diff) | |
download | jimtcl-88694720353f9c0ad65f8e2ce31d5e1b645474d6.zip jimtcl-88694720353f9c0ad65f8e2ce31d5e1b645474d6.tar.gz jimtcl-88694720353f9c0ad65f8e2ce31d5e1b645474d6.tar.bz2 |
Add exec support for 2>@1
See TIP #202: http://www.tcl.tk/cgi-bin/tct/tip/202.html
Diffstat (limited to 'tests/exec.test')
-rw-r--r-- | tests/exec.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/exec.test b/tests/exec.test index f37b5fb..47b246f 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -454,6 +454,10 @@ test exec-15.6 {standard error redirection} { >& gorp.file 2> gorp.file2 | echo biz baz list [exec cat gorp.file] [exec cat gorp.file2] } {{biz baz} {foo bar}} +test exec-15.7 {combine standard output/standard error} { + exec sh -c "echo foo bar 1>&2" > gorp.file 2>@1 + exec cat gorp.file +} {foo bar} test exec-16.1 {flush output before exec} { set f [open gorp.file w] |