X-Git-Url: https://git.sven.stormbind.net/?a=blobdiff_plain;f=tests%2FwriteProc.tcl;h=5289f30efd2eb475d0ef2aca160a0a4227822c54;hb=HEAD;hp=da6fb82c8f31edf36ef51f335033e90824ee8a26;hpb=c5c2b241e5700c3b7a1cc681fb837594fdd169ef;p=sven%2Ftclcurl.git

diff --git a/tests/writeProc.tcl b/tests/writeProc.tcl
index da6fb82..5289f30 100755
--- a/tests/writeProc.tcl
+++ b/tests/writeProc.tcl
@@ -4,19 +4,19 @@ package require TclCurl
 
 proc writeToFile {readData} {
     puts "writeToFile called [incr ::i]"
-    puts -nonewline $::inFile $readData
+    puts -nonewline $::outFile $readData
 
     return
 }
 
 set i 0
 
-set inFile [open "cosa.tar" w+]
-fconfigure $inFile -translation binary
+set outFile [open "cosa.tar" w+]
+fconfigure $outFile -translation binary
 
 curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" -writeproc writeToFile
 
-close $inFile
+close $outFile