]> git.sven.stormbind.net Git - sven/tclcurl.git/blob - tests/share.tcl
Merge tag 'upstream/7.22.0'
[sven/tclcurl.git] / 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