Ignore:
Timestamp:
07/05/09 14:41:40 (12 years ago)
Author:
sjamaan
Message:

Add initial digest auth unparser

File:
1 edited

Legend:

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

    r15158 r15159  
    524524    (test "Basic auth"
    525525          "Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==\r\n"
    526           (test-unparse-headers `((authorization #(basic
    527                                                    ((username . "Aladdin")
    528                                                     (password . "open sesame")))))))
     526          (test-unparse-headers
     527           `((authorization #(basic
     528                              ((username . "Aladdin")
     529                               (password . "open sesame")))))))
    529530    (test-error* "Basic auth with colon in username"
    530531                 (http username-with-colon)
     
    532533                  `((authorization #(basic
    533534                                     ((username . "foo:bar")
    534                                       (password . "qux")))))))))
     535                                      (password . "qux")))))))
     536    (test "Digest auth"
     537          "Authorization: Digest Username=Mufasa, Realm=testrealm@host.com, Nonce=dcd98b7102dd2f0e8b11d0f600bfb0c093, Uri=/dir/index.html, Qop=auth, Cnonce=0a4f113b, Response=6629fae49393a05397450978507c4ef1, Opaque=5ccc069c403ebaf9f0171e9517f40e41, Nc=00000001\r\n"
     538          (test-unparse-headers
     539           `((authorization #(digest
     540                              ((username . "Mufasa")
     541                               (realm . "testrealm@host.com")
     542                               (nonce . "dcd98b7102dd2f0e8b11d0f600bfb0c093")
     543                               (uri . ,(uri-reference "/dir/index.html"))
     544                               (qop . auth)
     545                               (cnonce . "0a4f113b")
     546                               (response . "6629fae49393a05397450978507c4ef1")
     547                               (opaque . "5ccc069c403ebaf9f0171e9517f40e41")
     548                               (nc . 1)))))))))
    535549
    536550(define (test-read-request str)
Note: See TracChangeset for help on using the changeset viewer.