Ignore:
Timestamp:
02/09/09 22:10:45 (11 years ago)
Author:
sjamaan
Message:

Get absolute-uri to throw an error when parsing an uri reference containing a fragment

File:
1 edited

Legend:

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

    r13209 r13228  
    127127              (let ((ubase (uri-reference (first p)))
    128128                    (urabs  (uri-reference (second p)))
    129                     (uabs  (absolute-uri (second p)))
    130129                    (uex   (uri-reference (third p))))
    131130                (let* ((from (uri-relative-from urabs ubase))
     
    133132                  (test (apply sprintf "~S * ~S -> ~S" p) uex from)
    134133                  (test (apply sprintf "~S * ~S -> ~S" p) urabs to)
    135                   (if (not (uri-fragment urabs))
    136                       (test (sprintf "~S = ~S" uabs urabs) urabs uabs))
     134                  (unless (uri-fragment urabs)
     135                    (let ((uabs  (absolute-uri (second p))))
     136                      (test (sprintf "~S = ~S" uabs urabs) urabs uabs)))
    137137                  ))
    138138              (for-each
Note: See TracChangeset for help on using the changeset viewer.