13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(require-extension sqlite3)
(import (prefix sqlite3 sqlite3:))
(require-library dbi)
(load "./requirements.scm")
(load "./misc-stml.scm")
(load "./formdat.scm")
(load "./stml.scm")
(load "./session.scm")
;(load "./sqltbl.scm")
(load "./html-filter.scm")
(load "./keystore.scm")
|
>
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(require-extension sqlite3)
(import (prefix sqlite3 sqlite3:))
(require-library dbi)
(load "./requirements.scm")
(load "./cookie.so")
(load "./misc-stml.scm")
(load "./formdat.scm")
(load "./stml.scm")
(load "./session.scm")
;(load "./sqltbl.scm")
(load "./html-filter.scm")
(load "./keystore.scm")
|
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;; (test "Session var del" #f (s:session-var-get "nick"))
;; test person
(load "./tests/models/test.scm")
(print "Session key is " (slot-ref s:session 'session-key))
(test "Delete session" #t (s:delete-session))
(let ((fh (open-input-pipe "ls ./tests/pages/*/control.scm")))
(let loop ((l (read-line fh)))
(if (not (eof-object? l))
(begin
|
|
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
;; (test "Session var del" #f (s:session-var-get "nick"))
;; test person
(load "./tests/models/test.scm")
(print "Session key is " (sdat-get-session-key s:session))
(test "Delete session" #t (s:delete-session))
(let ((fh (open-input-pipe "ls ./tests/pages/*/control.scm")))
(let loop ((l (read-line fh)))
(if (not (eof-object? l))
(begin
|