]> git.sven.stormbind.net Git - sven/tclcurl.git/blob - tests/bufferSize.tcl
Change debhelper compat level to 11 and move the declaration to Build-Depends.
[sven/tclcurl.git] / tests / bufferSize.tcl
1 package require TclCurl
2
3 # This is one contrived example, but it works.
4
5 proc writeToFile {readData} {
6     puts "writeToFile called [incr ::i]"
7     puts -nonewline $::inFile $readData
8
9     return
10 }
11
12 set i 0
13
14 set inFile [open "cosa.tar" w+]
15 fconfigure $inFile -translation binary
16
17 curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" \
18         -writeproc writeToFile -buffersize 250
19
20 close $inFile
21
22
23
24