Overview
| Comment: | Added fix for case where rmt calls returns a non list and a list length call crashes. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-broken |
| Files: | files | file ages | folders |
| SHA1: |
5b7f0c6aa302ede19e96946ad2e33a7f |
| User & Date: | mrwellan on 2020-04-28 17:58:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-04-28
| ||
| 18:08 | Added fix for case where rmt calls returns a non list and a list length call crashes. check-in: 7ff937a8a2 user: mrwellan tags: v1.65-broken | |
| 17:58 | Added fix for case where rmt calls returns a non list and a list length call crashes. check-in: 5b7f0c6aa3 user: mrwellan tags: v1.65-broken | |
| 11:36 | Added fix for case where rmt calls returns a non list and a for-each crashes. check-in: ea8c3e52e9 user: mrwellan tags: v1.65-broken | |
Changes
Modified common.scm from [17bee313ac] to [fe39d65d64].
| ︙ | ︙ | |||
1192 1193 1194 1195 1196 1197 1198 |
;; use bash to expand a glob. Does NOT handle paths with spaces!
;;
(define (common:bash-glob instr)
(string-split
(with-input-from-pipe
(conc "/bin/bash -c \"echo " instr "\"")
| | > > > > > > > > > > | 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 |
;; use bash to expand a glob. Does NOT handle paths with spaces!
;;
(define (common:bash-glob instr)
(string-split
(with-input-from-pipe
(conc "/bin/bash -c \"echo " instr "\"")
read-line)))
;;======================================================================
;; Some safety net stuff
;;======================================================================
;; return input if it is a list or return null
(define (common:list-or-null inlst #!optional (ovrd #f))
(if (list? inlst)
inlst
(or ovrd '())))
;;======================================================================
;; T A R G E T S , S T A T E , S T A T U S ,
;; R U N N A M E A N D T E S T P A T T
;;======================================================================
;; (map print (map car (hash-table->alist (read-config "runconfigs.config" #f #t))))
|
| ︙ | ︙ |
Modified launch.scm from [6b5c8d69de] to [c8ef6cdb36].
| ︙ | ︙ | |||
1122 1123 1124 1125 1126 1127 1128 | (set! toppath *toppath*) (if (not *toppath*) (begin (debug:print-error 0 *default-log-port* "you are not in a megatest area!") (exit 1))) (setenv "MT_RUN_AREA_HOME" *toppath*) ;; the seed read is done, now read runconfigs, cache it then read megatest.config one more time and cache it | | | 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 | (set! toppath *toppath*) (if (not *toppath*) (begin (debug:print-error 0 *default-log-port* "you are not in a megatest area!") (exit 1))) (setenv "MT_RUN_AREA_HOME" *toppath*) ;; the seed read is done, now read runconfigs, cache it then read megatest.config one more time and cache it (let* ((keys (common:list-or-null (rmt:get-keys))) (key-vals (keys:target->keyval keys target)) (linktree (common:get-linktree)) ;; (or (getenv "MT_LINKTREE")(if *configdat* (configf:lookup *configdat* "setup" "linktree") #f))) ; (if *configdat* ; (configf:lookup *configdat* "setup" "linktree") ; (conc *toppath* "/lt")))) (second-pass (find-and-read-config mtconfig |
| ︙ | ︙ |
Modified runs.scm from [9d5551c3b0] to [c265f57285].
| ︙ | ︙ | |||
1293 1294 1295 1296 1297 1298 1299 | (runs:gendat-inc-results-last-update *runs:general-data*) ;; last update time 'dashboard))) (if (list? res) res (begin (debug:print-error 0 *default-log-port* | | | 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 | (runs:gendat-inc-results-last-update *runs:general-data*) ;; last update time 'dashboard))) (if (list? res) res (begin (debug:print-error 0 *default-log-port* "FAILED TO GET DATA using rmt:get-tests-for-run. Notify developers if you see this. result: " res) '()))))) (if (not (runs:gendat-run-info *runs:general-data*)) (runs:gendat-run-info-set! *runs:general-data* run-dat)) (if (not (runs:gendat-runname *runs:general-data*)) (runs:gendat-runname-set! *runs:general-data* runname)) (if (not (runs:gendat-target *runs:general-data*)) (runs:gendat-target-set! *runs:general-data* target)) |
| ︙ | ︙ |