Megatest

Check-in [d23960bc33]
Login
Overview
Comment:fixed problem where megatest stack dumped when megatest.config is not found
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: d23960bc33afa500aa515fbdebe612fd6ba86fa0
User & Date: bjbarcla on 2017-04-24 18:25:26
Other Links: branch diff | manifest | tags
Context
2017-04-25
00:12
configf - keep reference to empty sections. NOTE: This breaks several tests but is still correct behavior check-in: 3129220de0 user: matt tags: v1.64, config-section-fix
2017-04-24
22:00
Quick hacks to make dashboard layout more efficient check-in: 61826e149f user: matt tags: v1.64-dashboard
18:25
fixed problem where megatest stack dumped when megatest.config is not found check-in: d23960bc33 user: bjbarcla tags: v1.64
2017-04-19
16:59
merged potential fix for signature 12 problem (1 in 200 issue with test crashing <this should not happen> where *configdat* is broken after (launch:setup) ) check-in: dd090afbe4 user: bjbarcla tags: v1.64, v1.6407
Changes

Modified launch.scm from [f64b41effe] to [a8ba6b6a12].

929
930
931
932
933
934
935
936


937
938
939
940
941
942
943
929
930
931
932
933
934
935

936
937
938
939
940
941
942
943
944







-
+
+







	 (else
          ;;(BB> "launch:setup-body -- cond branch 3 - else")
	  (let* ((cfgdat   (find-and-read-config 
			    (or (args:get-arg "-config") "megatest.config")
			    environ-patt: "env-override"
			    given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
			    pathenvvar: "MT_RUN_AREA_HOME")))
	    (if cfgdat

            (if (and cfgdat (list? cfgdat) (> (length cfgdat) 0) (hash-table? (car cfgdat)))
		(let* ((toppath  (or (get-environment-variable "MT_RUN_AREA_HOME")(cadr cfgdat)))
		       (rdat     (read-config (conc toppath  ;; convert this to use runconfig:read!
						    "/runconfigs.config") *runconfigdat* #t sections: sections)))
		  (set! *configinfo*   cfgdat)
		  (set! *configdat*    (car cfgdat))
		  (set! *runconfigdat* rdat)
		  (set! *toppath*      toppath)