Overview
| Comment: | Added -target support for remove-runs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fe1582c2081b1a0d7b8365cb8291ecba |
| User & Date: | matt on 2012-01-22 22:03:32 |
| Other Links: | manifest | tags |
Context
|
2012-01-24
| ||
| 22:13 | Fixed status during eztest runs, merely set to RUNNING check-in: 64932fb9cd user: matt tags: trunk | |
|
2012-01-22
| ||
| 22:03 | Added -target support for remove-runs check-in: fe1582c208 user: matt tags: trunk | |
|
2012-01-18
| ||
| 13:47 | Added missing parameter to special case test status update check-in: 33fa93c347 user: mrwellan tags: trunk | |
Changes
Modified megatest.scm from [f869a7394a] to [5624d22f1c].
| ︙ | ︙ | |||
231 232 233 234 235 236 237 |
(args:get-arg ":runname")
(args:get-arg "-testpatt")
(args:get-arg "-itempatt")))
(sqlite3:finalize! db)
(set! *didsomething* #t)))))
(if (args:get-arg "-remove-runs")
| > > > > | | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 |
(args:get-arg ":runname")
(args:get-arg "-testpatt")
(args:get-arg "-itempatt")))
(sqlite3:finalize! db)
(set! *didsomething* #t)))))
(if (args:get-arg "-remove-runs")
(general-run-call
"-remove-runs"
"remove runs"
(lambda (db target runname keys keynames keyvallst)
(remove-runs))))
;;======================================================================
;; Query runs
;;======================================================================
(if (args:get-arg "-list-runs")
(let* ((db (begin
|
| ︙ | ︙ |