]> git.sven.stormbind.net Git - sven/tclcurl.git/blob - tests/escape.tcl
Imported Upstream version 7.19.6
[sven/tclcurl.git] / tests / escape.tcl
1 package require TclCurl
2
3
4 set escaped [curl::escape {What about this?}]
5 puts "String to escape: What about this? - $escaped"
6 puts "And the reverse: [curl::unescape $escaped]"