diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-04-07 09:16:35 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-04-07 11:10:46 +1000 |
commit | cc83b696b6b5e4cef4e312782a3fff23d5cdb8ad (patch) | |
tree | 8089c23952876392345dfa9e61cdcb915a0c8426 /regtest.tcl | |
parent | d139d42051b3539970ff5ec7fca6deb311e7307c (diff) |
expr: fix crash on invalid ternary order
expr {1 : 2 ? 3}
Reported-by: Ryan Whitworth <me@ryanwhitworth.com>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
-rw-r--r-- | regtest.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index d84e72c..8bc6962 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -272,6 +272,11 @@ puts "TEST 35 PASSED" catch {/ 1 0} puts "TEST 36 PASSED" +# REGTEST 37 +# ternary operator order +catch {expr {1 : 2 ? 3}} +puts "TEST 37 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |