10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;; PURPOSE.
(use test md5)
(require-extension sqlite3)
(import (prefix sqlite3 sqlite3:))
(require-library dbi)
(load "./requirements.scm")
(load "./cookie.scm")
(load "./misc-stml.scm")
(load "./formdat.scm")
(load "./stml.scm")
(load "./session.scm")
|
|
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;; PURPOSE.
(use test md5)
(require-extension sqlite3)
(import (prefix sqlite3 sqlite3:))
;; (require-library dbi)
(use (prefix dbi dbi:))
(load "./requirements.scm")
(load "./cookie.scm")
(load "./misc-stml.scm")
(load "./formdat.scm")
(load "./stml.scm")
(load "./session.scm")
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
;; (print "loading " l)
(load l)
(loop (read-line fh)))))
(close-input-port fh))
;; Should have poll:poll defined now.
(test "Make a random string" 2 (string-length (session:make-rand-string 2)))
(test "Create a encrypted password" "abQ9KY.KfrYrc" (s:crypt-passwd "foo" "ab"))
(test "s:any->string on a hash-table" "#<hash-table>" (s:any->string (make-hash-table)))
(define select-list
'((a b c)(d (e f g)(h i j #t))))
(define result '("<SELECT name=\"efg\">"
((("<OPTION label=\"a\" value=\"b\">c</OPTION>")
|
|
>
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
;; (print "loading " l)
(load l)
(loop (read-line fh)))))
(close-input-port fh))
;; Should have poll:poll defined now.
(test "Make a random string" 2 (string-length (session:make-rand-string 2)))
(test "Create an encrypted password using DES (backwards compat)" "abQ9KY.KfrYrc" (s:crypt-passwd "foo" "ab"))
(test "Create an encrypted password using Blowfish" "$2a$12$GyoKHX/UOxMLGtwdSTr7EOF9KQzlyyyRqFTKx1YvLA3sMukbV4WBC" (s:crypt-passwd "foo" "$2a$12$GyoKHX/UOxMLGtwdSTr7EO"))
(test "s:any->string on a hash-table" "#<hash-table>" (s:any->string (make-hash-table)))
(define select-list
'((a b c)(d (e f g)(h i j #t))))
(define result '("<SELECT name=\"efg\">"
((("<OPTION label=\"a\" value=\"b\">c</OPTION>")
|