Overview
| Comment: | update to sync test pid to pgdb |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
eecf6b993e5deb874410fa317bb020d3 |
| User & Date: | pjhatwal on 2019-07-09 10:56:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-07-09
| ||
| 11:03 | added capability to tag a run in pgdb check-in: 1aaf1064c6 user: pjhatwal tags: v1.65 | |
| 10:56 | update to sync test pid to pgdb check-in: eecf6b993e user: pjhatwal tags: v1.65 | |
| 10:54 | Changed the word failed to unable in message to aleviate need to add logpro rule check-in: 57d7865ae2 user: pjhatwal tags: v1.65 | |
Changes
Modified cgisetup/models/pgdb.scm from [77a1401512] to [9e9aeea0d2].
| ︙ | ︙ | |||
111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
(dbi:get-one-row dbh "SELECT id,tag_name FROM tags where tag_name=?;" tag))
(define (pgdb:insert-tag dbh name )
(dbi:exec dbh "INSERT INTO tags (tag_name) VALUES (?)" name ))
(define (pgdb:insert-area-tag dbh tag-id area-id )
(dbi:exec dbh "INSERT INTO area_tags (tag_id, area_id) VALUES (?,?)" tag-id area-id ))
(define (pgdb:is-area-taged dbh area-id)
(let ((area-tag-id (dbi:get-one dbh "SELECT id FROM area_tags WHERE area_id=?;" area-id)))
(if area-tag-id
#t
#f)))
(define (pgdb:is-area-taged-with-a-tag dbh tag-id area-id)
(let ((area-tag-id (dbi:get-one dbh "SELECT id FROM area_tags WHERE area_id=? and tag_id=?;" area-id tag-id)))
(if area-tag-id
#t
#f)))
;;======================================================================
;; R U N S
;;======================================================================
;; given a target spec id, target and run-name return the run-id
| > > > > > > > > > > > | 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 |
(dbi:get-one-row dbh "SELECT id,tag_name FROM tags where tag_name=?;" tag))
(define (pgdb:insert-tag dbh name )
(dbi:exec dbh "INSERT INTO tags (tag_name) VALUES (?)" name ))
(define (pgdb:insert-area-tag dbh tag-id area-id )
(dbi:exec dbh "INSERT INTO area_tags (tag_id, area_id) VALUES (?,?)" tag-id area-id ))
(define (pgdb:insert-run-tag dbh tag-id run-id )
(dbi:exec dbh "INSERT INTO run_tags (tag_id, run_id) VALUES (?,?)" tag-id run-id ))
(define (pgdb:is-area-taged dbh area-id)
(let ((area-tag-id (dbi:get-one dbh "SELECT id FROM area_tags WHERE area_id=?;" area-id)))
(if area-tag-id
#t
#f)))
(define (pgdb:is-area-taged-with-a-tag dbh tag-id area-id)
(let ((area-tag-id (dbi:get-one dbh "SELECT id FROM area_tags WHERE area_id=? and tag_id=?;" area-id tag-id)))
(if area-tag-id
#t
#f)))
(define (pgdb:is-run-taged-with-a-tag dbh tag-id run-id)
(let ((run-tag-id (dbi:get-one dbh "SELECT id FROM run_tags WHERE run_id=? and tag_id=?;" run-id tag-id)))
(if run-tag-id
#t
#f)))
;;======================================================================
;; R U N S
;;======================================================================
;; given a target spec id, target and run-name return the run-id
|
| ︙ | ︙ | |||
186 187 188 189 190 191 192 |
(define (pgdb:get-test-step-last-update dbh id )
(dbi:get-one
dbh
"SELECT last_update FROM test_steps WHERE id=? ;"
id))
| | | | 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 |
(define (pgdb:get-test-step-last-update dbh id )
(dbi:get-one
dbh
"SELECT last_update FROM test_steps WHERE id=? ;"
id))
(define (pgdb:insert-test-step dbh test-id stepname state status event_time comment logfile last-update )
(dbi:exec
dbh
"INSERT INTO test_steps (test_id,stepname,state,status,event_time,logfile,comment,last_update)
VALUES (?,?,?,?,?,?,?,? );"
test-id stepname state status event_time logfile comment last-update))
(define (pgdb:update-test-step dbh step-id test-id stepname state status event_time comment logfile last-update)
(dbi:exec
dbh
"UPDATE test_steps SET
test_id=?,stepname=?,state=?,status=?,event_time=?,logfile=?,comment=?,last_update=?
|
| ︙ | ︙ | |||
269 270 271 272 273 274 275 | dbh "SELECT last_update FROM tests WHERE id=? ;" id )) ;; create new test record ;; | | | | | | | | | 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 |
dbh
"SELECT last_update FROM tests WHERE id=? ;"
id ))
;; create new test record
;;
(define (pgdb:insert-test dbh run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update pid)
(dbi:exec
dbh
"INSERT INTO tests (run_id,test_name,item_path,state,status,host,cpuload,diskfree,uname,rundir,final_logf,run_duration,comment,event_time,archived,last_update,attemptnum)
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);"
run-id test-name item-path state status host cpuload diskfree uname
run-dir log-file run-duration comment event-time archived last-update pid))
;; update existing test record
;;
(define (pgdb:update-test dbh test-id run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update pid)
(dbi:exec
dbh
"UPDATE tests SET
run_id=?,test_name=?,item_path=?,state=?,status=?,host=?,cpuload=?,diskfree=?,uname=?,rundir=?,final_logf=?,run_duration=?,comment=?,event_time=?,archived=?,last_update=?,attemptnum=?
WHERE id=?;"
run-id test-name item-path state status host cpuload diskfree uname
run-dir log-file run-duration comment event-time archived last-update pid test-id))
(define (pgdb:get-tests dbh target-patt)
(dbi:get-rows
dbh
"SELECT t.id,t.run_id,t.test_name,t.item_path,t.state,t.status,t.host,t.cpuload,t.diskfree,t.uname,t.rundir,t.final_logf,t.run_duration,t.comment,t.event_time,t.archived,
r.id,r.target,r.ttype_id,r.run_name,r.state,r.status,r.owner,r.event_time,r.comment
FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id
|
| ︙ | ︙ |