Megatest

Check-in [52d24fd4b2]
Login
Overview
Comment:Create the .testconfig files - so often needed for debug. However create them at the time the test starts to execute so that it is clear that all needed vars are available.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 52d24fd4b2ee1236eb33e6f58ebba63f6af9ba79
User & Date: matt on 2017-11-12 22:50:47
Other Links: branch diff | manifest | tags
Context
2017-11-13
21:45
Added subrun launch dashboard button support using testconfig.subrun check-in: b2ea6646eb user: matt tags: v1.65
2017-11-12
22:50
Create the .testconfig files - so often needed for debug. However create them at the time the test starts to execute so that it is clear that all needed vars are available. check-in: 52d24fd4b2 user: matt tags: v1.65
2017-11-08
14:07
v1.6504 check-in: 244e676ac0 user: bjbarcla tags: v1.65, v1.6504
Changes

Modified launch.scm from [be385d92a5] to [31b2766204].

769
770
771
772
773
774
775






776
777
778
779
780
781
782
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788







+
+
+
+
+
+







		       (not (file-execute-access? fullrunscript)))
		  (system (conc "chmod ug+x " fullrunscript))))

	  ;; We are about to actually kick off the test
	  ;; so this is a good place to remove the records for 
	  ;; any previous runs
	  ;; (db:test-remove-steps db run-id testname itemdat)
	  ;; now is also a good time to write the .testconfig file
	  (let* ((tconfig-fname   (conc work-area "/.testconfig"))
		 (tconfig-tmpfile (conc tconfig-fname ".tmp"))
		 (tconfig         (tests:get-testconfig test-name item-path tconfigreg #t force-create: #t))) ;; 'return-procs)))
	    (configf:write-alist tconfig tconfig-tmpfile)
	    (file-move tconfig-tmpfile tconfig-fname #t))
	  ;; 
	  (let* ((m            (make-mutex))
		 (kill-job?    #f)
		 (exit-info    (make-launch:einf pid: #t exit-status: #t exit-code: #t rollup-status: 0)) ;; pid exit-status exit-code (i.e. process was successfully run) rollup-status
		 (job-thread   #f)
		 ;; (keep-going   #t)
		 (misc-flags   (let ((ht (make-hash-table)))