summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-18 18:37:39 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-18 18:37:39 (GMT)
commitb883f6eb594219c46dc8aaabe16470d95e33bcf8 (patch)
tree0d8e12b8c1171c2c1bec8e7b8aba1cb71114e7d6
parent319d55d1fb626ba5c3fd469ec4fc8e57a3103f78 (diff)
parent5c5c9a3e8402e5c96f8bb5d8384f712a22cb59ae (diff)
downloadtcl-b883f6eb594219c46dc8aaabe16470d95e33bcf8.zip
tcl-b883f6eb594219c46dc8aaabe16470d95e33bcf8.tar.gz
tcl-b883f6eb594219c46dc8aaabe16470d95e33bcf8.tar.bz2
Test independence in fileSystem.test
-rw-r--r--tests/fileSystem.test19
1 files changed, 14 insertions, 5 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index b098f35..972c611 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -138,13 +138,18 @@ test filesystem-1.9 {link normalisation} -setup {
testPathEqual [file normalize [file join dir.dir linkinside.file foo]] \
[file normalize [file join dir.link inside.file foo]]
} -result ok
-test filesystem-1.10 {link normalisation: double link} {unix hasLinks} {
+test filesystem-1.10 {link normalisation: double link} -constraints {
+ unix hasLinks
+} -body {
file link dir2.link dir.link
testPathEqual [file normalize [file join dir.dir linkinside.file foo]] \
[file normalize [file join dir2.link inside.file foo]]
-} ok
+} -cleanup {
+ file delete dir2.link
+} -result ok
makeDirectory dir2.file
test filesystem-1.11 {link normalisation: double link, back in tree} {unix hasLinks} {
+ file link dir2.link dir.link
file link [file join dir2.file dir2.link] [file join .. dir2.link]
testPathEqual [file normalize [file join dir.dir linkinside.file foo]] \
[file normalize [file join dir2.file dir2.link inside.file foo]]
@@ -373,7 +378,9 @@ test filesystem-2.0 {new native path} {unix} {
# Make sure the testfilesystem hasn't been registered.
if {[testConstraint testfilesystem]} {
+ proc resetfs {} {
while {![catch {testfilesystem 0}]} {}
+ }
}
test filesystem-3.1 {Tcl_FSRegister & Tcl_FSUnregister} testfilesystem {
@@ -388,12 +395,14 @@ test filesystem-3.3 {Tcl_FSRegister} testfilesystem {
testfilesystem 0
testfilesystem 0
} {unregistered}
-test filesystem-3.4 {Tcl_FSRegister} testfilesystem {
+test filesystem-3.4 {Tcl_FSRegister} -constraints testfilesystem -body {
testfilesystem 1
file system bar
-} {reporting}
-test filesystem-3.5 {Tcl_FSUnregister} testfilesystem {
+} -cleanup {
testfilesystem 0
+} -result {reporting}
+test filesystem-3.5 {Tcl_FSUnregister} testfilesystem {
+ resetfs
lindex [file system bar] 0
} {native}