diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-05-26 14:22:07 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-05-26 14:28:10 +1000 |
commit | 8a0aae566304774210aaeaaac929efe3773b3c60 (patch) | |
tree | 65e422d388dc504ce14ab3aa5eea5a20dd7148ff /regtest.tcl | |
parent | 0858783cc469c095d7e6121d1fc5689760da841e (diff) | |
download | jimtcl-8a0aae566304774210aaeaaac929efe3773b3c60.zip jimtcl-8a0aae566304774210aaeaaac929efe3773b3c60.tar.gz jimtcl-8a0aae566304774210aaeaaac929efe3773b3c60.tar.bz2 |
format: validate too long precision
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 15dc3ec..aae22d5 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -335,6 +335,11 @@ puts "TEST 47 PASSED" catch {scan a {%-9999999$c}} puts "TEST 48 PASSED" +# REGTEST 49 +# format: precision too large +catch {format %1.9999999999f 1.0} +puts "TEST 49 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |