Megatest

Check-in [fe1582c208]
Login
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: fe1582c2081b1a0d7b8365cb8291ecba804d8117
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




238
239
240
241
242
243
244
245
			    (args:get-arg ":runname")
			    (args:get-arg "-testpatt")
			    (args:get-arg "-itempatt")))
      (sqlite3:finalize! db)
      (set! *didsomething* #t)))))
	  
(if (args:get-arg "-remove-runs")




    (remove-runs))

;;======================================================================
;; Query runs
;;======================================================================

(if (args:get-arg "-list-runs")
    (let* ((db       (begin







>
>
>
>
|







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