diff options
| author | Steve Bennett <steveb@workware.net.au> | 2014-04-28 12:17:03 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2014-04-28 12:17:03 +1000 |
| commit | f6a2b97623c57c2247156b3901bf2ecfd543d203 (patch) | |
| tree | d5a62d57383b3a72771e085a82637ab5ab46b357 | |
| parent | bf3fb3f7e7c9789fed8b76e4f90400cf587eeb8a (diff) | |
| download | jimtcl-f6a2b97623c57c2247156b3901bf2ecfd543d203.zip jimtcl-f6a2b97623c57c2247156b3901bf2ecfd543d203.tar.gz jimtcl-f6a2b97623c57c2247156b3901bf2ecfd543d203.tar.bz2 | |
Add test
| -rw-r--r-- | regtest.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 3aaf3d2..68cc0d1 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -238,6 +238,14 @@ puts "TEST 32 PASSED" array unset blahblah abc puts "TEST 33 PASSED" +# REGTEST 34 +# onexception and writable conflict +stdout onexception {incr x} +stdout writable {incr y} +stdout onexception {} +stdout writable {} + + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |