Imported Upstream version 7.19.6

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

diff --git a/tests/stderrNoStderr.tcl b/tests/stderrNoStderr.tcl
new file mode 100755 (executable)
index 0000000..1a3cee7
--- /dev/null
+++ b/tests/stderrNoStderr.tcl
@@ -0,0 +1,22 @@
+package require TclCurl
+
+set curlHandle [curl::init]
+
+puts "First it goes into error.txt"
+$curlHandle configure -url  127.0.0.1/~andres/cosa&co.tar -stderr error.txt \
+        -noprogress 0 -file cosa.tar
+
+catch {$curlHandle perform}
+
+
+puts "And then to stderr:"
+$curlHandle configure -stderr ""
+
+catch {$curlHandle perform}
+
+$curlHandle cleanup
+
+
+
+
+