Megatest

Check-in [b0128aaf09]
Login
Overview
Comment:Using set-state-status with preclean instead of actual removal of run in the CleanRunExecute button of the test control panel
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: b0128aaf0912ebb21e683ed9554fdb5b175f008c
User & Date: mrwellan on 2017-10-13 10:39:52
Other Links: branch diff | manifest | tags
Context
2017-10-17
22:01
Cherry-picked fix for bad defense against NFS directory propagation delays into v1.64 check-in: d7a2ec4dce user: matt tags: v1.64
05:54
Merged v1.64 into v1.65-runarun check-in: eb80abc1cb user: matt tags: v1.65-runarun
2017-10-13
10:39
Using set-state-status with preclean instead of actual removal of run in the CleanRunExecute button of the test control panel check-in: b0128aaf09 user: mrwellan tags: v1.64
2017-10-10
14:01
Merged install file check-in: e62995eb4e user: jmoon18 tags: v1.64
Changes

Modified dashboard-tests.scm from [17c63127ed] to [810cfd9c1d].

614
615
616
617
618
619
620
621


622
623
624
625

626
627
628
629
630
631
632
614
615
616
617
618
619
620

621
622
623
624
625

626
627
628
629
630
631
632
633







-
+
+



-
+







			       command-text-box "VALUE"
			       (conc "megatest -remove-runs -target " keystring " -runname " runname
				     " -testpatt " (conc testname "/" (if (equal? item-path "")
									  "%"
									  item-path))
				     " -v"))))
	       (clean-run-execute  (lambda (x)
				     (let ((cmd (conc "megatest -remove-runs -target " keystring " -runname " runname
				     (let ((cmd (conc ;; "megatest -remove-runs -target " keystring " -runname " runname
                                                 "megatest -set-state-status NOT_STARTED,n/a -target " keystring " -runname " runname
						      " -testpatt " (conc testname "/" (if (equal? item-path "")
						       					   "%"
						       					   item-path))
						      ";megatest -target " keystring " -runname " runname 
                                                      ";megatest -target " keystring " -runname " runname 
						      " -run -preclean -testpatt " (conc testname "/" (if (equal? item-path "")
											   "%" 
											   item-path))
						      " -clean-cache"
						      )))
                                       (thread-start! (make-thread (lambda ()
                                                                     (common:run-a-command cmd))