Changeset 13443 in project


Ignore:
Timestamp:
03/01/09 15:28:33 (11 years ago)
Author:
sjamaan
Message:

Add tests for uri parsing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/tests/run.scm

    r13053 r13443  
    180180            0
    181181            (header-value 'date headers))))
     182
     183  (test-group "normalized-uri"
     184    (let ((headers (test-read-headers "Location: http://example.com/foo")))
     185      (test "Uri"
     186            (uri-reference "http://example.com/foo")
     187            (header-value 'location headers)))
     188    (let ((headers (test-read-headers "Location: http://example.com/foo/../bar")))
     189     (test "Auto-normalization"
     190           (uri-reference "http://example.com/bar")
     191           (header-value 'location headers))))
    182192
    183193  (test-group "entity-tag-parser"
Note: See TracChangeset for help on using the changeset viewer.