Changeset 12139 in project for release/3/uri-generic/trunk/tests/run.scm

Timestamp:

10/12/08 22:47:40 (12 years ago)

Author:

sjamaan

Message:

Fix uri-encode-string, add testcases for uri-encode-string and uri-decode-string

File:

• release/3/uri-generic/trunk/tests/run.scm (modified) (1 diff)

release/3/uri-generic/trunk/tests/run.scm

@@ -136 +136 @@
                   )))
             extra-cases))
+
+(define encode/decode-cases
+  '(("foo?bar" "foo%3fbar")
+    ("foo&bar" "foo%26bar")
+    ("foo%20bar" "foo%2520bar")))
+
+(test-group "uri-encode-string test"
+  (for-each (lambda (p)
+              (let ((expected (second p))
+                    (encoded (uri-encode-string (first p))))
+                  (test (sprintf "~S -> ~S" (first p) expected) expected encoded)))
+            encode/decode-cases))
+
+(test-group "uri-decode-string test"
+  (for-each (lambda (p)
+              (let ((expected (first p))
+                    (decoded (uri-decode-string (second p))))
+                  (test (sprintf "~S -> ~S" (second p) expected) expected decoded)))
+            encode/decode-cases))