Overview
Comment: | Stand-alone runs now working |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
a3bcf88b798c0082fa1ef93b2e2d1408 |
User & Date: | matt on 2012-02-26 16:09:54 |
Other Links: | manifest | tags |
Context
2012-02-26
| ||
16:19 | Caching, rpc all working fairly well check-in: 015df64528 user: matt tags: trunk | |
16:09 | Stand-alone runs now working check-in: a3bcf88b79 user: matt tags: trunk | |
14:00 | Merged from archiving branch, added caching for steps check-in: 65ae97a3b1 user: matt tags: trunk | |
Changes
Modified db.scm from [1cbcbbe994] to [8be9b130bc].
︙ | |||
30 31 32 33 34 35 36 37 38 39 40 41 42 43 | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | + | (include "run_records.scm") ;; timestamp type (val1 val2 ...) ;; type: meta-info, step (define *incoming-data* '()) (define *incoming-last-time* (current-seconds)) (define *incoming-mutex* (make-mutex)) (define *cache-on* #f) (define (open-db) ;; (conc *toppath* "/megatest.db") (car *configinfo*))) (let* ((dbpath (conc *toppath* "/megatest.db")) ;; fname) (dbexists (file-exists? dbpath)) (db (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath)) (handler (make-busy-timeout 36000))) (sqlite3:set-busy-handler! db handler) |
︙ | |||
642 643 644 645 646 647 648 | 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 | - + + + - + | (list cpuload diskfree minutes run-id test-name item-path)) ;; run-id test-name item-path minutes cpuload diskfree tmpfree) *incoming-data*)) |
︙ | |||
969 970 971 972 973 974 975 | 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 | - - - + + + + | (or (not state)(not status))) (debug:print 0 "WARNING: Invalid " (if status "status" "state") " value \"" (if status state-in status-in) "\", update your validvalues section in megatest.config")) (if testdat (let ((test-id (test:get-id testdat))) (mutex-lock! *incoming-mutex*) (set! *incoming-data* (cons (vector 'step-status |
︙ |
Modified megatest.scm from [a7b4c83986] to [f5c903d812].
︙ | |||
238 239 240 241 242 243 244 | 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 | - - + + | (exit 4)) ((let ((db #f)) (if (not (setup-for-run)) (begin (debug:print 0 print "Failed to setup, exiting") (exit 1))) (set! db (open-db)) |
︙ |