Changeset 12363 in project for release/4/uri-generic/trunk/tests


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

Fix uri->string and add tests

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.