diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-04-28 12:18:41 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-04-28 12:19:25 +1000 |
commit | 2109114de9f21f13641f01fabc1473146b5f39d9 (patch) | |
tree | 868881b2054d77eebe5ac1f7ef4cbea8885a9df5 /regtest.tcl | |
parent | f6a2b97623c57c2247156b3901bf2ecfd543d203 (diff) | |
download | jimtcl-2109114de9f21f13641f01fabc1473146b5f39d9.zip jimtcl-2109114de9f21f13641f01fabc1473146b5f39d9.tar.gz jimtcl-2109114de9f21f13641f01fabc1473146b5f39d9.tar.bz2 |
aio: Fix conflict between onexception and writable
onexecption was using the wrong location
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
-rw-r--r-- | regtest.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/regtest.tcl b/regtest.tcl index 68cc0d1..8e25377 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -240,11 +240,11 @@ puts "TEST 33 PASSED" # REGTEST 34 # onexception and writable conflict -stdout onexception {incr x} -stdout writable {incr y} -stdout onexception {} -stdout writable {} - +set f [open [info nameofexecutable]] +$f onexception {incr x} +$f writable {incr y} +$f close +puts "TEST 34 PASSED" # TAKE THE FOLLOWING puts AS LAST LINE |