Overview
| Comment: | possible fix for bind issue |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
66f2b726977bd7a7689e4ff5a3c27e82 |
| User & Date: | matt on 2023-04-16 16:43:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-06
| ||
| 16:39 | Turn off find-and-mark-incomplete fully check-in: 3f75938dff user: matt tags: v1.80 | |
|
2023-04-17
| ||
| 17:28 | cache get-test-info-by-id check-in: 1443998a16 user: matt tags: v1.80-servload | |
| 16:51 | possible fixes to test Leaf check-in: 4ef17eb32c user: matt tags: v1.80-possible-fixes | |
|
2023-04-16
| ||
| 16:43 | possible fix for bind issue check-in: 66f2b72697 user: matt tags: v1.80 | |
|
2023-04-15
| ||
| 09:14 | merged fork check-in: 532a2581c9 user: matt tags: v1.80 | |
Changes
Modified dbmod.scm from [b5162d04d6] to [b9113d296b].
| ︙ | ︙ | |||
678 679 680 681 682 683 684 |
(sqlite3:execute (db:get-cache-stmth dbdat db "DELETE FROM metadat WHERE var=?;") var))))
(define (db:get-toplevels-and-incompletes dbstruct run-id running-deadtime remotehoststart-deadtime)
(let* ((toplevels '())
(oldlaunched '())
(incompleted '()))
(db:with-db
| | | 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 |
(sqlite3:execute (db:get-cache-stmth dbdat db "DELETE FROM metadat WHERE var=?;") var))))
(define (db:get-toplevels-and-incompletes dbstruct run-id running-deadtime remotehoststart-deadtime)
(let* ((toplevels '())
(oldlaunched '())
(incompleted '()))
(db:with-db
dbstruct run-id #t ;; not a write but problemtic
(lambda (dbdat db)
(let* ((stmth1 (db:get-cache-stmth
dbdat db
"SELECT id,rundir,uname,testname,item_path,event_time,run_duration FROM tests
WHERE run_id=? AND (strftime('%s','now') - event_time) > (run_duration + ?)
AND state IN ('RUNNING');"))
(stmth2 (db:get-cache-stmth
|
| ︙ | ︙ |