tests/failOnError.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4 $curlHandle configure -url "127.0.0.1/cosa.html"
   5
   6 $curlHandle configure -failonerror 0 ; # This is the default
   7 puts "With failonerror==0:"
   8 catch {$curlHandle perform}
   9 puts "\n\n\n\n\n"
  10 puts "With failonerror==1:"
  11 $curlHandle configure -failonerror 1
  12 catch {$curlHandle perform}
  13
  14 $curlHandle cleanup
  15
  16
  17