Overview
| Comment: | Minor cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
5a8e1e20984fa46f4fe41ac316e2fc45 |
| User & Date: | mrwellan on 2014-12-10 11:37:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-10
| ||
| 22:52 | partial archive working check-in: 92d3c79b3a user: matt tags: v1.60 | |
| 11:37 | Minor cleanup check-in: 5a8e1e2098 user: mrwellan tags: v1.60 | |
| 08:05 | Cherrypicked nodes f0a3 and 1b36 into v1.60 check-in: 9f5898d48f user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [8121f8fcc1] to [4fc536addb].
| ︙ | ︙ | |||
2602 2603 2604 2605 2606 2607 2608 |
(db:general-call dbdat 'top-test-set-running (list test-name))
(if (equal? status "LAUNCHED")
(db:general-call dbdat 'top-test-set (list "LAUNCHED" test-name))
(db:general-call dbdat 'top-test-set-per-pf-counts (list test-name run-id test-name test-name test-name))))
#f)
#f))
| < < < < < < < < | 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 |
(db:general-call dbdat 'top-test-set-running (list test-name))
(if (equal? status "LAUNCHED")
(db:general-call dbdat 'top-test-set (list "LAUNCHED" test-name))
(db:general-call dbdat 'top-test-set-per-pf-counts (list test-name run-id test-name test-name test-name))))
#f)
#f))
(define (db:test-get-logfile-info dbstruct run-id test-name)
(db:with-db
dbstruct
run-id
#f
(lambda (db)
(let ((res #f))
|
| ︙ | ︙ |
Modified tests/unittests/basicserver.scm from [8806c7e3ae] to [674ba78eb7].
| ︙ | ︙ | |||
17 18 19 20 21 22 23 |
(test #f #f (db:dbdat-get-path *db*))
(test #f #f (db:get-run-name-from-id *db* run-id))
;; (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
;; (exit)
;; Server tests go here
| | > | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | > | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
(test #f #f (db:dbdat-get-path *db*))
(test #f #f (db:get-run-name-from-id *db* run-id))
;; (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
;; (exit)
;; Server tests go here
(for-each
(lambda (run-id)
(test #f #f (tasks:server-running-or-starting? (db:delay-if-busy (tasks:open-db)) run-id))
(server:kind-run run-id)
(test "did server start within 20 seconds?"
#t
(let loop ((remtries 20)
(running (tasks:server-running-or-starting? (db:delay-if-busy
(tasks:open-db))
run-id)))
(if running
(> running 0)
(if (> remtries 0)
(begin
(thread-sleep! 1)
(loop (- remtries 1)
(tasks:server-running-or-starting? (db:delay-if-busy
(tasks:open-db))
run-id)))))))
(test "did server become available" #t
(let loop ((remtries 10)
(res (tasks:get-server (db:delay-if-busy (tasks:open-db)) run-id)))
(if res
(vector? res)
(begin
(if (> remtries 0)
(begin
(thread-sleep! 1.1)
(loop (- remtries 1)(tasks:get-server (db:delay-if-busy (tasks:open-db)) run-id)))
res)))))
)
(list 0 1))
(define user (current-user-name))
(define runname "mytestrun")
(define keys (rmt:get-keys))
(define runinfo #f)
(define keyvals '(("SYSTEM" "abc")("RELEASE" "def")))
(define header (vector "SYSTEM" "RELEASE" "id" "runname" "state" "status" "owner" "event_time"))
|
| ︙ | ︙ |