Overview
| Comment: | updated test-short-record method to take typed-record |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defstruct-srehman |
| Files: | files | file ages | folders |
| SHA1: |
3217dc58400666fe326b99412ffdf3ce |
| User & Date: | srehman on 2016-10-03 15:39:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-10-03
| ||
| 15:40 | fixed db_records to account for modifications to test datatype update check-in: 8718070900 user: srehman tags: defstruct-srehman | |
| 15:39 | updated test-short-record method to take typed-record check-in: 3217dc5840 user: srehman tags: defstruct-srehman | |
|
2016-09-29
| ||
| 14:58 | merged with latest v1.62 check-in: 1f841dd640 user: srehman tags: defstruct-srehman | |
Changes
Modified db.scm from [a71f148c61] to [6d3f9a01cd].
| ︙ | ︙ | |||
2293 2294 2295 2296 2297 2298 2299 | ((shortlist)(map db:test-short-record->norm res)) ((#f) res) (else res))))) (define (db:test-short-record->norm inrec) ;; "id,run_id,testname,item_path,state,status" ;; "id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment | < < < | < < < < | 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 |
((shortlist)(map db:test-short-record->norm res))
((#f) res)
(else res)))))
(define (db:test-short-record->norm inrec)
;; "id,run_id,testname,item_path,state,status"
;; "id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment
(make-db:test-rec id: -1))
(define (db:get-tests-for-run-state-status dbstruct run-id testpatt)
(let* ((res '())
(tests-match-qry (tests:match->sqlqry testpatt))
(qry (conc "SELECT id,testname,item_path,state,status FROM tests WHERE run_id=? "
(if tests-match-qry (conc " AND (" tests-match-qry ") ") ""))))
(debug:print-info 8 *default-log-port* "db:get-tests-for-run qry=" qry)
|
| ︙ | ︙ |