Overview
| Comment: | Fixed intial values on examine-test for data refresh |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4299ec1adb4c10894d61026ff3a826fa |
| User & Date: | matt on 2012-02-26 22:15:58 |
| Other Links: | manifest | tags |
Context
|
2012-02-27
| ||
| 06:16 | Upping version to v1.38 check-in: 275de76b6d user: matt tags: trunk, v1.38 | |
|
2012-02-26
| ||
| 22:15 | Fixed intial values on examine-test for data refresh check-in: 4299ec1adb user: matt tags: trunk | |
| 21:35 | Tweaked some queries to increase the amount of interleaving possible check-in: 5d93144663 user: matt tags: trunk | |
Changes
Modified dashboard-tests.scm from [2b26f71a92] to [92e6e75c72].
| ︙ | ︙ | |||
247 248 249 250 251 252 253 | ;;====================================================================== ;; ;;====================================================================== (define (examine-test db test-id) ;; run-id run-key origtest) (let* ((testdat (rdb:get-test-data-by-id db test-id)) (db-path (conc *toppath* "/megatest.db")) | | | | | 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 |
;;======================================================================
;;
;;======================================================================
(define (examine-test db test-id) ;; run-id run-key origtest)
(let* ((testdat (rdb:get-test-data-by-id db test-id))
(db-path (conc *toppath* "/megatest.db"))
(db-mod-time 0) ;; (file-modification-time db-path))
(last-update 0) ;; (current-seconds))
(request-update #t))
(if (not testdat)
(begin
(debug:print 0 "ERROR: No test data found for test " test-id ", exiting")
(exit 1))
(let* ((run-id (if testdat (db:test-get-run_id testdat) #f))
(keydat (if testdat (rdb:get-key-val-pairs db run-id) #f))
(rundat (if testdat (rdb:get-run-info db run-id) #f))
|
| ︙ | ︙ |
Modified megatest.scm from [f5c903d812] to [5218ba5c47].
| ︙ | ︙ | |||
326 327 328 329 330 331 332 333 334 335 336 337 338 339 |
(db:step-get-status step)
(db:step-get-event_time step)))
steps)))))
tests))))
runs)
(set! *didsomething* #t)
))
;;======================================================================
;; full run
;;======================================================================
;; get lock in db for full run for this directory
;; for all tests with deps
| > > > > > > > > > > > > | 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 |
(db:step-get-status step)
(db:step-get-event_time step)))
steps)))))
tests))))
runs)
(set! *didsomething* #t)
))
;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;;======================================================================
(if (and (args:get-arg "-server")
(not (or (args:get-arg "-runall")
(args:get-arg "-runtests"))))
(let* ((toppath (setup-for-run))
(db (if toppath (open-db) #f)))
(if db
(server:start db (args:get-arg "-server"))
(debug:print 0 "ERROR: Failed to setup for megatest"))))
;;======================================================================
;; full run
;;======================================================================
;; get lock in db for full run for this directory
;; for all tests with deps
|
| ︙ | ︙ | |||
389 390 391 392 393 394 395 | target runname (args:get-arg "-runtests") (args:get-arg "-itempatt") user (make-hash-table))))) | < < < < < < < < < < | 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
target
runname
(args:get-arg "-runtests")
(args:get-arg "-itempatt")
user
(make-hash-table)))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
"-rollup"
"rollup tests"
|
| ︙ | ︙ |