Ignore:
Timestamp:
06/27/09 16:15:17 (11 years ago)
Author:
sjamaan
Message:

Update cookie-parser so it removes the stupid dollar signs

File:
1 edited

Legend:

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

    r15080 r15089  
    1 (require-extension test extras uri-common intarweb)
     1(require-extension test extras uri-common intarweb srfi-18)
    22
    33(define-syntax test-error*
     
    350350    (let* ((headers (test-read-headers "Cookie: foo=bar; $Path=/; qux=mooh; $unknown=something")))
    351351      (test "Multiple cookies in the same header"
    352             '(("foo" . "bar") . ("qux" . "mooh"))
     352            '((foo . "bar") . (qux . "mooh"))
    353353            (cons
    354354             (get-value (first  (header-contents 'cookie headers)))
     
    356356      (test "Parameters of cookies (spaces stripped)"
    357357            "/"
    358             (get-param '$path (first (header-contents 'cookie headers))))
     358            (get-param 'path (first (header-contents 'cookie headers))))
    359359      (test "Parameters of cookies"
    360360            "something"
    361             (get-param '$unknown (second (header-contents 'cookie headers)))))
     361            (get-param 'unknown (second (header-contents 'cookie headers)))))
    362362    (let* ((headers (test-read-headers "Cookie: $Version=\"1\"; foo=bar; $Path=/; qux=mooh; $unknown=something")))
    363363      (test "Version string is used for all cookies"
    364364            (cons 1 1)
    365365            (cons
    366              (get-param '$version (first (header-contents 'cookie headers)))
    367              (get-param '$version (second (header-contents 'cookie headers))))))))
     366             (get-param 'version (first (header-contents 'cookie headers)))
     367             (get-param 'version (second (header-contents 'cookie headers))))))))
    368368
    369369(test-group "Headers"
Note: See TracChangeset for help on using the changeset viewer.