Ignore:
Timestamp:
07/05/09 16:50:12 (12 years ago)
Author:
sjamaan
Message:

Add authenticate unparser

File:
1 edited

Legend:

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

    r15161 r15162  
    200200              (header-param 'algorithm 'authorization headers)))))
    201201 
    202   (test-group "www-authenticate parser"
     202  (test-group "authenticate parser"
    203203    (test-group "basic auth"
    204204      (let ((headers (test-read-headers "WWW-Authenticate: Basic realm=\"WallyWorld\"")))
     
    592592                               (opaque . "5ccc069c403ebaf9f0171e9517f40e41")
    593593                               (nc . 1)
    594                                (algorithm . md5)))))))))
     594                               (algorithm . md5))))))))
     595
     596  (test-group "authenticate unparser"
     597    (test-group "basic auth"
     598      (test "basic"
     599            "Www-Authenticate: Basic Realm=WallyWorld\r\n"
     600            (test-unparse-headers
     601             `((www-authenticate #(basic
     602                                   ((realm . "WallyWorld"))))))))
     603    (test-group "digest auth"
     604      (test "digest"
     605            "Www-Authenticate: Digest Realm=testrealm@host.com, Qop=\"auth,auth-int\", Nonce=dcd98b7102dd2f0e8b11d0f600bfb0c093, Opaque=5ccc069c403ebaf9f0171e9517f40e41\r\n"
     606            (test-unparse-headers
     607             `((www-authenticate #(digest
     608                                   ((realm . "testrealm@host.com")
     609                                    (qop . (auth auth-int))
     610                                    (nonce . "dcd98b7102dd2f0e8b11d0f600bfb0c093")
     611                                    (opaque . "5ccc069c403ebaf9f0171e9517f40e41")))))))
     612      (test "domains"
     613            "Www-Authenticate: Digest Domain=\"/example http://foo.com/bar\"\r\n"
     614            (test-unparse-headers
     615             `((www-authenticate #(digest
     616                                   ((domain . (,(uri-reference "/example")
     617                                               ,(uri-reference "http://foo.com/bar")))))))))
     618      (test "stale"
     619            "Www-Authenticate: Digest Realm=foo, Stale=TRUE\r\n"
     620            (test-unparse-headers
     621             `((www-authenticate #(digest
     622                                   ((realm . "foo")
     623                                    (stale . #t)))))))
     624      (test "stale present but false"
     625            "Www-Authenticate: Digest Realm=foo\r\n"
     626            (test-unparse-headers
     627             `((www-authenticate #(digest
     628                                   ((realm . "foo")
     629                                    (stale . #f))))))))))
    595630
    596631(define (test-read-request str)
Note: See TracChangeset for help on using the changeset viewer.