diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-05-12 09:46:37 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-05-12 13:02:03 +1000 |
commit | e288a2541df4b0cfd02cbe3c1b9305d516149d23 (patch) | |
tree | 55d6d265269d20b9892b4977f84763c381879780 /regtest.tcl | |
parent | a14d9438b9a67899be0443f39345fa957677f9b8 (diff) | |
download | jimtcl-e288a2541df4b0cfd02cbe3c1b9305d516149d23.zip jimtcl-e288a2541df4b0cfd02cbe3c1b9305d516149d23.tar.gz jimtcl-e288a2541df4b0cfd02cbe3c1b9305d516149d23.tar.bz2 |
format: Validate too many flags in format string
Avoid a stack overflow
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 7b67586..0761c49 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -305,6 +305,11 @@ puts "TEST 41 PASSED" catch {exec dummy |x second} puts "TEST 42 PASSED" +# REGTEST 43 +# too many flags to format +catch {format %----------------------------------------d 1} +puts "TEST 43 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |