Ignore:
Timestamp:
11/24/08 20:56:52 (13 years ago)
Author:
sjamaan
Message:

Auto-normalize all uri references in intarweb parsers

File:
1 edited

Legend:

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

    r12532 r12586  
    1 (require-extension test extras regex uri-generic intarweb)
     1(require-extension test extras uri-generic intarweb)
    22
    33(define-syntax test-error*
     
    385385    (test 'bar (test-read-request "bar")))
    386386  (test-group "HTTP/0.9"
    387     (let ((req (test-read-request "GET /path/to/stuff?arg1=val1&arg2=val2\r\n")))
     387    (let ((req (test-read-request "GET /path/../to/stuff?arg1=val1&arg2=val2\r\n")))
    388388      (test 0 (request-major req))
    389389      (test 9 (request-minor req))
    390390      (test 'GET (request-method req))
    391       (test (uri-reference "/path/to/stuff?arg1=val1&arg2=val2") (request-uri req))
     391      ;; Path-normalized URI (dots removed)
     392      (test (uri-reference "/to/stuff?arg1=val1&arg2=val2") (request-uri req))
    392393      (test (headers '()) (request-headers req)))
    393394    ; RFC 1945 5.0 does not mention case-sensitivity for the method in HTTP/0.9.
Note: See TracChangeset for help on using the changeset viewer.