Megatest

Check-in [54a615c4aa]
Login
Overview
Comment:fixed bug to convert string config item to number
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 54a615c4aafa3617e6a60b911277ed87d163a162
User & Date: jmoon18 on 2019-03-18 17:39:21
Other Links: branch diff | manifest | tags
Context
2019-03-18
17:45
fixed issue where missing megatest.config setting is causing crash check-in: 61b1af2634 user: jmoon18 tags: v1.65
17:39
fixed bug to convert string config item to number check-in: 54a615c4aa user: jmoon18 tags: v1.65
17:32
Updates to mtutil to limit packet creation - configurable check-in: 16e5e51d77 user: jmoon18 tags: v1.65
Changes

Modified mtut.scm from [0bcaf047ae] to [2763094612].

1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
			 ;;(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
                   (and (< packets-generated (or (configf:lookup mtconf "setup" "max_packets_per_run") 10000))  (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)))
       
			     (let* ((script (car cmd))
				(params (cdr cmd))
				(cmd    (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
				(res    (handle-exceptions







|







1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
			 ;;(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
                   (and (< packets-generated (or (string->number (configf:lookup mtconf "setup" "max_packets_per_run")) 10000))  (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)))
       
			     (let* ((script (car cmd))
				(params (cdr cmd))
				(cmd    (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
				(res    (handle-exceptions