Ignore:
Timestamp:
11/27/08 21:28:16 (13 years ago)
Author:
sjamaan
Message:

Merge changes from uri-generic release 4 trunk into release 3

Location:
release/3/uri-generic/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/uri-generic/trunk

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

    r12604 r12617  
    11(require-extension srfi-1)
    2 (require-extension uri-generic)
     2(load "../uri-generic.scm")
    33
    44(require-extension test)
     
    181181            update-cases))
    182182
     183(define normalize-case-cases
     184  '(("http://exa%2fmple/FOO%2fbar" "http://exa%2Fmple/FOO%2Fbar")
     185    ("http://EXA%2fMPLE/FOO%2fbar" "http://exa%2Fmple/FOO%2Fbar")
     186    ("HTTP://example/" "http://example/")
     187    ("http://user:PASS@example/FOO%2fbar" "http://user:PASS@example/FOO%2Fbar")
     188    ("http://uS%2fer:PA%2fSS@example/FOO%2fbar" "http://uS%2Fer:PA%2FSS@example/FOO%2Fbar")
     189    ("HTTP://example/?mooH=MUMBLe%2f" "http://example/?mooH=MUMBLe%2F")
     190    ("http://example/#baR%2f" "http://example/#baR%2F")))
     191
     192(test-group "normalize-case test"
     193  (for-each (lambda (p)
     194              (let ((case-normalized (uri-normalize-case (uri-reference (first p))))
     195                    (expected (second p)))
     196                  (test (sprintf "~S -> ~S" (first p) (second p)) expected (uri->string case-normalized (lambda (user pass) (conc user ":" pass))))))
     197            normalize-case-cases))
Note: See TracChangeset for help on using the changeset viewer.