Megatest

Check-in [e8937252ee]
Login
Overview
Comment:Added missing load of testconfig
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64-area-fix
Files: files | file ages | folders
SHA1: e8937252ee7b3e4ff84f6924dcb5915f06b63b15
User & Date: matt on 2017-05-19 07:28:36
Other Links: branch diff | manifest | tags
Context
2017-05-19
22:17
fixed typo .... check-in: bac36435cb user: mrwellan tags: v1.64-area-fix
07:28
Added missing load of testconfig check-in: e8937252ee user: matt tags: v1.64-area-fix
06:50
Unfinished test run area creation fixes check-in: 2953652089 user: matt tags: v1.64-area-fix
Changes

Modified launch.scm from [5730fd952a] to [7d7e3dbc6a].

537
538
539
540
541
542
543

544
545
546
547
548
549
550
	    (set-signal-handler! signal/term sighand)
	    ) ;; (set-signal-handler! signal/stop sighand)
	  
	  ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART,
	  ;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY*
	  ;;
	  (let* ((test-info (rmt:get-test-info-by-id run-id test-id))

		 (test-host (db:test-get-host        test-info))
		 (test-pid  (db:test-get-process_id  test-info)))
	    ;; if work-area was pre-ordained, use it, else create and then use
	    (if (not (and (file-exists? work-area)
			  (file-is-directory? work-area)))
		;; (if (configf:var-is? *configdat* "setup" "early-setup" "yes")
		(let ((dat  (create-work-area run-id runname keyvals test-id test-path #f test-name itemdat tconfig: tconfig)))







>







537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
	    (set-signal-handler! signal/term sighand)
	    ) ;; (set-signal-handler! signal/stop sighand)
	  
	  ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART,
	  ;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY*
	  ;;
	  (let* ((test-info (rmt:get-test-info-by-id run-id test-id))
		 (tconfig   (tests:get-testconfig test-name item-path tconfigreg #t force-create: #t))
		 (test-host (db:test-get-host        test-info))
		 (test-pid  (db:test-get-process_id  test-info)))
	    ;; if work-area was pre-ordained, use it, else create and then use
	    (if (not (and (file-exists? work-area)
			  (file-is-directory? work-area)))
		;; (if (configf:var-is? *configdat* "setup" "early-setup" "yes")
		(let ((dat  (create-work-area run-id runname keyvals test-id test-path #f test-name itemdat tconfig: tconfig)))