119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
(test "make <formdat>" #t (let ((f (make <formdat>)))
(set! form f)
#t))
(test "formdat: set!/get" "Yep!" (begin
(formdat:set! form "blah" "Yep!")
(formdat:get form "blah")))
;; The twiki module
;; clean up
(system "rm -rf twikis/*")
(load "modules/twiki/twiki-mod.scm")
(define keys (list "blah" 1 'nada))
(test "twiki:keys->key" "blah 1 nada" (twiki:keys->key keys))
|
>
>
>
>
>
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
(test "make <formdat>" #t (let ((f (make <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"))
(test "s:illegal-pgint (legal)" #f (s:illegal-pgint 1011))
(test "s:illegal-pgint (illegal big)" 1 (s:illegal-pgint 9999999999))
(test "s:illegalpgint (illegal small)" -1 (s:illegal-pgint -9999999999))
;; The twiki module
;; clean up
(system "rm -rf twikis/*")
(load "modules/twiki/twiki-mod.scm")
(define keys (list "blah" 1 'nada))
(test "twiki:keys->key" "blah 1 nada" (twiki:keys->key keys))
|