diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-05-12 13:00:28 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-05-12 13:02:37 +1000 |
| commit | e1bf40597713aa821eb91c7e6c0aee96519f32c4 (patch) | |
| tree | 11a85c6270c869a0b5bb5eace8a3ccc84956fb6d /regtest.tcl | |
| parent | edf6b0fce509133dccfeda71227240e60606f100 (diff) | |
| download | jimtcl-e1bf40597713aa821eb91c7e6c0aee96519f32c4.zip jimtcl-e1bf40597713aa821eb91c7e6c0aee96519f32c4.tar.gz jimtcl-e1bf40597713aa821eb91c7e6c0aee96519f32c4.tar.bz2 | |
scan: Ensure format is converted to string form
Must have a stringrep before parsing.
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 033f430..854d96a 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -320,6 +320,11 @@ puts "TEST 44 PASSED" catch [list regexp "u{0" x] puts "TEST 45 PASSED" +# REGTEST 46 +# scan with no stringrep +catch {scan $(1) $(1)} +puts "TEST 46 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |