diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-12-01 17:25:36 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-01 17:35:17 +1000 |
| commit | 7a4644aeb3f15a984497f52012a0f7eb6c403157 (patch) | |
| tree | a66278f0a2fa22ed84202fc71d4ebf0bec0afe00 /tests/alias.test | |
| parent | 4843862936e1dd181a22ecd752dccae7b3d3baef (diff) | |
| download | jimtcl-7a4644aeb3f15a984497f52012a0f7eb6c403157.zip jimtcl-7a4644aeb3f15a984497f52012a0f7eb6c403157.tar.gz jimtcl-7a4644aeb3f15a984497f52012a0f7eb6c403157.tar.bz2 | |
Minor changes for Tcl compatibility
Error messages
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/alias.test')
| -rw-r--r-- | tests/alias.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/alias.test b/tests/alias.test index 201f6e2..57a8d62 100644 --- a/tests/alias.test +++ b/tests/alias.test @@ -119,7 +119,7 @@ test local-1.7 "check no reference procs" { info procs "<reference*" } {} -test local-1.8 "local on non-proc" { +test local-1.8 "local on non-existent command" { list [catch {local set x blah} msg] $msg } {1 {not a command: "blah"}} |