suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

passwords test

Browse Source 
svn: r6613
This commit is contained in:
Jay McCarthy 2007-06-12 23:30:17 +00:00
parent 1d03851801
commit 14c6f70199
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/web-server/tests/dispatchers/dispatch-passwords-test.ss
View File

@ -1,17 +1,18 @@
(module dispatch-passwords-test mzscheme (module dispatch-passwords-test mzscheme
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
(planet "util.ss" ("schematics" "schemeunit.plt" 2))
(lib "file.ss") (lib "file.ss")
(lib "url.ss" "net") (lib "url.ss" "net")
(lib "list.ss") (lib "list.ss")
(lib "xml.ss" "xml")
(lib "request-structs.ss" "web-server" "private") (lib "request-structs.ss" "web-server" "private")
(lib "util.ss" "web-server" "private")
(lib "dispatch.ss" "web-server" "dispatchers") (lib "dispatch.ss" "web-server" "dispatchers")
(prefix passwords: (lib "dispatch-passwords.ss" "web-server" "dispatchers")) (prefix passwords: (lib "dispatch-passwords.ss" "web-server" "dispatchers"))
"../util.ss") "../util.ss")
(provide dispatch-passwords-tests) (provide dispatch-passwords-tests)
; XXX Backwards way of testing distribution file (require/expose (lib "dispatch-passwords.ss" "web-server" "dispatchers")
(read-passwords))
(define default-passwords (build-path (collection-path "web-server") "default-web-root" "passwords")) (define default-passwords (build-path (collection-path "web-server") "default-web-root" "passwords"))
(define test-passwords (make-temporary-file)) (define test-passwords (make-temporary-file))
(define (write-test-passwords!) (define (write-test-passwords!)
@ -44,6 +45,10 @@
(test-suite (test-suite
"Passwords" "Passwords"
(test-not-false
"Distribution file parses"
(read-passwords default-passwords))
(test-exn "authorized" (test-exn "authorized"
exn:dispatcher? exn:dispatcher?
(lambda () (runt #t #t))) (lambda () (runt #t #t)))
@ -59,6 +64,6 @@
(lambda () (lambda ()
(runt #f #t))) (runt #f #t)))
; XXX refresh cache ; XXX test refresh cache
))) )))