Megatest

Check-in [64d8372f85]
Login
Overview
Comment:corrected typo dat-wait-for-jobs-funcion ==/18.1/1.9/WARN/1206/mars/==
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-cleanup | v1.6566
Files: files | file ages | folders
SHA1: 64d8372f85e6efbb50ab5152a153f2c810255f58
User & Date: mmgraham on 2020-08-30 17:09:46
Original Comment: corrected typo dat-wait-for-jobs-funcion
Other Links: branch diff | manifest | tags
Context
2020-08-30
22:02
ease load on pre-launch checks if there are more than 25 jobs slots available. NOTE: Unclear if last few commits are genuinely useful check-in: c141e77533 user: matt tags: v1.65-cleanup
17:09
corrected typo dat-wait-for-jobs-funcion ==/18.1/1.9/WARN/1206/mars/== check-in: 64d8372f85 user: mmgraham tags: v1.65-cleanup, v1.6566
15:44
updated megatest version to 1.6566 check-in: d66b6aae6b user: mmgraham tags: v1.65-cleanup, v1.6566
Changes

Modified runs.scm from [6de703a6c2] to [94cebd335e].

1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696

	  ;; gonna try a strategy change here.
	  ;;
	  ;; check if can run more tests. if yes, continue, if no, rest for 10 seconds, check again
	  ;; repeat until can run more tests
	  ;;
	  ;; look at the test jobgroup and tot jobs running
	  (if (not (runs:dat-wait-for-jobs-funcion runsdat))
	      (runs:dat-wait-for-jobs-function-set!
	       runsdat 
	       (lambda ()
		 (let loop-can-run-more
		     ((res      (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs))
		      (remtries 1440)) ;; we can wait for up to two hours for jobs to get done
		   (match res







|







1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696

	  ;; gonna try a strategy change here.
	  ;;
	  ;; check if can run more tests. if yes, continue, if no, rest for 10 seconds, check again
	  ;; repeat until can run more tests
	  ;;
	  ;; look at the test jobgroup and tot jobs running
	  (if (not (runs:dat-wait-for-jobs-function runsdat))
	      (runs:dat-wait-for-jobs-function-set!
	       runsdat 
	       (lambda ()
		 (let loop-can-run-more
		     ((res      (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs))
		      (remtries 1440)) ;; we can wait for up to two hours for jobs to get done
		   (match res