summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2013-07-25 17:20:02 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2013-07-25 17:20:02 (GMT)
commit9b087e12907c940eed87b510213ca363ef8d5a4b (patch)
tree0f9d5cc7f65eedcf91e7235edb309521941d1926
parent3b1898a43fd6c834aaf8afa6f35c378f64821e75 (diff)
downloadtcl-9b087e12907c940eed87b510213ca363ef8d5a4b.zip
tcl-9b087e12907c940eed87b510213ca363ef8d5a4b.tar.gz
tcl-9b087e12907c940eed87b510213ca363ef8d5a4b.tar.bz2
Fixed test case variable clash with 'folder'rfe_notifier_fork
-rw-r--r--tests/unixForkEvent.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/unixForkEvent.test b/tests/unixForkEvent.test
index a0c3f19..cbe582e 100644
--- a/tests/unixForkEvent.test
+++ b/tests/unixForkEvent.test
@@ -18,27 +18,27 @@ testConstraint testfork [llength [info commands testfork]]
test unixforkevent-1.1 {fork and test writeable event} \
-constraints testfork \
-body {
- set folder [makeDirectory unixtestfork]
+ set myFolder [makeDirectory unixtestfork]
set pid [testfork]
if {$pid == 0} {
# we are the forked process
set result initialized
- set h [open [file join $folder test.txt] w]
+ set h [open [file join $myFolder test.txt] w]
fileevent $h writable\
"set result writable;\
after cancel [after 1000 {set result timeout}]"
vwait result
close $h
- makeFile $result result.txt $folder
+ makeFile $result result.txt $myFolder
exit
}
# we are the original process
- while {![file readable [file join $folder result.txt]]} {}
- viewFile result.txt $folder
+ while {![file readable [file join $myFolder result.txt]]} {}
+ viewFile result.txt $myFolder
} \
-result {writable} \
-cleanup {
- catch { removeFolder $folder }
+ catch { removeFolder $myFolder }
}
::tcltest::cleanupTests