diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-11-26 14:54:54 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-11-26 14:56:15 +1000 |
| commit | 60dfb023c4afa95047e0fa8db49830ccb46446b2 (patch) | |
| tree | fe6022b252e01fe61b5e95c86c4094e6458abc56 /regtest.tcl | |
| parent | 67cfaf5449800e49524377ccb61f6c8221f515dd (diff) | |
| download | jimtcl-60dfb023c4afa95047e0fa8db49830ccb46446b2.zip jimtcl-60dfb023c4afa95047e0fa8db49830ccb46446b2.tar.gz jimtcl-60dfb023c4afa95047e0fa8db49830ccb46446b2.tar.bz2 | |
Bug fix: crash parsing invalid dict sugar
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 08e6339..b9f3f00 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -105,6 +105,11 @@ catch {a $msg $opts(-errorinfo)} proc a {} { rename a newa} a +# REGTEST 17 +# 26 Nov 2010 - crashes on invalid dict sugar +catch {eval {$x(}} +puts "TEST 17 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |