Overview
Comment: | merged with latest v1.64 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.64-prepend-contour | v1.64-envdebug |
Files: | files | file ages | folders |
SHA1: |
30d36cbe7675a1ae3022c6e91e770861 |
User & Date: | srehman on 2017-04-05 11:20:01 |
Original Comment: | merged with latest v1,64 |
Other Links: | branch diff | manifest | tags |
Context
2017-04-05
| ||
12:51 | merged change restoring legacy 'prefix-target' option and added 'prepend-contour' check-in: e44310678f user: srehman tags: v1.64-envdebug | |
11:20 | merged with latest v1.64 Closed-Leaf check-in: 30d36cbe76 user: srehman tags: v1.64-prepend-contour, v1.64-envdebug | |
11:18 | added manual prefixation option to target via '-prefix-target' check-in: 9830e9f626 user: srehman tags: v1.64-prepend-contour, v1.64-envdebug | |
05:26 | Fixed run command for mtutil check-in: 3c313e0476 user: matt tags: v1.64-envdebug | |
Changes
Modified .mtutil.scm from [dcf82d5ea0] to [3e3e4527c3].
︙ | |||
59 60 61 62 63 64 65 | 59 60 61 62 63 64 65 66 67 | - + | (conc (seconds->wwdate (current-seconds)) next-letter)))) (hash-table-set! *runname-mappers* 'auto (lambda (target run-name area area-path reason contour mode-patt) "auto-eh")) |
Modified cgisetup/models/pgdb.scm from [c93d09ef82] to [d47a56499d].
︙ | |||
23 24 25 26 27 28 29 | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | - - + + + + + + + | ;; (import data-structures) ;; (import chicken) (use typed-records (prefix dbi dbi:)) ;; given a configdat lookup the connection info and open the db ;; |
︙ | |||
250 251 252 253 254 255 256 257 258 259 260 261 262 263 | 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 | + + + + + + + + + + + + + + + + + | (coldat (hash-table-ref/default data first #f))) (if (not coldat)(let ((newht (make-hash-table))) (hash-table-set! data first newht) (set! coldat newht))) (hash-table-set! coldat rest run))) runs) data)) ;; given ordered data hash return a-keys ;; (define (pgdb:ordered-data->a-keys ordered-data) (sort (hash-table-keys ordered-data) string>=?)) ;; given ordered data hash return b-keys ;; (define (pgdb:ordered-data->b-keys ordered-data a-keys) (delete-duplicates (sort (apply append (map (lambda (sub-key) (let ((subdat (hash-table-ref ordered-data sub-key))) (hash-table-keys subdat))) a-keys)) string>=?))) (define (pgdb:runs-to-hash runs ) (let* ((data (make-hash-table))) (for-each (lambda (run) (let* ((run-name (vector-ref run 0)) (test (conc (vector-ref run 1) ":" (vector-ref run 3))) |
︙ |
Modified cgisetup/pages/home_view.scm from [8cd8eab562] to [cf60cb921f].
︙ | |||
72 73 74 75 76 77 78 | 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 | - + - - - - + - - - - - + + - + | (s:p " Result Format: total / pass / fail / other") (s:fieldset (conc "Runs data for " tfilter) ;; ;; A very basic display ;; |
︙ |
Modified dashboard.scm from [3452a7b11d] to [a14a45cd51].
︙ | |||
148 149 150 151 152 153 154 | 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 | - - - - + + + + + + + + + | updating: #f hide-not-hide-tabs: #f )) ;; RA => returns the tabdat stored at hashkey passed in commondat-tabdats table (e.g. 0 gives summary) ;; (define (dboard:common-get-tabdat commondat #!key (tab-num #f)) |
︙ | |||
1932 1933 1934 1935 1936 1937 1938 | 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 | - + - - - - + + + + | (lambda () (handle-exceptions exn (begin (print-call-chain) (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn)) (debug:print 0 *default-log-port* "ERROR: failed call procedure \"" updater |
︙ |
Added gentargets.sh version [430721a6b7].
|
Modified megatest.config from [303e213485] to [c34072fd64].
|
Modified mtut.scm from [12d335b5eb] to [61b7ccaff4].
︙ | |||
26 27 28 29 30 31 32 | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | - - - - | (include "megatest-fossil-hash.scm") (require-library stml) (define *target-mappers* (make-hash-table)) ;; '()) (define *runname-mappers* (make-hash-table)) ;; '()) |
︙ | |||
391 392 393 394 395 396 397 | 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 | + + - + | ;; (define (command-line->pkt action args-alist sched-in) (let* ((sched (cond ((vector? sched-in)(local-time->seconds sched-in)) ;; we recieved a time ((number? sched-in) sched-in) (else (current-seconds)))) (args-data (if args-alist (if (hash-table? args-alist) ;; seriously? (hash-table->alist args-alist) |
︙ | |||
881 882 883 884 885 886 887 888 889 890 891 892 893 894 | 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 | + + + + | pkts)))))) (define (get-pkts-dir mtconf) (let ((pktsdirs (configf:lookup mtconf "setup" "pktsdirs")) (pktsdir (if pktsdirs (car (string-split pktsdirs " ")) #f))) pktsdir)) (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.mtutilrc"))) (if (file-exists? debugcontrolf) (load debugcontrolf))) (if *action* (case (string->symbol *action*) ((run remove rerun set-ss archive kill) (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir"))) (mtconf (car mtconfdat)) (pktsdirs (configf:lookup mtconf "setup" "pktsdirs")) (pktsdir (if pktsdirs (car (string-split pktsdirs " ")) #f)) |
︙ | |||
935 936 937 938 939 940 941 | 937 938 939 940 941 942 943 944 945 946 947 948 949 950 | - | ;; If HTTP_HOST is defined then we must be in the cgi environment ;; so run stml and exit ;; (if (get-environment-variable "HTTP_HOST") (begin (stml:main #f) (exit))) |
︙ |
Modified runconfigs.config from [3ca33a1f93] to [ae45c36eb8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + + + + + + - + | # To get emacs font highlighing in the various megatest configs do this: # # Install emacs-goodies-el: # sudo apt install emacs-goodies-el # Add to your ~/.emacs file: # (add-to-list 'auto-mode-alist '("config\\'" . conf-space-mode)) # # example of a cron entry to run sync using db spec pgdb, with pgdb setting in file local.config # [a/b/c] all:scheduled:sync cron= 0/5 * * * *;dbdest=pgdb;appendconf=/mfs/matt/.sysmaint/local.config quick:scheduled:sync cron= 0/5 * * * *;dbdest=pgdb;appendconf=/mfs/matt/.sysmaint/local.config [scriptinc ./gentargets.sh] # [v1.23/45/67] # tip will be replaced with hashkey? [/.*/] |
︙ |