Megatest

Check-in [083df003ae]
Login
Overview
Comment:Weird diff
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | foo
Files: files | file ages | folders
SHA1: 083df003aeb38a46982f994a033c038feae3bd0b
User & Date: mrwellan on 2020-10-19 21:41:29
Other Links: branch diff | manifest | tags
Context
2020-10-19
21:41
Weird diff Leaf check-in: 083df003ae user: mrwellan tags: foo (unpublished)
00:22
Rearranged the target for chicken. check-in: c3c27bb923 user: matt tags: v1.65
Changes

Modified runs.scm from [d0c781d218] to [5aa7794e42].

633
634
635
636
637
638
639
640
641
642
643
644
645






646
647
648
649
650
651
652
633
634
635
636
637
638
639






640
641
642
643
644
645
646
647
648
649
650
651
652







-
-
-
-
-
-
+
+
+
+
+
+







    ;; run the run prehook if there are no tests yet run for this run:
    ;;
    (runs:run-pre-hook run-id)
    ;; mark all test launced flag as false in the meta table 
    (rmt:set-var (conc "lunch-complete-" run-id) "no")
    (debug:print-info 1 *default-log-port* "Setting end-of-run to no")
    (let* ((config-reruns      (let ((x (configf:lookup *configdat* "setup" "reruns")))
			       (if x (string->number x) #f)))
	  (config-rerun-cnt (if config-reruns
			config-reruns
			1)))
    (if (eq? config-rerun-cnt run-count)
      (rmt:set-var (conc "end-of-run-" run-id) "no")))
				 (if x (string->number x) #f)))
	   (config-rerun-cnt (if config-reruns
				 config-reruns
				 1)))
      (if (eq? config-rerun-cnt run-count)
	  (rmt:set-var (conc "end-of-run-" run-id) "no")))

    (rmt:set-run-state-status run-id "new" "n/a")
    ;; now add non-directly referenced dependencies (i.e. waiton)
    ;;======================================================================
    ;; refactoring this block into tests:get-full-data
    ;;
    ;; What happended, this code is now duplicated in tests!?