Overview
| Comment: | Load up test steps info immediately |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5518a |
| Files: | files | file ages | folders |
| SHA1: |
32041b1f13b245476a6afdfd8aaa6d84 |
| User & Date: | mrwellan on 2014-04-22 10:58:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-04-22
| ||
| 11:18 | Load up test steps info immediately check-in: c0b21a4820 user: mrwellan tags: v1.55, v1.5518b | |
| 10:58 | Load up test steps info immediately check-in: 32041b1f13 user: mrwellan tags: v1.55, v1.5518a | |
| 10:47 | Trimmed redundant messages. Caught another corner case with useless attempts to retry check-in: 46bed86eba user: mrwellan tags: v1.55, v1.5518 | |
Changes
Modified dashboard-tests.scm from [2a48985660] to [a6f9ebb846].
| ︙ | ︙ | |||
390 391 392 393 394 395 396 | (rundat (if testdat (open-run-close db:get-run-info db run-id) #f)) (runname (if testdat (db:get-value-by-header (db:get-row rundat) (db:get-header rundat) "runname") #f)) ;; These next two are intentional bad values to ensure errors if they should not ;; get filled in properly. (logfile "/this/dir/better/not/exist") | | > > | 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 | (rundat (if testdat (open-run-close db:get-run-info db run-id) #f)) (runname (if testdat (db:get-value-by-header (db:get-row rundat) (db:get-header rundat) "runname") #f)) ;; These next two are intentional bad values to ensure errors if they should not ;; get filled in properly. (logfile "/this/dir/better/not/exist") (rundir (if testdat (db:test-get-rundir testdat) logfile)) (testdat-path (conc rundir "/testdat.db")) ;; this gets recalculated until found (teststeps (if testdat (db:get-compressed-steps test-id work-area: rundir) '())) (testfullname (if testdat (db:test-get-fullname testdat) "Gathering data ...")) (testname (if testdat (db:test-get-testname testdat) "n/a")) (testmeta (if testdat (let ((tm (open-run-close db:testmeta-get-record db testname))) (if tm tm (make-db:testmeta))) |
| ︙ | ︙ |