shaniqua-tclcurl-fa/tests/escape.test

#!/usr/local/bin/tclsh

package require TclCurl
package require tcltest
namespace import ::tcltest::*

test 1.01 {: Test escape} -body {
	set escaped [curl::escape {What about this?}]
	return $escaped
} -result {What%20about%20this%3F}

test 1.02 {: Test unescape} -body {
	return [curl::unescape $escaped]
} -result {What about this?}


cleanupTests
Convert tests to tcltest and integrate into Travis (#5) * convert some tests to tcltest * exit with non-zero value if any test fails 2019-02-04 13:54:54 -06:00			`#!/usr/local/bin/tclsh`

			`package require TclCurl`
			`package require tcltest`
			`namespace import ::tcltest::*`

			`test 1.01 {: Test escape} -body {`
			`set escaped [curl::escape {What about this?}]`
			`return $escaped`
			`} -result {What%20about%20this%3F}`

			`test 1.02 {: Test unescape} -body {`
			`return [curl::unescape $escaped]`
			`} -result {What about this?}`


			`cleanupTests`