Megatest

Diff
Login

Differences From Artifact [052cb1980d]:

To Artifact [68f35a9489]:


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)))