tests/errorBuffer.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4 $curlHandle configure -url "Shire.Asturias.com" -errorbuffer errorMsg
   5
   6 if {[catch {$curlHandle perform}]} {
   7         puts "The error message: $errorMsg"
   8 }
   9
  10 $curlHandle configure -url "Shire.Asturias.com" -errorbuffer error(msg)
  11
  12 if {[catch {$curlHandle perform}]} {
  13         puts "The error message: $error(msg)"
  14 }
  15
  16 $curlHandle cleanup
  17
  18 unset error
  19 catch {curl::transfer -url "Shire.Asturias.com" -errorbuffer error(msg)}
  20
  21 puts "Error: $error(msg)"
  22
  23