Add tests for 'file copy'

Signed-off-by: Steve Bennett <steveb@workware.net.au>

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