33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
(vector? dat))))
;; (print "dat: " dat)
;; (set! *runremote* (list (vector-ref dat 1)(vector-ref dat 2) #f)) ;; host ip pullport pubport
;; (and (string? (car *runremote*))
;; (number? (cadr *runremote*)))))
(test #f #t (string? (car *runremote*)))
;; (test #f #f (rmt:get-test-info-by-id 99))
|
<
>
|
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
(vector? dat))))
;; (print "dat: " dat)
;; (set! *runremote* (list (vector-ref dat 1)(vector-ref dat 2) #f)) ;; host ip pullport pubport
;; (and (string? (car *runremote*))
;; (number? (cadr *runremote*)))))
(test #f #t (string? (car *runremote*)))
(test #f #t (rmt:login)) ;; *runremote* *toppath* *my-client-signature*)))
(test #f #f (rmt:get-test-info-by-id 99))
;; ;; (set! *verbosity* 20)
;; (test #f *verbosity* (cadr (cdb:set-verbosity *runremote* *verbosity*)))
;; (test #f #f (cdb:roll-up-pass-fail-counts *runremote* 1 "test1" "" "PASS"))
;; ;; (set! *verbosity* 1)
;; ;; (cdb:set-verbosity *runremote* *verbosity*)
;;
|