diff options
author | dgp <dgp@users.sourceforge.net> | 2013-03-19 13:13:37 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-03-19 13:13:37 (GMT) |
commit | dbafb5fcfcc5e7ccf698b8a0bbfbe7a1eceaaed5 (patch) | |
tree | c4b390b54c4df0fb7d851785802afe7dc6ea346d /tests/fCmd.test | |
parent | 2d0dd29466f03e0fc1db5e44ab8325ec3e627395 (diff) | |
parent | 6f7bddf8cda3d77db571c7fd4efe5f67c06ea118 (diff) | |
download | tcl-dbafb5fcfcc5e7ccf698b8a0bbfbe7a1eceaaed5.zip tcl-dbafb5fcfcc5e7ccf698b8a0bbfbe7a1eceaaed5.tar.gz tcl-dbafb5fcfcc5e7ccf698b8a0bbfbe7a1eceaaed5.tar.bz2 |
Test independence in fCmd.test
Diffstat (limited to 'tests/fCmd.test')
-rw-r--r-- | tests/fCmd.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index 325b374..8f27ad4 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -2441,14 +2441,17 @@ test fCmd-28.12 {file link: cd into a link} -setup { return "ok" } } -cleanup { + file delete -force abc.link cd [workingDirectory] } -result ok test fCmd-28.13 {file link} -constraints {linkDirectory} -setup { cd [temporaryDirectory] + file link abc.link abc.dir } -body { # duplicate link throws error file link abc.link abc.dir } -returnCodes error -cleanup { + file delete -force abc.link cd [workingDirectory] } -result {could not create new link "abc.link": that path already exists} test fCmd-28.14 {file link: deletes link not dir} -setup { @@ -2469,6 +2472,7 @@ test fCmd-28.15.1 {file link: copies link not dir} -setup { # directory, not a link (links trace to endpoint). list [file type abc2.link] [file tail [file link abc.link]] } -cleanup { + file delete -force abc.link cd [workingDirectory] } -result {directory abc.dir} test fCmd-28.15.2 {file link: copies link not dir} -setup { @@ -2479,6 +2483,7 @@ test fCmd-28.15.2 {file link: copies link not dir} -setup { file copy abc.link abc2.link list [file type abc2.link] [file tail [file link abc2.link]] } -cleanup { + file delete -force abc.link cd [workingDirectory] } -result {link abc.dir} cd [temporaryDirectory] @@ -2498,20 +2503,25 @@ test fCmd-28.16 {file link: glob inside link} -setup { file link abc.link abc.dir lsort [glob -dir abc.link -tails *] } -cleanup { + file delete -force abc.link cd [workingDirectory] } -result {abc.file abc2.file} test fCmd-28.17 {file link: glob -type l} -setup { cd [temporaryDirectory] + file link abc.link abc.dir } -constraints {linkDirectory} -body { glob -dir [pwd] -type l -tails abc* } -cleanup { + file delete -force abc.link cd [workingDirectory] } -result {abc.link} test fCmd-28.18 {file link: glob -type d} -constraints linkDirectory -setup { cd [temporaryDirectory] + file link abc.link abc.dir } -body { lsort [glob -dir [pwd] -type d -tails abc*] } -cleanup { + file delete -force abc.link cd [workingDirectory] } -result [lsort [list abc.link abc.dir abc2.dir]] test fCmd-28.19 {file link: relative paths} -setup { |