Imported Upstream version 7.19.6

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

diff --git a/tests/escape.tcl b/tests/escape.tcl
new file mode 100755 (executable)
index 0000000..b4bb6d4
--- /dev/null
+++ b/tests/escape.tcl
@@ -0,0 +1,6 @@
+package require TclCurl
+
+
+set escaped [curl::escape {What about this?}]
+puts "String to escape: What about this? - $escaped"
+puts "And the reverse: [curl::unescape $escaped]"