tests/share.tcl

   1 # The share interface support is not yet completely done, since
   2 # you can't use it with the multi interface.
   3
   4 package require TclCurl
   5
   6 set sHandle [curl::shareinit]
   7 $sHandle share dns
   8
   9 set easyHandle1 [curl::init]
  10 set easyHandle2 [curl::init]
  11
  12 $easyHandle1 configure -url http://127.0.0.1/         -share $sHandle
  13 $easyHandle2 configure -url http://127.0.0.1/~andres/ -share $sHandle
  14
  15 $easyHandle1 perform
  16 $easyHandle2 perform
  17
  18 $easyHandle1 cleanup
  19 $easyHandle2 cleanup
  20
  21 $sHandle unshare dns
  22 $sHandle cleanup
  23