Overview
| Comment: | Fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
539477fb972ccbc63df0366f027c7a1c |
| User & Date: | mrwellan on 2014-07-24 23:07:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-24
| ||
| 23:21 | Another typo check-in: 967167dabd user: mrwellan tags: v1.60 | |
| 23:07 | Fixed typo check-in: 539477fb97 user: mrwellan tags: v1.60 | |
| 00:11 | Merged in changes from v1.55 check-in: 484834d6b9 user: matt tags: v1.60 | |
Changes
Modified db.scm from [cfaa3845d9] to [8ff4cd7b4a].
| ︙ | ︙ | |||
1522 1523 1524 1525 1526 1527 1528 |
(set! res count)) ;; select * from tests where run_id=1 and uname = 'n/a' and item_path='';
(db:get-db dbstruct run-id)
"SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id)
res))
;; override states to count with list of strings.
;;
| | | 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 |
(set! res count)) ;; select * from tests where run_id=1 and uname = 'n/a' and item_path='';
(db:get-db dbstruct run-id)
"SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id)
res))
;; override states to count with list of strings.
;;
(define (db:get-count-tests-running-for-run-id-blah db run-id states)
(let ((res 0)
(sqrystr (conc "SELECT count(id) FROM tests WHERE state in ('"
(if states
(string-intersperse states "','")
"RUNNING','LAUNCHED','REMOTEHOSTSTART")
"') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');")))
(sqlite3:for-each-row
|
| ︙ | ︙ |