152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
(list "start" "end" "completed"))
(for-each (lambda (item)
(test (conc "get valid items (" item ")")
item (items:check-valid-items "status" item)))
(list "pass" "fail" "n/a"))
(test #f #f (items:check-valid-items "state" "blahfool"))
(test "write env files" "nada.csh" (begin
(save-environment-as-files "nada")
(and (file-exists? "nada.sh")
(file-exists? "nada.csh"))))
(test #f #t (cdb:client-call *runremote* 'immediate #t 1 (lambda ()(display "Got here eh!?") #t)))
|
|
>
>
>
|
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
(list "start" "end" "completed"))
(for-each (lambda (item)
(test (conc "get valid items (" item ")")
item (items:check-valid-items "status" item)))
(list "pass" "fail" "n/a"))
(test #f #f (items:check-valid-items "state" "blahfool"))
(test #f 0 (items:check-valid-items "state" 0))
(test #f "0" (items:check-valid-items "state" "0"))
(test #f "foo" (items:check-valid-items "nada" "foo"))
(test "write env files" "nada.csh" (begin
(save-environment-as-files "nada")
(and (file-exists? "nada.sh")
(file-exists? "nada.csh"))))
(test #f #t (cdb:client-call *runremote* 'immediate #t 1 (lambda ()(display "Got here eh!?") #t)))
|