Megatest

Check-in [a94cab85fc]
Login
Overview
Comment:Added missing section from http-server for /api
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a94cab85fcec39421d4fcdf1a328f5d93ac8020a
User & Date: matt on 2013-11-10 21:08:19
Other Links: manifest | tags
Context
2013-11-10
21:33
All parts of the /api interface basically now working check-in: 078d2c5ac2 user: matt tags: trunk
21:08
Added missing section from http-server for /api check-in: a94cab85fc user: matt tags: trunk
21:06
Added missing section from http-server for /api check-in: e036a57959 user: matt tags: trunk
Changes

Modified tests/unittests/server.scm from [80ff782d3d] to [f61539c17c].

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))
(test #f #t (rmt:login)) ;;  *runremote* *toppath* *my-client-signature*)))


;; ;; (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*)
;; 







<

>







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