Overview
| Comment: | Two minor fixes; lengthen timeout for queue handler, fix typo in jobgroup handling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
87cbe68f31b18fb12e7f4e1a5af4272e |
| User & Date: | mrwellan on 2013-08-30 16:46:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-09-04
| ||
| 16:48 | Added version tracking in executable to refdb check-in: 69ac7e9d8f user: mrwellan tags: v1.55 | |
|
2013-08-30
| ||
| 16:46 | Two minor fixes; lengthen timeout for queue handler, fix typo in jobgroup handling check-in: 87cbe68f31 user: mrwellan tags: v1.55 | |
|
2013-08-29
| ||
| 08:39 | typo fix check-in: 5b6ec2e95c user: matt tags: v1.55 | |
Changes
Modified db.scm from [8a5cde103d] to [ac3c20aa1a].
| ︙ | ︙ | |||
1151 1152 1153 1154 1155 1156 1157 |
0 ;;
(let ((res 0))
(sqlite3:for-each-row
(lambda (count)
(set! res count))
db
"SELECT count(id) FROM tests WHERE state = 'RUNNING' OR state = 'LAUNCHED' OR state = 'REMOTEHOSTSTART'
| | | 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 |
0 ;;
(let ((res 0))
(sqlite3:for-each-row
(lambda (count)
(set! res count))
db
"SELECT count(id) FROM tests WHERE state = 'RUNNING' OR state = 'LAUNCHED' OR state = 'REMOTEHOSTSTART'
AND testname in (SELECT testname FROM test_meta WHERE jobgroup=?);"
jobgroup)
res)))
;; done with run when:
;; 0 tests in LAUNCHED, NOT_STARTED, REMOTEHOSTSTART, RUNNING
(define (db:estimated-tests-remaining db run-id)
(let ((res 0))
|
| ︙ | ︙ |
Modified lock-queue.scm from [343ec1ffa5] to [a9f4c5425b].
| ︙ | ︙ | |||
23 24 25 26 27 28 29 | ;; update requests in an sqlite db ;;====================================================================== (define (lock-queue:open-db fname) (let* ((actualfname (conc fname ".lockdb")) (dbexists (file-exists? actualfname)) (db (sqlite3:open-database actualfname)) | | | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
;; update requests in an sqlite db
;;======================================================================
(define (lock-queue:open-db fname)
(let* ((actualfname (conc fname ".lockdb"))
(dbexists (file-exists? actualfname))
(db (sqlite3:open-database actualfname))
(handler (make-busy-timeout 136000)))
(if dbexists
db
(begin
(sqlite3:execute
db
"CREATE TABLE IF NOT EXISTS queue (
id INTEGER PRIMARY KEY,
|
| ︙ | ︙ |