Overview
Comment: | Packet limiting for mtutil appears to be working properly |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 | v1.6526 |
Files: | files | file ages | folders |
SHA1: |
c038aff905aa4ecad62a1da3d559d4bb |
User & Date: | jmoon18 on 2019-03-19 15:42:00 |
Other Links: | branch diff | manifest | tags |
Context
2019-03-22
| ||
14:27 | merged v1.65-end-of-run check-in: 2be9e62191 user: pjhatwal tags: v1.65, v1.6527 | |
2019-03-19
| ||
15:42 | Packet limiting for mtutil appears to be working properly check-in: c038aff905 user: jmoon18 tags: v1.65, v1.6526 | |
2019-03-18
| ||
17:46 | fixed issue where missing megatest.config setting is causing crash - part 2 check-in: 28de54b8db user: jmoon18 tags: v1.65 | |
Changes
Modified mtut.scm from [2d67701c56] to [384ba177f9].
︙ | |||
1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 | 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 | + + + + + + + + + + + | ;; the script is called like this: scriptname contour runkey std-runname action extra_param1 extra_param2 ... (for-each (lambda (cmd) ;;(print "cmd: " cmd) ;;(print "Areas: " all-areas) (for-each (lambda (area) ;;(print "Area: " area) ;;(print "Target: " runkey) ;;(print "OR: " (or (string->number (if (configf:lookup mtconf "setup" "max_packets_per_run") (configf:lookup mtconf "setup" "max_packets_per_run") "10000" )))) ;;(print "Packets generated: " packets-generated) ;;(print "Comparison: " (< packets-generated 4)) ;;(print "Full Comparison: " ;; (and (< packets-generated (or (string->number (if (configf:lookup mtconf "setup" "max_packets_per_run") (configf:lookup mtconf "setup" "max_packets_per_run") "10000" )) 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)))) ;;(print "Area Allowed: " (area-allowed? area "area-needs-to-be-run" runkey contour #f)) ;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 (if (configf:lookup mtconf "setup" "max_packets_per_run") (configf:lookup mtconf "setup" "max_packets_per_run") "10000" )) 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))) |
︙ | |||
1108 1109 1110 1111 1112 1113 1114 | 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 | - + | ;; runtrans) (print "key-msg: " key-msg) ;;(push-run-spec torun contour ;; (if optional ;; we need to be able to differentiate same contour, different behavior. ;; (conc runkey ":" optional) ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE ;; runkey) ;; key-msg) |
︙ |