summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-19 13:11:44 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-19 13:11:44 (GMT)
commit5c41a9fc8aa1f968ef6bbf23f5713c1341d8d057 (patch)
tree6514378c34294d3aa28f4b9e48a82569957249bf
parent1e752d8ad7755a862ef7cd5d45f3b157b566cd35 (diff)
downloadtcl-5c41a9fc8aa1f968ef6bbf23f5713c1341d8d057.zip
tcl-5c41a9fc8aa1f968ef6bbf23f5713c1341d8d057.tar.gz
tcl-5c41a9fc8aa1f968ef6bbf23f5713c1341d8d057.tar.bz2
Test independence in fCmd.test.
-rw-r--r--tests/fCmd.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 96ab2d5..4e27d22 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -2408,14 +2408,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 {
@@ -2436,6 +2439,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 {
@@ -2446,6 +2450,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]
@@ -2465,20 +2470,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 {