Imported Upstream version 7.22.0

[sven/tclcurl.git] / tests / writeProc.tcl

diff --git a/tests/writeProc.tcl b/tests/writeProc.tcl
index da6fb82c8f31edf36ef51f335033e90824ee8a26..5289f30efd2eb475d0ef2aca160a0a4227822c54 100755 (executable)
--- 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