Overview
| Comment: | Minor tweaks |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
073579372ece2a4cc6e7aecc4651ae3f |
| User & Date: | mrwellan on 2017-02-14 14:48:04 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-14
| ||
| 16:44 | Added protection for call to get mod time check-in: c39a272abe user: mrwellan tags: run-mgr | |
| 14:48 | Minor tweaks check-in: 073579372e user: mrwellan tags: run-mgr | |
| 01:19 | Mostly added contour support to db check-in: eeedb3f973 user: matt tags: run-mgr | |
Changes
Modified megatest.config from [0c969d4a92] to [242f563498].
1 2 3 4 5 6 7 8 9 10 11 | [setup] pktsdirs /tmp/pkts /some/other/source [areas] # path-to-area map-target-script(future, optional) fullrun tests/fullrun ext-tests ext-tests [contours] # mode-patt/tag-expr quick QUICKPATT/quick | | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 | [setup] pktsdirs /tmp/pkts /some/other/source [areas] # path-to-area map-target-script(future, optional) fullrun tests/fullrun ext-tests ext-tests [contours] # mode-patt/tag-expr quick QUICKPATT/quick full MAXPATT/all QUICKPATT/quick |
Modified mtut.scm from [2875b68fc1] to [b843e97a73].
| ︙ | ︙ | |||
277 278 279 280 281 282 283 | (meta (if (or pmeta smeta) (cdr (or pmeta smeta)) #f))) (if (or pmeta smeta) (list meta value) '()))) (filter cdr args-data))))) | | | | 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 |
(meta (if (or pmeta smeta)
(cdr (or pmeta smeta))
#f)))
(if (or pmeta smeta)
(list meta value)
'())))
(filter cdr args-data)))))
;; (print "Alldat: " alldat
;; " args-data: " args-data)
(add-z-card
(apply construct-sdat alldat))))
(define (simple-setup start-dir-in)
(let* ((start-dir (or start-dir-in "."))
(mtconfig (or (args:get-arg "-config") "megatest.config"))
(mtconfdat (find-and-read-config ;; NB// sets MT_RUN_AREA_HOME as side effect
|
| ︙ | ︙ |
Modified rungen.config from [1240de112d] to [a6215b4ccc].
1 2 3 4 5 6 7 | [v1.63/tip/dev] # file: files changes since last run trigger new run # script: script is called with unix seconds as last parameter (other parameters are preserved) # # contour:sensetype runname params quick:file auto *.scm quick:script auto checkfossil.sh v1.63 | > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | [v1.63/tip/dev] # file: files changes since last run trigger new run # script: script is called with unix seconds as last parameter (other parameters are preserved) # # contour:sensetype runname params quick:file auto *.scm quick:script auto checkfossil.sh v1.63 # field allowed values # ----- -------------- # minute 0-59 # hour 0-23 # day of month 1-31 # month 1-12 (or names, see below) # day of week 0-7 (0 or 7 is Sun, or use names) # every friday at midnight run all all:scheduled auto 0 0 0 0 5 |
Modified runs.scm from [7ed10af70d] to [3fbaef1a73].
| ︙ | ︙ | |||
1974 1975 1976 1977 1978 1979 1980 |
;;
(define (runs:get-tests-matching-tags tagpatt)
(let* ((tagdata (rmt:get-tests-tags))
(res '())) ;; list of tests that match one or more tags
(for-each
(lambda (tag)
(if (patt-list-match tag tagpatt)
| | | 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 |
;;
(define (runs:get-tests-matching-tags tagpatt)
(let* ((tagdata (rmt:get-tests-tags))
(res '())) ;; list of tests that match one or more tags
(for-each
(lambda (tag)
(if (patt-list-match tag tagpatt)
(set! res (append (hash-table-ref tagdata tag) res))))
(hash-table-keys tagdata))
res))
;; Update test_meta for all tests
(define (runs:update-all-test_meta db)
(let ((test-names (tests:get-all))) ;; (tests:get-valid-tests)))
|
| ︙ | ︙ |
Modified server.scm from [7d7e4242db] to [c88a26a1a2].
| ︙ | ︙ | |||
392 393 394 395 396 397 398 |
(define (server:get-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(string->number tmo))
(* 60 60 (string->number tmo))
;; (* 3 24 60 60) ;; default to three days
| | | 392 393 394 395 396 397 398 399 400 401 402 |
(define (server:get-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(string->number tmo))
(* 60 60 (string->number tmo))
;; (* 3 24 60 60) ;; default to three days
(* 60 60 1) ;; default to one hour
;; (* 60 60 25) ;; default to 25 hours
)))
|