Changeset 15080 in project


Ignore:
Timestamp:
06/27/09 15:15:43 (10 years ago)
Author:
sjamaan
Message:

Repair test code (that's what you get when you pipe through less and search for "ERROR" or "FAILURE"... :/ )

File:
1 edited

Legend:

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

    r15079 r15080  
    1616     (test-error* (sprintf "~S" '?expr) ?error-type ?expr))))
    1717
    18 (header-parse-error-handler (lambda (header-name contents exn) (raise exn)))
     18(header-parse-error-handler (lambda (header-name contents header exn)
     19                              (raise exn)))
    1920
    2021(define (test-read-headers str)
     
    7172      (test-error "Missing header contents" (test-read-headers "foo\r\n\r\n"))
    7273      (test-error "Bad header w/ handler" (test-read-headers "bar: x\r\n\r\n"))
    73       (parameterize ((parse-error-handler (lambda (n c h exn) h)))
     74      (parameterize ((header-parse-error-handler (lambda (n c h exn) h)))
    7475       (test "Bad header w/o handler" #t (headers? (test-read-headers "bar: x\r\n\r\n"))))
    7576      ;; RFC 2616 2.2
Note: See TracChangeset for help on using the changeset viewer.