Changeset 12363 in project


Ignore:
Timestamp:
11/05/08 22:59:53 (11 years ago)
Author:
sjamaan
Message:

Fix uri->string and add tests

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

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/tests/run.scm

    r12360 r12363  
    128128                (let* ((to    (uri-relative-to urabs ubase)))
    129129                  (test (apply sprintf "~S * ~S -> ~S" p) uex to)
    130                   )))
     130                  ))
     131              (for-each
     132               (lambda (s)
     133                 (test (sprintf "~S = ~S" s (uri->string (uri-reference s)))
     134                       s (uri->string (uri-reference s))))
     135               p))
    131136            rfc-cases))
    132137
  • release/4/uri-generic/trunk/uri-generic.scm

    r12360 r12363  
    666666                 "")
    667667             (string-concatenate path)
    668              (if query (string-concatenate (cons "?" (intersperse query "&"))) "")
     668             (if (and query (not (null? query))) (string-concatenate (cons "?" (intersperse (map (lambda (p) (if (null? (cdr p)) (car p) (conc (car p) "=" (cdr p)))) query) "&"))) "")
    669669             (if fragment (string-append  "#" fragment) "")))
    670670           (else #f))))
Note: See TracChangeset for help on using the changeset viewer.