Overview
Comment: | Added adjutant module |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.66 |
Files: | files | file ages | folders |
SHA1: |
a07032585201d76a968b5c3009907972 |
User & Date: | matt on 2020-06-07 23:26:07 |
Other Links: | branch diff | manifest | tags |
Context
2020-06-14
| ||
22:30 | Merged in latest changes from v1.65 check-in: 1f32486022 user: matt tags: v1.66 | |
2020-06-07
| ||
23:26 | Added adjutant module check-in: a070325852 user: matt tags: v1.66 | |
2020-06-01
| ||
12:53 | merged in v1.65-junit-xml check-in: 6625d9e552 user: pjhatwal tags: v1.66 | |
Changes
Modified Makefile from [b65d870ff9] to [b4db5ed2c3].
︙ | |||
29 30 31 32 33 34 35 | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | - + | sdb.scm rmt.scm api.scm subrun.scm portlogger.scm \ archive.scm env.scm diff-report.scm \ cgisetup/models/pgdb.scm # module source files # ftail.scm rmtmod.scm commonmod.scm removed MSRCFILES = ducttape-lib.scm pkts.scm stml2.scm cookie.scm mutils.scm \ |
︙ |
Added adjutant.scm version [419fdc41ba].
|
Modified megatest.scm from [54cb07f11c] to [f3e528b064].
︙ | |||
41 42 43 44 45 46 47 48 49 50 | 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | + - + + | (declare (uses tdb)) (declare (uses mt)) (declare (uses api)) (declare (uses tasks)) ;; only used for debugging. (declare (uses env)) (declare (uses diff-report)) (declare (uses commonmod)) (declare (uses adjutant)) ;; (declare (uses ftail)) ;; (import ftail) |
︙ | |||
213 214 215 216 217 218 219 220 221 222 223 224 225 226 | 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 | + + | -sync-to-megatest.db : pull data from cache files in /tmp/$USER to megatest.db -sync-to dest : sync to new postgresql central style database -update-meta : update the tests metadata for all tests -setvars VAR1=val1,VAR2=val2 : Add environment variables to a run NB// these are overwritten by values set in config files. -server -|hostname : start the server (reduces contention on megatest.db), use - to automatically figure out hostname -adjutant C,M : start the server/adjutant with allocated cores C and Mem M (Gig), use 0,0 to auto use full machine -transport http|rpc : use http or rpc for transport (default is http) -log logfile : send stdout and stderr to logfile -list-servers : list the servers -kill-servers : kill all servers -repl : start a repl (useful for extending megatest) -load file.scm : load and run file.scm -mark-incompletes : find and mark incomplete tests |
︙ | |||
328 329 330 331 332 333 334 335 336 337 338 339 340 341 | 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 | + | "-run-patt" "-target-patt" "-contour" "-area-tag" "-area" "-run-tag" "-server" "-adjutant" "-transport" "-port" "-extract-ods" "-pathmod" "-env2file" "-envcap" "-envdelta" |
︙ | |||
508 509 510 511 512 513 514 515 516 517 518 519 520 521 | 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 | + | ;;(if (not (args:get-arg "-server")) ;; (thread-start! *watchdog*)) ;; if starting a server; wait till we get to running state before kicking off watchdog (let* ((no-watchdog-args '("-list-runs" "-testdata-csv" "-list-servers" "-server" "-adjutant" "-list-disks" "-list-targets" "-show-runconfig" ;;"-list-db-targets" "-show-runconfig" "-show-config" "-show-cmdinfo" |
︙ | |||
901 902 903 904 905 906 907 908 909 910 911 912 913 914 | 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 | + + + + + + + + | ;; Server? Start up here. ;; (if (args:get-arg "-server") (let ((tl (launch:setup)) (transport-type (string->symbol (or (args:get-arg "-transport") "http")))) (server:launch 0 transport-type) (set! *didsomething* #t))) ;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to ;; a specific Megatest area. Detail are being hashed out and this may change. ;; (if (args:get-arg "-adjutant") (begin (adjutant-run) (set! *didsomething* #t))) (if (or (args:get-arg "-list-servers") (args:get-arg "-kill-servers")) (let ((tl (launch:setup))) (if tl ;; all roads from here exit (let* ((servers (server:get-list *toppath*)) (fmtstr "~8a~22a~20a~20a~8a\n")) |
︙ |