diff options
Diffstat (limited to 'tests/filecopy.test')
| -rw-r--r-- | tests/filecopy.test | 124 |
1 files changed, 0 insertions, 124 deletions
diff --git a/tests/filecopy.test b/tests/filecopy.test index bf2a8b3..b7c4f47 100644 --- a/tests/filecopy.test +++ b/tests/filecopy.test @@ -60,127 +60,3 @@ 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 -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 |