Changeset 15094 in project


Ignore:
Timestamp:
06/28/09 20:56:57 (10 years ago)
Author:
sjamaan
Message:

Make cookie unparser more tolerant

Location:
release/4/intarweb/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r15093 r15094  
    567567                                       (map number->string (cdr p)) ","))
    568568                                     (else (unparse-token (cdr p)))))))
    569                      params))
     569                     ;; Remove #f values
     570                     (filter (lambda (p) (cdr p)) params)))
    570571               (cookie (get-value (car headers)))
    571572               (unparsed-cookie (sprintf "~A=~A"
  • release/4/intarweb/trunk/tests/run.scm

    r15093 r15094  
    478478          "Cookie: foo=bar; $Port=80,8080\r\n"
    479479          (test-unparse-headers `((cookie #((foo . "bar")
    480                                             ((port . (80 8080))))))))))
     480                                            ((port . (80 8080))))))))
     481    (test "#t or #f values"
     482          "Cookie: foo=bar; $Port\r\n"
     483          (test-unparse-headers `((cookie #((foo . "bar")
     484                                            ((port . #t) (domain . #f)))))))))
    481485
    482486(define (test-read-request str)
Note: See TracChangeset for help on using the changeset viewer.