diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-07-12 06:40:36 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-07-12 06:48:43 +1000 |
commit | da293a1eef2ddd709f10b63744032302ca3597d3 (patch) | |
tree | 6a51da2ea65e95cd101362b6fc4713a5b8d5b16f /regtest.tcl | |
parent | 4e2cdacaad9473324807009b125907c76a7c7569 (diff) | |
download | jimtcl-da293a1eef2ddd709f10b63744032302ca3597d3.zip jimtcl-da293a1eef2ddd709f10b63744032302ca3597d3.tar.gz jimtcl-da293a1eef2ddd709f10b63744032302ca3597d3.tar.bz2 |
string last: fix segfault with invalid index
[string last foo bar -1] gave segfault due to missing
check for invalid index.
Fixes #161
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 14ce59f..5b7249c 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -355,6 +355,11 @@ puts "TEST 51 PASSED" catch {lsearch -all -command abc def} puts "TEST 52 PASSED" +# REGTEST 53 +# string last with invalid index +catch {string last foo bar -1} +puts "TEST 53 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE |