480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
|
(define (db:test-set-rundir! db run-id testname item-path rundir)
(sqlite3:execute
db
"UPDATE tests SET rundir=? WHERE run_id=? AND testname=? AND item_path=?;"
rundir run-id testname item-path))
;; Misc. test related queries
(define (db:test-get-paths-matching db keyvallst runname keys keynames target)
;; (print "keyvallst: " keyvallst ", runname: " runname)
;; (print "keys: " keys " keynames: " keynames)
(let ((res '())
(itempatt (if (args:get-arg "-itempatt")(args:get-arg "-itempatt") "%"))
(testpatt (if (args:get-arg "-testpatt")(args:get-arg "-testpatt") "%"))
(qrystr (string-intersperse
(map (lambda (key val)
(conc "r." key " like '" val "'"))
keynames
|
|
<
<
|
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
|
(define (db:test-set-rundir! db run-id testname item-path rundir)
(sqlite3:execute
db
"UPDATE tests SET rundir=? WHERE run_id=? AND testname=? AND item_path=?;"
rundir run-id testname item-path))
;; Misc. test related queries
(define (db:test-get-paths-matching db runname keynames target)
(let ((res '())
(itempatt (if (args:get-arg "-itempatt")(args:get-arg "-itempatt") "%"))
(testpatt (if (args:get-arg "-testpatt")(args:get-arg "-testpatt") "%"))
(qrystr (string-intersperse
(map (lambda (key val)
(conc "r." key " like '" val "'"))
keynames
|