Imported Upstream version 7.19.6

[sven/tclcurl.git] / tests / dupHandle.tcl

diff --git a/tests/dupHandle.tcl b/tests/dupHandle.tcl
new file mode 100755 (executable)
index 0000000..3fc73a5
--- /dev/null
+++ b/tests/dupHandle.tcl
@@ -0,0 +1,16 @@
+package require TclCurl
+
+set curlHandle1 [curl::init]
+
+$curlHandle1 configure -url 127.0.0.1
+
+set curlHandle2 [$curlHandle1 duphandle]
+
+$curlHandle1 configure -url 127.0.0.1/~andres/
+
+$curlHandle2 perform
+
+
+$curlHandle1 cleanup
+$curlHandle2 cleanup
+