X-Git-Url: http://git.sven.stormbind.net/?p=sven%2Ftclcurl.git;a=blobdiff_plain;f=tests%2FwriteProc.tcl;h=5289f30efd2eb475d0ef2aca160a0a4227822c54;hp=da6fb82c8f31edf36ef51f335033e90824ee8a26;hb=refs%2Ftags%2Fupstream%2F7.22.0;hpb=b0e6fb6e4379fb87fa2854b84a56c5ad49c644da

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