Megatest

Check-in [4b37eea7d0]
Login
Overview
Comment:Made changes to only create and process 4 packets per mtutil process run
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 4b37eea7d09d818497b7fdaca5f139d64823e288
User & Date: jmoon18 on 2019-03-14 10:39:10
Other Links: branch diff | manifest | tags
Context
2019-03-18
17:32
Updates to mtutil to limit packet creation - configurable check-in: 16e5e51d77 user: jmoon18 tags: v1.65
10:57
catch up with v1.65 Closed-Leaf check-in: fe83540f6a user: pjhatwal tags: v1.65-end-of-run
2019-03-14
18:28
wip check-in: 89d013c708 user: bjbarcla tags: v1.65-tweak-bfsync
11:59
Create new branch named "mtutil" Closed-Leaf check-in: a062a8feaa user: ritikaag tags: mtutil
10:39
Made changes to only create and process 4 packets per mtutil process run check-in: 4b37eea7d0 user: jmoon18 tags: v1.65
2019-03-12
22:33
Added automatic suppression of waiting for all tests to gracefully die when -remove-keep is called with actions kill-runs,remove-runs check-in: 002d037cb3 user: matt tags: v1.65
Changes

Modified mtut.scm from [de386c14ee] to [268a395b75].

821
822
823
824
825
826
827
828


829
830
831
832
833
834
835
821
822
823
824
825
826
827

828
829
830
831
832
833
834
835
836







-
+
+








;; (use trace)(trace create-run-pkt)
(define (contains list x) (cond ((null? list) #f) ((eq? (car list) x) #t) (else (contains (cdr list) x))))

;; collect all needed data and create run pkts for contours with changed inputs
;;
(define (generate-run-pkts mtconf toppath)
  (let ((std-runname (conc "sched"  (time->string (seconds->local-time (current-seconds)) "%M%H%d"))))
  (let ((std-runname (conc "sched"  (time->string (seconds->local-time (current-seconds)) "%M%H%d")))
        (packets-generated 0))
    (common:with-queue-db
     mtconf
     (lambda (pktsdirs pktsdir pdb)
       (let* ((rgconfdat (find-and-read-config (conc toppath "/runconfigs.config")))
	      (rgconf    (car rgconfdat))
	      (all-areas (map car (configf:get-section mtconf "areas")))
	      (contours  (configf:get-section mtconf "contours"))
1004
1005
1006
1007
1008
1009
1010

1011

1012
1013

1014
1015
1016
1017
1018
1019
1020
1005
1006
1007
1008
1009
1010
1011
1012

1013
1014

1015
1016
1017
1018
1019
1020
1021
1022







+
-
+

-
+







		       (lambda (cmd)
			 ;;(print "cmd: " cmd)
                         ;;(print "Areas: " all-areas)
                         (for-each 
                           (lambda (area) 
;Add code to check whether area is valid
			     (if 
                   ;; This code checks whether the target has been passed in via argument, and only runs the specified target
                   (if (args:get-arg "-target") 
                   (and (< packets-generated 4)  (if (args:get-arg "-target") 
                     (if (string= (args:get-arg "-target") runkey) (area-allowed? area "area-needs-to-be-run" runkey contour #f) #f) 
                     (area-allowed? area "area-needs-to-be-run" runkey contour #f))
                     (area-allowed? area "area-needs-to-be-run" runkey contour #f)))
       
			     (let* ((script (car cmd))
				(params (cdr cmd))
				(cmd    (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
				(res    (handle-exceptions
					    exn
					    #f
1089
1090
1091
1092
1093
1094
1095

1096

1097
1098



1099
1100
1101
1102
1103
1104
1105
1091
1092
1093
1094
1095
1096
1097
1098

1099
1100

1101
1102
1103
1104
1105
1106
1107
1108
1109
1110







+
-
+

-
+
+
+







							  ;;(target   . ,(list new-target)) ;; overriding with result from runing the script
                                                          ))
							(aval       (or (configf:lookup mtconf "areas" area) ""))
                                    			(aval-alist (common:val->alist aval))

							(targets (map-targets mtconf aval-alist runkey area contour)))
                                        (pp targets)
				        (for-each (lambda (target) 
				        (for-each (lambda (target) (create-run-pkt mtconf action area runkey target new-runname mode-patt
                                                     (create-run-pkt mtconf action area runkey target new-runname mode-patt
                                                      tag-expr pktsdir reason contour sched dbdest append
                                                      runtrans)) targets)
                                                      runtrans)
                                                     (set! packets-generated (+ packets-generated 1))
                                                  ) targets)
					;; Add filter for targets

                                       ;;(create-run-pkt mtconf action area runkey target runname
                                       ;;               pktsdir reason contour dbdest append
                                       ;;               runtrans)
				       (print "key-msg: " key-msg)
				       ;;(push-run-spec torun contour