Megatest

Check-in [2d38067787]
Login
Overview
Comment:Added MT_RUN_AREA_HOME for -show-runconfigs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54 | v1.5421
Files: files | file ages | folders
SHA1: 2d3806778773f4424ecc26d1b0792e90b3c397a5
User & Date: matt on 2013-05-05 00:43:17
Other Links: branch diff | manifest | tags
Context
2013-05-06
14:28
Fixed running dependent tests problem check-in: dec6d535be user: mrwellan tags: v1.54
2013-05-05
10:04
Added loading of ~/.megatestrc if it exists. Intended use is debugging check-in: 63540eb98d user: matt tags: refactor
00:43
Added MT_RUN_AREA_HOME for -show-runconfigs check-in: 2d38067787 user: matt tags: v1.54, v1.5421
00:35
Minor optimization. Enabled key env vars in using -show-runconfig check-in: 12652f0dbd user: matt tags: v1.54
Changes

Modified megatest.scm from [a2be3fd7a9] to [e8e5a17f3e].

420
421
422
423
424
425
426

427
428
429
430
431
432
433
		       (args:get-arg "-reqtarg")
		       (if (args:get-arg "-target")
			   (args:get-arg "-target")
			   #f)))
	   (key-vals (if target (keys:target->keyval keys target) #f))
	   (sections (if target (list "default" target) #f))
	   (data     (begin

		       (if key-vals
			   (for-each (lambda (kt)
				       (setenv (car kt) (cadr kt)))
				     key-vals))
		       (read-config "runconfigs.config" #f #t sections: sections))))

      ;; keep this one local







>







420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
		       (args:get-arg "-reqtarg")
		       (if (args:get-arg "-target")
			   (args:get-arg "-target")
			   #f)))
	   (key-vals (if target (keys:target->keyval keys target) #f))
	   (sections (if target (list "default" target) #f))
	   (data     (begin
		       (setenv "MT_RUN_AREA_HOME" *toppath*)
		       (if key-vals
			   (for-each (lambda (kt)
				       (setenv (car kt) (cadr kt)))
				     key-vals))
		       (read-config "runconfigs.config" #f #t sections: sections))))

      ;; keep this one local