Changeset 29918 in project


Ignore:
Timestamp:
10/13/13 20:44:56 (8 years ago)
Author:
sjamaan
Message:

intarweb: check for the full error type, just in case...

File:
1 edited

Legend:

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

    r29915 r29918  
    594594    ;; of header (URLencoding, removing the newlines from cookies, etc)
    595595    (test-error* "Embedded newlines throw an error"
    596                  (http unencoded-header)
     596                 (exn http unencoded-header)
    597597                 (test-unparse-headers `((foo "bar\n\x01qux"))))
    598598    (test "Alist"
     
    718718                               (password . "open sesame")))))))
    719719    (test-error* "Basic auth with colon in username"
    720                  (http username-with-colon)
     720                 (exn http username-with-colon)
    721721                 (test-unparse-headers
    722722                  `((authorization #(basic
     
    807807                                    ,(lambda (line in)
    808808                                       (and (string=? line "bar") 'bar)))))
    809     (test-error* (http unknown-protocol-line) (test-read-request "qux"))
     809    (test-error* (exn http unknown-protocol-line) (test-read-request "qux"))
    810810    (test #f (test-read-request ""))
    811811    (test 'foo (test-read-request "foo"))
     
    816816  (test-group "HTTP/0.9"
    817817    (test-error* "By default, HTTP/0.9 is disabled"
    818                  (http unknown-protocol-line)
     818                 (exn http unknown-protocol-line)
    819819                 (test-read-request "GET /path/../to/stuff?arg1=val1&arg2=val2\r\n"))
    820820    (parameterize ((request-parsers (list http-1.x-request-parser http-0.9-request-parser)))
     
    894894                             uri: (uri-reference "/foo/bar.html"))))
    895895      (test-error* "By default, HTTP/0.9 is disabled"
    896                    (http unknown-protocol)
     896                   (exn http unknown-protocol)
    897897                   (test-write-request req))
    898898      (parameterize ((request-unparsers (list http-1.x-request-unparser
     
    959959            "Contents"
    960960            (read-string #f (response-port res))))
    961     (test-error* (http unknown-protocol-line) (test-read-response "qux"))
     961    (test-error* (exn http unknown-protocol-line) (test-read-response "qux"))
    962962    (test #f (test-read-request ""))
    963963    (test-error "Response line limit exceeded gives error"
     
    999999  (test-group "HTTP/0.9"
    10001000    (test-error* "By default, HTTP/0.9 is disabled"
    1001                  (http unknown-protocol-line)
     1001                 (exn http unknown-protocol-line)
    10021002                 (test-read-response "Doesn't matter what's here\r\nLine 2"))
    10031003    (parameterize ((response-parsers (list http-1.x-response-parser
     
    10321032                              code: 200 reason: "OK")))
    10331033      (test-error* "By default, HTTP/0.9 is disabled"
    1034                    (http unknown-protocol)
     1034                   (exn http unknown-protocol)
    10351035                   (test-write-response res "These are the contents\r\n"))
    10361036      (parameterize ((response-unparsers (list http-1.x-response-unparser
Note: See TracChangeset for help on using the changeset viewer.