1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
-
+
+
+
+
+
+
+
-
+
|
#!/usr/local/bin/csi -q
;; Copyright 2007-2008, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
(use test md5 dbi)
(use test md5)
(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 "./sqltbl.scm")
(load "./html-filter.scm")
(load "./keystore.scm")
;; Test the primitive dbi interface
(system "rm -f tests/test.db")
(define db (dbi:open 'sqlite3 '((dbname . "tests/test.db"))))
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
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 " (slot-ref s:session 'session-key))
(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
|
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
-
+
|
(test "misc:non-zero-string \"\"" #f (misc:non-zero-string ""))
(test "misc:non-zero-string #f" #f (misc:non-zero-string #f))
(test "misc:non-zero-string 'blah" #f (misc:non-zero-string 'blah))
;; forms
(define form #f)
(test "make <formdat>" #t (let ((f (make <formdat>)))
(test "make <formdat>" #t (let ((f (make-formdat:formdat)))
(set! form f)
#t))
(test "formdat: set!/get" "Yep!" (begin
(formdat:set! form "blah" "Yep!")
(formdat:get form "blah")))
(test "s:string->pgint" 123 (s:any->pgint "123"))
|