diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-03-03 15:31:58 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:47 +1000 |
commit | dbbc0daa570689105ee6a22af48395fd8dce4b0f (patch) | |
tree | 5d3fa9b1d15818291da887e15a0fdf70e8387349 | |
parent | 6a02b91f4658497abdb84e4390ac0556a7e292a9 (diff) | |
download | jimtcl-dbbc0daa570689105ee6a22af48395fd8dce4b0f.zip jimtcl-dbbc0daa570689105ee6a22af48395fd8dce4b0f.tar.gz jimtcl-dbbc0daa570689105ee6a22af48395fd8dce4b0f.tar.bz2 |
Add tests for 'file copy'
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tests/filecopy.test | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/tests/filecopy.test b/tests/filecopy.test index 3bc1570..bf2a8b3 100644 --- a/tests/filecopy.test +++ b/tests/filecopy.test @@ -122,3 +122,65 @@ file delete tempfile exec rmdir tempdir testreport +source testing.tcl + +file mkdir tempdir + +test filecopy-1.1 "Simple case" { + file copy testio.in tempfile +} {} + +test filecopy-1.2 "Target exists" { + list [catch {file copy testio.in tempfile} msg] $msg +} {1 {error copying "testio.in" to "tempfile": file already exists}} + +test filecopy-1.3 "Source doesn't exist" { + list [catch {file copy missing tempfile} msg] $msg +} {1 {missing: No such file or directory}} + +test filecopy-1.4 "Can't write to target" { + list [catch {file copy testio.in tempdir} msg] $msg +} {1 {error copying "testio.in" to "tempdir": file already exists}} + +test filecopy-1.5 "Source doesn't exist and can't write to target" { + list [catch {file copy missing tempdir} msg] $msg +} {1 {missing: No such file or directory}} + +test filecopy-1.6 "Wrong args" { + list [catch {file copy onearg} msg] $msg +} {1 {wrong # args: must 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"}} + +test filecopy-1.8 "Wrong args" { + list [catch {file copy -blah testio.in tempfile} msg] $msg +} {1 {bad option "-blah": should be -force}} + +file delete tempfile + +test filecopy-2.1 "Simple case (-force)" { + file copy -force testio.in tempfile +} {} + +test filecopy-2.2 "Target exists (-force)" { + file copy -force testio.in tempfile +} {} + +test filecopy-2.3 "Source doesn't exist (-force)" { + list [catch {file copy -force missing tempfile} msg] $msg +} {1 {missing: No such file or directory}} + +test filecopy-2.4 "Can't write to target (-force)" { + list [catch {file copy -force testio.in tempdir} msg] $msg +} {1 {tempdir: Is a directory}} + +test filecopy-2.5 "Source doesn't exist and can't write to target (-force)" { + list [catch {file copy -force missing tempdir} msg] $msg +} {1 {missing: No such file or directory}} + +file delete tempfile +exec rmdir tempdir + +testreport |