diff options
author | oehhar <harald.oehlmann@elmicron.de> | 2013-07-25 17:20:02 (GMT) |
---|---|---|
committer | oehhar <harald.oehlmann@elmicron.de> | 2013-07-25 17:20:02 (GMT) |
commit | 9b087e12907c940eed87b510213ca363ef8d5a4b (patch) | |
tree | 0f9d5cc7f65eedcf91e7235edb309521941d1926 /tests | |
parent | 3b1898a43fd6c834aaf8afa6f35c378f64821e75 (diff) | |
download | tcl-9b087e12907c940eed87b510213ca363ef8d5a4b.zip tcl-9b087e12907c940eed87b510213ca363ef8d5a4b.tar.gz tcl-9b087e12907c940eed87b510213ca363ef8d5a4b.tar.bz2 |
Fixed test case variable clash with 'folder'rfe_notifier_fork
Diffstat (limited to 'tests')
-rw-r--r-- | tests/unixForkEvent.test | 12 |
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 |