From 9b087e12907c940eed87b510213ca363ef8d5a4b Mon Sep 17 00:00:00 2001
From: oehhar <harald.oehlmann@elmicron.de>
Date: Thu, 25 Jul 2013 17:20:02 +0000
Subject: Fixed test case variable clash with 'folder'

---
 tests/unixForkEvent.test | 12 ++++++------
 1 file 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
-- 
cgit v0.12