45 lines
1.3 KiB
Scheme
45 lines
1.3 KiB
Scheme
#lang scheme
|
|
(require schemeunit
|
|
web-server/http
|
|
net/url)
|
|
(provide basic-auth-tests)
|
|
|
|
(define (make-req hs)
|
|
(make-request
|
|
#"GET" (string->url "http://test.com/foo")
|
|
hs
|
|
empty #f
|
|
"host" 80 "client"))
|
|
|
|
(define (header->cons h)
|
|
(cons (header-field h) (header-value h)))
|
|
|
|
(define basic-auth-tests
|
|
(test-suite
|
|
"Basic Authentication"
|
|
|
|
(test-case
|
|
"make-basic-auth-header"
|
|
(check-equal? (header->cons (make-basic-auth-header "realm"))
|
|
(cons #"WWW-Authenticate"
|
|
#"Basic realm=\"realm\"")))
|
|
|
|
(test-case
|
|
"Simple"
|
|
(check-equal? (request->basic-credentials
|
|
(make-req (list (make-header #"Authorization" #"Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ=="))))
|
|
(cons #"Aladdin" #"open sesame")))
|
|
|
|
(test-case
|
|
"Value error"
|
|
(check-false (request->basic-credentials (make-req (list (make-header #"Authorization" #"Basic adfadQWxhZGRpb124134jpvcGVu="))))))
|
|
|
|
(test-case
|
|
"No header"
|
|
(check-false (request->basic-credentials (make-req (list)))))
|
|
|
|
(test-case
|
|
"Case"
|
|
(check-equal? (request->basic-credentials (make-req (list (make-header #"AuthoRIZation" #"Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ=="))))
|
|
(cons #"Aladdin" #"open sesame")))))
|