other
(in-package "STR")
other
(include-book "url-encode")
other
(include-book "std/testing/assert-bang" :dir :system)
other
(assert! (equal (implode (url-encode-char #\a)) "a"))
other
(assert! (equal (implode (url-encode-char #\ )) "%20"))
other
(assert! (equal (implode (url-encode-char (code-char 0))) "%00"))
other
(assert! (let ((x "foo123$%20 blah !==[]{}7&*^!@&*^&*)($"))
(equal (url-encode-string x)
(implode (url-encode-chars (explode x))))))