diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 13:53:11 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:46 +1000 |
commit | b149e4415f9a448740cd41e5fd2a5f065262e791 (patch) | |
tree | 8c26563d127da56135188800d5863a2137e34201 /test.tcl | |
parent | 289cf6dfe86b9b8a4e67b908a8bf8afc9fba76be (diff) | |
download | jimtcl-b149e4415f9a448740cd41e5fd2a5f065262e791.zip jimtcl-b149e4415f9a448740cd41e5fd2a5f065262e791.tar.gz jimtcl-b149e4415f9a448740cd41e5fd2a5f065262e791.tar.bz2 |
Add Jim_SetResultFormatted() for simplied messages
Makes creating error messages much simpler
Also convert a couple of long if/else to switch
Also some error message improvements
Also fix some memory leaks
Diffstat (limited to 'test.tcl')
-rw-r--r-- | test.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3810,7 +3810,7 @@ test regexp-6.8 {regexp errors} { catch {unset f1} set f1 44 list [catch {regexp abc abc f1(f2)} msg] $msg -} {1 {couldn't set variable "f1(f2)"}} +} {1 {can't set "f1(f2)": variable isn't array}} test regexp-6.9 {regexp errors, -start bad int check} { list [catch {regexp -start bogus {^$} {}} msg] $msg @@ -3986,7 +3986,7 @@ test regexp-11.7 {regsub errors} { catch {unset f1} set f1 44 list [catch {regsub -nocase aaa aaa xxx f1(f2)} msg] $msg -} {1 {couldn't set variable "f1(f2)"}} +} {1 {can't set "f1(f2)": variable isn't array}} test regexp-11.8 {regsub errors, -start bad int check} { list [catch {regsub -start bogus pattern string rep var} msg] $msg |