Ignore:
Timestamp:
11/05/08 23:02:12 (13 years ago)
Author:
sjamaan
Message:

Backport uri->string fixes from uri-generic release 4

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

    r12361 r12364  
    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.