diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-05-11 21:47:27 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-05-12 13:01:58 +1000 |
| commit | 2a3bfa6b1962af2dfb5c6e49d6dd6b3a39714df9 (patch) | |
| tree | 10b4c9be4f293566458d01bb39cfd80378476b81 /regtest.tcl | |
| parent | 46d9d687fa0460dc2f92a14130eca18f496c4645 (diff) | |
| download | jimtcl-2a3bfa6b1962af2dfb5c6e49d6dd6b3a39714df9.zip jimtcl-2a3bfa6b1962af2dfb5c6e49d6dd6b3a39714df9.tar.gz jimtcl-2a3bfa6b1962af2dfb5c6e49d6dd6b3a39714df9.tar.bz2 | |
scan: error on missing conversion char
Don't read invalid memory
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 2b0fe8c..5bc3227 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -295,6 +295,11 @@ lsort r($d) catch {dict remove r($d) m} puts "TEST 40 PASSED" +# REGTEST 41 +# access invalid memory on no scan conversion char +catch {scan x %3} +puts "TEST 41 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |