Imported Upstream version 7.19.6

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

diff --git a/tests/bodyVar.tcl b/tests/bodyVar.tcl
new file mode 100755 (executable)
index 0000000..ef3a9a0
--- /dev/null
+++ b/tests/bodyVar.tcl
@@ -0,0 +1,36 @@
+package require TclCurl
+
+# These tests has some urls that don't exists outside my system,
+# so IT WON'T WORK FOR YOU unless you change them.
+
+set curlHandle [curl::init]
+$curlHandle configure -url "127.0.0.1" -bodyvar body -noprogress 1 
+$curlHandle perform
+
+$curlHandle configure -url "127.0.0.1/~andres/" -bodyvar newBody
+$curlHandle perform
+
+$curlHandle cleanup
+
+puts "First page:"
+puts $body
+
+puts "Second page:"
+puts $newBody
+
+# You can also use it for binary transfers
+
+curl::transfer \
+        -url {127.0.0.1/~andres/HomePage/getleft/images/getleft.png} \
+        -bodyvar image -noprogress 1 -verbose 1
+
+if [catch {open "getleft.png" w} out] {
+    puts "Could not open $out."
+    exit
+}
+
+fconfigure $out -translation binary
+puts  $out $image
+close $out
+
+