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/filecopy.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/filecopy.test')
-rw-r--r-- | tests/filecopy.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/filecopy.test b/tests/filecopy.test index c5d097d..853649b 100644 --- a/tests/filecopy.test +++ b/tests/filecopy.test @@ -31,11 +31,11 @@ test filecopy-1.5 "Source doesn't exist and can't write to target" { test filecopy-1.6 "Wrong args" { list [catch {file copy onearg} msg] $msg -} {1 {wrong # args: must be "file copy ?-force? source dest"}} +} {1 {wrong # args: should be "file copy ?-force? source dest"}} test filecopy-1.7 "Wrong args" { list [catch {file copy too many args here} msg] $msg -} {1 {wrong # args: must be "file copy ?-force? source dest"}} +} {1 {wrong # args: should be "file copy ?-force? source dest"}} test filecopy-1.8 "Wrong args" { list [catch {file copy -blah testio.in tempfile} msg] $msg |