Overview
| Comment: | Minor tidy up |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
a1dbd06515099561a77523765ad303e2 |
| User & Date: | mrwellan on 2017-09-06 11:47:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-09-06
| ||
| 14:56 | test data synced into pgdb check-in: 8a40b211a4 user: pjhatwal tags: v1.65 | |
| 11:47 | Minor tidy up check-in: a1dbd06515 user: mrwellan tags: v1.65 | |
|
2017-09-01
| ||
| 15:50 | pgdb test-step sync completed check-in: 2f03232e1d user: pjhatwal tags: v1.65 | |
|
2017-06-21
| ||
| 18:52 | Unknown old merge? Leaf check-in: 5464c15055 user: matt tags: v1.65-unknown | |
Changes
Modified mtut.scm from [e9393f688c] to [6bb8fa9976].
| ︙ | ︙ | |||
10 11 12 13 14 15 16 | ;; (include "common.scm") ;; (include "megatest-version.scm") ;; fake out readline usage of toplevel-command (define (toplevel-command . a) #f) (use srfi-1 posix srfi-69 readline ;; regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras) | | | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
;; (include "common.scm")
;; (include "megatest-version.scm")
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use srfi-1 posix srfi-69 readline ;; regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
srfi-18 extras format pkts regex regex-case
(prefix dbi dbi:)
nanomsg)
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
|
| ︙ | ︙ | |||
116 117 118 119 120 121 122 | archive : compress and move test data to archive disk kill : stop tests or entire runs db : database utilities areas, contours, setup : show areas, contours or setup section from megatest.config Contour actions: process : runs import, rungen and dispatch | | | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 | archive : compress and move test data to archive disk kill : stop tests or entire runs db : database utilities areas, contours, setup : show areas, contours or setup section from megatest.config Contour actions: process : runs import, rungen and dispatch Trigger propagation actions: tsend a=b,c=d... : send trigger info to all recpients in the [listeners] section tlisten -port N : listen for trigger info on port N Selectors -immediate : apply this action immediately, default is to queue up actions -area areapatt1,area2... : apply this action only to the specified areas |
| ︙ | ︙ | |||
454 455 456 457 458 459 460 |
"timer thread")))
(thread-start! th1)
(thread-start! th2)
(thread-join! th1)
res))))
;;======================================================================
| < < | 454 455 456 457 458 459 460 461 462 463 464 465 466 467 |
"timer thread")))
(thread-start! th1)
(thread-start! th2)
(thread-join! th1)
res))))
;;======================================================================
;; Runs
;;======================================================================
;; make a runname
;;
(define (make-runname pre post)
(time->string
|
| ︙ | ︙ | |||
524 525 526 527 528 529 530 |
given-toppath: start-dir
;; pathenvvar: "MT_RUN_AREA_HOME"
))
(mtconf (if mtconfdat (car mtconfdat) #f)))
;; we set some dynamic data in a section called "scratchdata"
(if mtconf
(begin
| < | 522 523 524 525 526 527 528 529 530 531 532 533 534 535 |
given-toppath: start-dir
;; pathenvvar: "MT_RUN_AREA_HOME"
))
(mtconf (if mtconfdat (car mtconfdat) #f)))
;; we set some dynamic data in a section called "scratchdata"
(if mtconf
(begin
(configf:section-var-set! mtconf "scratchdat" "toppath" start-dir)))
;; (print "TOPPATH: " (configf:lookup mtconf "scratchdat" "toppath"))
mtconfdat))
;; NEED TIMESTAMP ON PKTS for efficient loading of packets into db.
|
| ︙ | ︙ |