Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -500,15 +500,17 @@ (if (file-exists? alistconfig) (list (configf:read-alist alistconfig) (get-environment-variable "MT_RUN_AREA_HOME")) #f)) #f) ;; no config cached - give up - (find-and-read-config - (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config") - environ-patt: "env-override" - given-toppath: (get-environment-variable "MT_RUN_AREA_HOME") - pathenvvar: "MT_RUN_AREA_HOME"))) + (let ((runname (or (args:get-arg "-runname")(args:get-arg ":runname")))) + (if runname (setenv "MT_RUNNAME" runname)) + (find-and-read-config + (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config") + environ-patt: "env-override" + given-toppath: (get-environment-variable "MT_RUN_AREA_HOME") + pathenvvar: "MT_RUN_AREA_HOME")))) (set! *configdat* (if (car *configinfo*)(car *configinfo*) #f)) (set! *toppath* (if (car *configinfo*)(cadr *configinfo*) #f)) (let* ((tmptransport (configf:lookup *configdat* "server" "transport")) (transport (if tmptransport (string->symbol tmptransport) 'http))) (if (member transport '(http rpc nmsg)) Index: tests/fullrun/megatest.config ================================================================== --- tests/fullrun/megatest.config +++ tests/fullrun/megatest.config @@ -117,11 +117,14 @@ WRAPPEDVAR This var should have the work blah thrice: \ blah \ blah -MAX_ALLOWED_LOAD 200 +MYRUNNAME1 /this/is/#{getenv MT_RUNNAME}/my/runname +MYRUNNAME2 /this/is/[system echo $MT_RUNNAME]/my/runname + + # XTERM [system xterm] # RUNDEAD [system exit 56] [server] Index: tests/fullrun/tests/ez_pass/testconfig ================================================================== --- tests/fullrun/tests/ez_pass/testconfig +++ tests/fullrun/tests/ez_pass/testconfig @@ -1,10 +1,12 @@ [setup] [ezsteps] -lookittmp ls /tmp -lookithome ls /home +lookittmp sleep 1;ls /tmp +lookithome sleep 1;ls /home +isrunname1 sleep 1;echo $MYRUNNAME1 | grep -v '#f' +isrunname2 sleep 1;echo $MYRUNNAME2 | grep -v '#f' [test_meta] author matt owner bob description This test runs a single ezstep which is expected to pass, no logpro file.