Imported Upstream version 7.19.6

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

diff --git a/tests/upload.tcl b/tests/upload.tcl
new file mode 100755 (executable)
index 0000000..eebc2f0
--- /dev/null
+++ b/tests/upload.tcl
@@ -0,0 +1,8 @@
+package require TclCurl
+
+
+curl::transfer -url ftp://andres:ciclope4@127.0.01/cosa.tcl                 \
+        -infilesize [file size writeProc.tcl] -infile writeProc.tcl -upload 1 \
+        -verbose 1
+
+