Megatest

Check-in [7ff937a8a2]
Login
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: 7ff937a8a2df1a3e473a760363b85e98aa01bbc4
User & Date: mrwellan on 2020-04-28 18:08:10
Other Links: branch diff | manifest | tags
Context
2020-04-29
14:39
Added speculative fix (try few times) to lauch where it is trying to get the test-info. check-in: 18da8b6a61 user: mrwellan tags: v1.65-broken
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
Changes

Modified common.scm from [fe39d65d64] to [d0760d6348].

1199
1200
1201
1202
1203
1204
1205
1206

1207
1208


1209

1210
1211
1212
1213
1214
1215
1216
1199
1200
1201
1202
1203
1204
1205

1206
1207
1208
1209
1210

1211
1212
1213
1214
1215
1216
1217
1218







-
+


+
+
-
+







       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))
(define (common:list-or-null inlst #!key (ovrd #f)(message #f))
  (if (list? inlst)
      inlst
      (begin
	(if message (debug:print-error 0 *default-log-port* message))
      (or ovrd '())))
	(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 [c8ef6cdb36] to [a7b2c96db0].

1122
1123
1124
1125
1126
1127
1128
1129


1130
1131
1132
1133
1134
1135
1136
1122
1123
1124
1125
1126
1127
1128

1129
1130
1131
1132
1133
1134
1135
1136
1137







-
+
+







		  (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)))
		  (let* ((keys         (common:list-or-null (rmt:get-keys)
							    message: "Failed to retrieve keys in launch.scm. Please report this to the developers."))
			 (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