Overview
| Comment: | Fixed get-target |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
78fc9c544341dca44f7044639a683964 |
| User & Date: | matt on 2023-02-23 11:53:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-02-27
| ||
| 10:54 | Added suicide mode to db:with-db for development. It has been very hard to isolate threaded crashes under the tcp-server. check-in: 3b54f22608 user: mrwellan tags: v1.80 | |
|
2023-02-23
| ||
| 11:53 | Fixed get-target check-in: 78fc9c5443 user: matt tags: v1.80 | |
| 08:46 | configf ext-tests fixed. check-in: 5cb7bf9076 user: matt tags: v1.80 | |
Changes
Modified api.scm from [aacd193276] to [edf4eba965].
| ︙ | ︙ | |||
63 64 65 66 67 68 69 |
get-prereqs-not-met
get-count-tests-running-for-run-id
get-run-info
get-run-status
get-run-state
get-run-stats
get-run-times
| | | | 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
get-prereqs-not-met
get-count-tests-running-for-run-id
get-run-info
get-run-status
get-run-state
get-run-stats
get-run-times
get-target
get-targets
;; register-run
get-tests-tags
get-test-times
get-tests-for-run
get-tests-for-run-state-status
get-test-id
get-tests-for-runs-mindata
|
| ︙ | ︙ |
Modified db.scm from [4ae5518584] to [ba30cc2cdc].
| ︙ | ︙ | |||
4759 4760 4761 4762 4763 4764 4765 | (sqlite3:finalize! db #t) ;; (vector-set! *task-db* 0 #f) (set! *task-db* #f))))) (if (and *no-sync-db* (sqlite3:database? *no-sync-db*)) (sqlite3:finalize! *no-sync-db* #t)) (if (and (not (args:get-arg "-server")) | | > | 4759 4760 4761 4762 4763 4764 4765 4766 4767 4768 4769 4770 4771 4772 4773 4774 |
(sqlite3:finalize! db #t)
;; (vector-set! *task-db* 0 #f)
(set! *task-db* #f)))))
(if (and *no-sync-db*
(sqlite3:database? *no-sync-db*))
(sqlite3:finalize! *no-sync-db* #t))
(if (and (not (args:get-arg "-server"))
*runremote*
(eq? (rmt:transport-mode) 'http))
(begin
(debug:print-info 0 *default-log-port* "Closing all client connections...")
(http-transport:close-connections *runremote*)
#;(http-client#close-all-connections!)))
;; (if (and *runremote*
;; (remote-conndat *runremote*))
;; (begin
|
| ︙ | ︙ |
Modified rmt.scm from [24dfb2a0ed] to [6a03756866].
| ︙ | ︙ | |||
500 501 502 503 504 505 506 |
res)))
(define (rmt:get-targets)
(rmt:send-receive 'get-targets #f '()))
(define (rmt:get-target run-id)
(assert (number? run-id) "FATAL: Run id required.")
| | | 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 |
res)))
(define (rmt:get-targets)
(rmt:send-receive 'get-targets #f '()))
(define (rmt:get-target run-id)
(assert (number? run-id) "FATAL: Run id required.")
(rmt:send-receive 'get-target #f (list run-id)))
(define (rmt:get-run-times runpatt targetpatt)
(rmt:send-receive 'get-run-times #f (list runpatt targetpatt )))
;;======================================================================
;; T E S T S
|
| ︙ | ︙ |