Ignore:
Timestamp:
08/10/08 17:12:27 (12 years ago)
Author:
sjamaan
Message:

Rename set-header-contents! to update-header-contents! and create a nondestructive variant of it too
Fix definitions for a few header parsers

File:
1 edited

Legend:

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

    r11579 r11592  
    5959(test-group "Headers"
    6060  (test-group "Single headers"
    61    (parameterize ((header-parsers `((foo . ,set-header-contents!)
    62                                     (qux . ,set-header-contents!))))
     61   (parameterize ((header-parsers `((foo . ,update-header-contents!)
     62                                    (qux . ,update-header-contents!))))
    6363     (let ((headers (test-read-headers "foo: bar\r\nqux:\t   \tmooh\t   \r\n\r\n")))
    6464       (test "Basic test"
Note: See TracChangeset for help on using the changeset viewer.