Ignore:
Timestamp:
11/16/08 18:40:00 (12 years ago)
Author:
sjamaan
Message:

Remove (reasonably) pointless header-list-ref procedure. Just a case of premature optimization, that one. Maybe later we can put it back

File:
1 edited

Legend:

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

    r12502 r12532  
    140140    (let ((headers (test-read-headers "Cache-control: max-age=10, private")))
    141141      (test "max-age is a number"
    142             '(max-age . 10) (get-value (header-list-ref 'max-age (header-contents 'cache-control headers))))
     142            '(max-age . 10) (assq 'max-age (header-values 'cache-control headers)))
    143143      (test "private without value"
    144             '(private . #t) (get-value (header-list-ref 'private (header-contents 'cache-control headers)))))
     144            '(private . #t) (assq 'private (header-values 'cache-control headers))))
    145145    (let ((headers (test-read-headers "Cache-control: private=\"accept-encoding, accept-ranges\"\r\nCache-control: must-revalidate")))
    146146      (test "private with values"
    147147            '(private . (accept-encoding accept-ranges))
    148             (get-value (header-list-ref 'private (header-contents 'cache-control headers))))
     148            (assq 'private (header-values 'cache-control headers)))
    149149      (test "Acts like a multi-header"
    150             '(must-revalidate . #t) (get-value (header-list-ref 'must-revalidate (header-contents 'cache-control headers))))))
     150            '(must-revalidate . #t) (assq 'must-revalidate (header-values 'cache-control headers)))))
    151151
    152152  ;; RFC 2616, 14.15
Note: See TracChangeset for help on using the changeset viewer.