Changeset 15160 in project


Ignore:
Timestamp:
07/05/09 15:02:45 (10 years ago)
Author:
sjamaan
Message:

Add subparser for algorithm param

Location:
release/4/intarweb/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r15159 r15160  
    445445                                                      (string->number n 16)))
    446446                                             (uri . ,uri-reference)
    447                                              (qop . ,symbol-subparser))
     447                                             (qop . ,symbol-subparser)
     448                                             (algorithm . ,symbol-subparser-ci))
    448449                                           (char-set #\,))
    449450                         (loop (add1 pos)
     
    662663                                                       8 #\0)))
    663664                                             (uri . ,uri->string)
    664                                              (qop . ,symbol->string))
     665                                             (qop . ,symbol->string)
     666                                             (algorithm . ,symbol->string))
    665667                                           ", "
    666668                                           'infix)))
  • release/4/intarweb/trunk/tests/run.scm

    r15159 r15160  
    165165             (header-param 'password 'authorization headers))))
    166166    (test-group "digest auth"
    167       (let ((headers (test-read-headers "Authorization: Digest username=\"Mufasa\", realm=\"testrealm@host.com\", nonce=\"dcd98b7102dd2f0e8b11d0f600bfb0c093\", uri=\"/dir/index.html\", qop=auth, nc=00000001, cnonce=\"0a4f113b\", response=\"6629fae49393a05397450978507c4ef1\", opaque=\"5ccc069c403ebaf9f0171e9517f40e41\"")))
     167      (let ((headers (test-read-headers "Authorization: Digest username=\"Mufasa\", realm=\"testrealm@host.com\", nonce=\"dcd98b7102dd2f0e8b11d0f600bfb0c093\", uri=\"/dir/index.html\", qop=auth, nc=00000001, cnonce=\"0a4f113b\", response=\"6629fae49393a05397450978507c4ef1\", opaque=\"5ccc069c403ebaf9f0171e9517f40e41\", algorithm=MD5")))
    168168        (test "digest"
    169169              'digest
     
    195195        (test "opaque"
    196196              "5ccc069c403ebaf9f0171e9517f40e41"
    197               (header-param 'opaque 'authorization headers)))))
     197              (header-param 'opaque 'authorization headers))
     198        (test "algorithm"
     199              'md5
     200              (header-param 'algorithm 'authorization headers)))))
    198201 
    199202  (test-group "pragma-parser"
     
    535538                                      (password . "qux")))))))
    536539    (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"
     540          "Authorization: Digest Username=Mufasa, Realm=testrealm@host.com, Nonce=dcd98b7102dd2f0e8b11d0f600bfb0c093, Uri=/dir/index.html, Qop=auth, Cnonce=0a4f113b, Response=6629fae49393a05397450978507c4ef1, Opaque=5ccc069c403ebaf9f0171e9517f40e41, Nc=00000001, Algorithm=md5\r\n"
    538541          (test-unparse-headers
    539542           `((authorization #(digest
     
    546549                               (response . "6629fae49393a05397450978507c4ef1")
    547550                               (opaque . "5ccc069c403ebaf9f0171e9517f40e41")
    548                                (nc . 1)))))))))
     551                               (nc . 1)
     552                               (algorithm . md5)))))))))
    549553
    550554(define (test-read-request str)
Note: See TracChangeset for help on using the changeset viewer.