Overview
Comment: | Cached collection of basic run info |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | test-specific-db |
Files: | files | file ages | folders |
SHA1: |
fb1ab3f6c9bba8c88f5483fedff948f8 |
User & Date: | matt on 2012-09-27 16:03:09 |
Other Links: | branch diff | manifest | tags |
Context
2012-09-27
| ||
16:33 | Trying more conservative values on NFS check-in: 63d52c1fe9 user: mrwellan tags: test-specific-db | |
16:03 | Cached collection of basic run info check-in: fb1ab3f6c9 user: matt tags: test-specific-db | |
12:41 | Fixed wrong ordering on maxretries if not defined check-in: ccfbba74c4 user: matt tags: test-specific-db | |
Changes
Modified db.scm from [6ee5676d27] to [7f2aee0fc0].
︙ | |||
74 75 76 77 78 79 80 81 82 83 84 85 86 87 | 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | + | (db:set-sync db) (set! res (apply proc db params)) (if (not idb)(sqlite3:finalize! db)) res)) (define *global-delta* 0) (define *last-global-delta-printed* 0) (define (open-run-close-measure proc idb . params) (let* ((start-ms (current-milliseconds)) (db (if idb idb (open-db))) (throttle (string->number (config-lookup *configdat* "setup" "throttle")))) (db:set-sync db) (set! res (apply proc db params)) |
︙ | |||
355 356 357 358 359 360 361 362 | 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 | + + + - + + - - + + + + + + + + + + | (db:set-var db "MEGATEST_VERSION" megatest-version)))))) ;;====================================================================== ;; meta get and set vars ;;====================================================================== ;; returns number if string->number is successful, string otherwise ;; also updates *global-delta* (define (db:get-var db var) (let* ((start-ms (current-milliseconds)) (throttle (string->number (config-lookup *configdat* "setup" "throttle"))) |
︙ |
Modified launch.scm from [843bb8d015] to [a8ad7abd36].
︙ | |||
93 94 95 96 97 98 99 | 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | - + | (begin (debug:print 0 "Failed to setup, exiting") ;; (sqlite3:finalize! db) ;; (sqlite3:finalize! tdb) (exit 1))) (change-directory *toppath*) |
︙ |
Modified runs.scm from [2776bfc4cb] to [ab03495e0c].
︙ | |||
60 61 62 63 64 65 66 67 | 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | + + + + - - - - + + + + + + + + + + + - - - - - - + + + + + + + + + + + + - - - - - - + + + + + + + + + | (vector header res))) (define (runs:test-get-full-path test) (let* ((testname (db:test-get-testname test)) (itempath (db:test-get-item-path test))) (conc testname (if (equal? itempath "") "" (conc "(" itempath ")"))))) ;; Awful. Please FIXME (define *env-vars-by-run-id* (make-hash-table)) (define *current-run-name* #f) (define (set-megatest-env-vars db run-id) |
︙ | |||
203 204 205 206 207 208 209 | 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 | - + | (if (eq? *passnum* 0) (begin ;; have to delete test records where NOT_STARTED since they can cause -keepgoing to ;; get stuck due to becoming inaccessible from a failed test. I.e. if test B depends ;; on test A but test B reached the point on being registered as NOT_STARTED and test ;; A failed for some reason then on re-run using -keepgoing the run can never complete. (db:delete-tests-in-state db run-id "NOT_STARTED") |
︙ | |||
456 457 458 459 460 461 462 | 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 | - + | ((or (null? prereqs-not-met) ;; all prereqs met, fire off the test ;; or, if it is a 'toplevel test and all prereqs not met are COMPLETED then launch (and (eq? testmode 'toplevel) (null? non-completed))) (let ((test-name (tests:testqueue-get-testname test-record))) (setenv "MT_TEST_NAME" test-name) ;; (setenv "MT_RUNNAME" runname) |
︙ | |||
538 539 540 541 542 543 544 | 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 | - + | ) ;; setting itemdat to a list if it is #f (if (not itemdat)(set! itemdat '())) (set! item-path (item-list->path itemdat)) (debug:print 2 "Attempting to launch test " test-name (if (equal? item-path "/") "/" item-path)) (setenv "MT_TEST_NAME" test-name) ;; (setenv "MT_RUNNAME" runname) |
︙ |