diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-05-26 14:22:48 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-05-26 14:27:57 +1000 |
| commit | 0858783cc469c095d7e6121d1fc5689760da841e (patch) | |
| tree | 0d249bf186591772b5bcabde5b25832e6c7c1ba9 /regtest.tcl | |
| parent | bd5139c89e714bb7e10a0da55d9a10f51e93516c (diff) | |
| download | jimtcl-0858783cc469c095d7e6121d1fc5689760da841e.zip jimtcl-0858783cc469c095d7e6121d1fc5689760da841e.tar.gz jimtcl-0858783cc469c095d7e6121d1fc5689760da841e.tar.bz2 | |
scan: validate -ve XPG3 specifier
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 e3213b5..15dc3ec 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -330,6 +330,11 @@ puts "TEST 46 PASSED" catch {set a $(99?9,99?9:*9:999)?9)} puts "TEST 47 PASSED" +# REGTEST 48 +# scan: -ve XPG3 specifier +catch {scan a {%-9999999$c}} +puts "TEST 48 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |