Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
73ba59bf9cf9d8a700e5aee39e762222 |
| User & Date: | matt on 2021-04-14 00:07:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-14
| ||
| 21:42 | wip check-in: b2430732e0 user: matt tags: v1.6584-ck5 | |
| 00:07 | wip check-in: 73ba59bf9c user: matt tags: v1.6584-ck5 | |
|
2021-04-13
| ||
| 23:55 | wip check-in: d46b3c0e7d user: matt tags: v1.6584-ck5 | |
Changes
Modified commonmod.scm from [021b8c136e] to [1142c0775a].
| ︙ | ︙ | |||
3613 3614 3615 3616 3617 3618 3619 3620 3621 |
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
(string-join
(map (lambda (field)(conc (car field) " " (cadr field)))
fields)
",")))
)
| > > > | 3613 3614 3615 3616 3617 3618 3619 3620 3621 3622 3623 3624 |
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
(string-join
(map (lambda (field)(conc (car field) " " (cadr field)))
fields)
",")))
;; 0 1 2 3
(defstruct launch:einf (pid #t)(exit-status #t)(exit-code #t)(rollup-status 0))
)
|
Modified ezstepsmod.scm from [63b6957a48] to [9dd7e8ebd1].
| ︙ | ︙ | |||
20 21 22 23 24 25 26 | (declare (unit ezstepsmod)) (declare (uses debugprint)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses mtargs)) (declare (uses mtver)) | | > | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | (declare (unit ezstepsmod)) (declare (uses debugprint)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses csv-xml)) (declare (uses keysmod)) (declare (uses mtmod)) (declare (uses rmtmod)) (declare (uses testsmod)) (declare (uses dbmod)) (module ezstepsmod * (import scheme (prefix sqlite3 sqlite3:) chicken.base |
| ︙ | ︙ | |||
71 72 73 74 75 76 77 | configfmod debugprint ;; keysmod mtmod mtver rmtmod testsmod | > | | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 |
configfmod
debugprint
;; keysmod
mtmod
mtver
rmtmod
testsmod
dbmod
)
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
;; (use srfi-1 posix regex srfi-69 directory-utils call-with-environment-variables posix-extras
;; z3 csv typed-records pathname-expand matchable)
;;
|
| ︙ | ︙ | |||
451 452 453 454 455 456 457 458 459 460 |
(define (ezsteps:spawn-run-from testdat start-step-name run-one)
(thread-start!
(make-thread
(lambda ()
(ezsteps:run-from testdat start-step-name run-one))
(conc "ezstep run single step " start-step-name " run-one="run-one)))
)
)
| > > > > > > > > > > > > > > > > > > > > > > > | 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 |
(define (ezsteps:spawn-run-from testdat start-step-name run-one)
(thread-start!
(make-thread
(lambda ()
(ezsteps:run-from testdat start-step-name run-one))
(conc "ezstep run single step " start-step-name " run-one="run-one)))
)
;; return (conc status ": " comment) from the final section so that
;; the comment can be set in the step record in launch.scm
;;
(define (launch:load-logpro-dat run-id test-id stepname)
(let ((cname (conc stepname ".dat")))
(if (common:file-exists? cname)
(let* ((dat (read-config cname #f #f))
(csvr (db:logpro-dat->csv dat stepname))
(csvt (let-values (((fmt-cell fmt-record fmt-csv) (make-format ",")))
(fmt-csv (map list->csv-record csvr))))
(status (configf:lookup dat "final" "exit-status"))
(msg (configf:lookup dat "final" "message")))
(if csvt ;; this if blocked stack dump caused by .dat file from logpro being 0-byte. fixed by upgrading logpro
(rmt:csv->test-data run-id test-id csvt)
(debug:print 0 *default-log-port* "ERROR: no csvdat exists for run-id: " run-id " test-id: " test-id " stepname: " stepname ", check that logpro version is 1.15 or newer"))
;; (debug:print-info 13 *default-log-port* "Error: run-id/test-id/stepname="run-id"/"test-id"/"stepname" => bad csvr="csvr)
;; )
(cond
((equal? status "PASS") "PASS") ;; skip the message part if status is pass
(status (conc (configf:lookup dat "final" "exit-status") ": " (if msg msg "no message")))
(else #f)))
#f)))
)
|
Modified launchmod.scm from [0578cbe672] to [e02c4b9b76].
| ︙ | ︙ | |||
124 125 126 127 128 129 130 |
;; if handed a string, process it, else look for MT_CMDINFO
(define (launch:get-cmdinfo-assoc-list #!key (encoded-cmd #f))
(let ((enccmd (if encoded-cmd encoded-cmd (getenv "MT_CMDINFO"))))
(if enccmd
(common:read-encoded-string enccmd)
'())))
| < < < < < < < < < < < < < < < < < < < < < < < < < < | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
;; if handed a string, process it, else look for MT_CMDINFO
(define (launch:get-cmdinfo-assoc-list #!key (encoded-cmd #f))
(let ((enccmd (if encoded-cmd encoded-cmd (getenv "MT_CMDINFO"))))
(if enccmd
(common:read-encoded-string enccmd)
'())))
(define (launch:manage-steps run-id test-id item-path fullrunscript ezsteps subrun test-name tconfigreg exit-info m)
;; (let-values
;; (((pid exit-status exit-code)
;; (run-n-wait fullrunscript)))
;; (tests:test-set-status! test-id "RUNNING" "n/a" #f #f)
;; Since we should have a clean slate at this time there is no need to do
;; any of the other stuff that tests:test-set-status! does. Let's just
|
| ︙ | ︙ |