Changeset 12614 in project for release/4/uri-generic/trunk/tests/run.scm

Timestamp:

11/27/08 20:56:03 (12 years ago)

Author:

sjamaan

Message:

Fix bugs in normalize-case and add regression tests for it

File:

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

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

@@ -180 +180 @@
                   (test (sprintf "~S * ~S -> ~S" (first p) (second p) (third p)) expected updated)))
             update-cases))
+
+(define normalize-case-cases
+  '(("http://exa%2fmple/FOO%2fbar" "http://exa%2Fmple/FOO%2Fbar")
+    ("http://EXA%2fMPLE/FOO%2fbar" "http://exa%2Fmple/FOO%2Fbar")
+    ("HTTP://example/" "http://example/")
+    ("http://user:PASS@example/FOO%2fbar" "http://user:PASS@example/FOO%2Fbar")
+    ("http://uS%2fer:PA%2fSS@example/FOO%2fbar" "http://uS%2Fer:PA%2FSS@example/FOO%2Fbar")
+    ("HTTP://example/?mooH=MUMBLe%2f" "http://example/?mooH=MUMBLe%2F")
+    ("http://example/#baR%2f" "http://example/#baR%2F")))
+
+(test-group "normalize-case test"
+  (for-each (lambda (p)
+              (let ((case-normalized (uri-normalize-case (uri-reference (first p))))
+                    (expected (second p)))
+                  (test (sprintf "~S -> ~S" (first p) (second p)) expected (uri->string case-normalized (lambda (user pass) (conc user ":" pass))))))
+            normalize-case-cases))