Megatest

Check-in [8a48a7567d]
Login
Overview
Comment:Removed duplicate defn of set-item-env-vars.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution-remodularization
Files: files | file ages | folders
SHA1: 8a48a7567d50eee97550d08873e2dd8bfcfdf465
User & Date: matt on 2024-02-05 19:54:08
Other Links: branch diff | manifest | tags
Context
2024-02-05
19:55
WARNING: Changing dispatch to new version. Change back in api.scm if there are problmes. check-in: 39fd4aa62b user: matt tags: v1.80-revolution-remodularization
19:54
Removed duplicate defn of set-item-env-vars. check-in: 8a48a7567d user: matt tags: v1.80-revolution-remodularization
19:21
Bunch of cleanup check-in: 0ed114ba94 user: matt tags: v1.80-revolution-remodularization
Changes

Modified launchmod.scm from [a172975f82] to [756eb3c099].

1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
					(getenv "MT_TARGET")    "/"
					(getenv "MT_RUNNAME")   "/"
					(getenv "MT_TEST_NAME")
					(if (and itempath
						 (not (equal? itempath "")))
					    (conc "/" itempath)
					    ""))))))
(define (set-item-env-vars itemdat)
  (for-each (lambda (item)
	      (debug:print 2 *default-log-port* "setenv " (car item) " " (cadr item))
	      (setenv (car item) (cadr item)))
	    itemdat))


;; TODO: deprecate me in favor of ezsteps.scm
;;
(define (ezsteps:runstep ezstep run-id test-id exit-info m tal testconfig all-steps-dat)
  (let* ((stepname       (car ezstep))  ;; do stuff to run the step
	 (stepinfo       (cadr ezstep))
	;; (let ((info (cadr ezstep)))







<
<
<
<
<
<







1151
1152
1153
1154
1155
1156
1157






1158
1159
1160
1161
1162
1163
1164
					(getenv "MT_TARGET")    "/"
					(getenv "MT_RUNNAME")   "/"
					(getenv "MT_TEST_NAME")
					(if (and itempath
						 (not (equal? itempath "")))
					    (conc "/" itempath)
					    ""))))))







;; TODO: deprecate me in favor of ezsteps.scm
;;
(define (ezsteps:runstep ezstep run-id test-id exit-info m tal testconfig all-steps-dat)
  (let* ((stepname       (car ezstep))  ;; do stuff to run the step
	 (stepinfo       (cadr ezstep))
	;; (let ((info (cadr ezstep)))