tests/stderrNoStderr.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4
   5 puts "First it goes into error.txt"
   6 $curlHandle configure -url  127.0.0.1/~andres/cosa&co.tar -stderr error.txt \
   7         -noprogress 0 -file cosa.tar
   8
   9 catch {$curlHandle perform}
  10
  11
  12 puts "And then to stderr:"
  13 $curlHandle configure -stderr ""
  14
  15 catch {$curlHandle perform}
  16
  17 $curlHandle cleanup
  18
  19
  20
  21
  22