Overview
| Comment: | Fixed a rollup issue due to wrongly coded call in rmt.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
1900a1979fad8bf9ff75300f5d6c84a9 |
| User & Date: | mrwellan on 2015-08-28 09:17:59 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-08-28
| ||
| 17:20 | Fixed couple bugs check-in: 0feca1db84 user: mrwellan tags: v1.60 | |
| 09:17 | Fixed a rollup issue due to wrongly coded call in rmt.scm check-in: 1900a1979f user: mrwellan tags: v1.60 | |
|
2015-08-27
| ||
| 23:47 | Allow overriding num reruns from config, added to docs check-in: 8c4b1ebbb6 user: matt tags: v1.60 | |
Changes
Modified rmt.scm from [592faf391b] to [a6725903b6].
| ︙ | ︙ | |||
528 529 530 531 532 533 534 | (define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status) (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status))) (define (rmt:update-pass-fail-counts run-id test-name) (rmt:general-call 'update-pass-fail-counts run-id (list run-id test-name run-id test-name run-id test-name))) (define (rmt:top-test-set-per-pf-counts run-id test-name) | | | 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 | (define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status) (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status))) (define (rmt:update-pass-fail-counts run-id test-name) (rmt:general-call 'update-pass-fail-counts run-id (list run-id test-name run-id test-name run-id test-name))) (define (rmt:top-test-set-per-pf-counts run-id test-name) (rmt:send-receive 'top-test-set-per-pf-counts run-id (list run-id test-name))) ;;====================================================================== ;; R U N S ;;====================================================================== (define (rmt:get-run-info run-id) (rmt:send-receive 'get-run-info run-id (list run-id))) |
| ︙ | ︙ |
Modified tests/unittests/runs.scm from [17931d05af] to [6312499606].
| ︙ | ︙ | |||
151 152 153 154 155 156 157 |
(test "launch-test" #t
(string?
(file-exists?
;; (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
(launch-test 30001 1 rinfo keyvals "run1" tconfig "test1" test-path '() (make-hash-table)))))
| | > > > > | 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 |
(test "launch-test" #t
(string?
(file-exists?
;; (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
(launch-test 30001 1 rinfo keyvals "run1" tconfig "test1" test-path '() (make-hash-table)))))
;;======================================================================
;; M O R E R E M O T E C A L L S
;;======================================================================
(test #f #f (rmt:set-tests-state-status 1 '("runfirst") "RUNNING" "WARN" "COMPLETED" "FAIL"))
(test #f #f (rmt:top-test-set-per-pf-counts 1 "runfirst"))
(exit 1)
;; (test "Run a test" #t (general-run-call
|
| ︙ | ︙ | |||
318 319 320 321 322 323 324 | (print "Waiting for server to be done, should be about 20 seconds") (test "server stop" #f (let ((hostname (car *runremote*)) (port (cadr *runremote*))) (tasks:kill-server #t hostname port server-pid 'http) (open-run-close tasks:get-best-server tasks:open-db))) | < < < < < | 322 323 324 325 326 327 328 329 330 331 332 333 334 335 |
(print "Waiting for server to be done, should be about 20 seconds")
(test "server stop" #f (let ((hostname (car *runremote*))
(port (cadr *runremote*)))
(tasks:kill-server #t hostname port server-pid 'http)
(open-run-close tasks:get-best-server tasks:open-db)))
;; (cdb:kill-server *runremote*)
;; (thread-join! th1 th2 th3)
;; ADD ME!!!! (db:get-prereqs-not-met *db* 1 '("runfirst") "" mode: 'normal)
;; ADD ME!!!! (rdb:get-tests-for-run *db* 1 "runfirst" #f '() '())
|