Index: tests/unittests/server.scm ================================================================== --- tests/unittests/server.scm +++ tests/unittests/server.scm @@ -35,12 +35,12 @@ ;; (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)) (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)