Megatest

Check-in [bb9a5850ab]
Login
Overview
Comment:update mtut to use coalesced param mapper
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | 1.65-subrun-ancilliary-usecases
Files: files | file ages | folders
SHA1: bb9a5850abab77c03ad61c6ad04728f53de8d7ef
User & Date: bjbarcla on 2017-12-22 16:58:00
Other Links: branch diff | manifest | tags
Context
2017-12-22
17:50
wip check-in: ce123f377a user: bjbarcla tags: 1.65-subrun-ancilliary-usecases
16:58
update mtut to use coalesced param mapper check-in: bb9a5850ab user: bjbarcla tags: 1.65-subrun-ancilliary-usecases
2017-12-20
17:53
wip check-in: ddb7261be3 user: bjbarcla tags: 1.65-subrun-ancilliary-usecases
Changes

Modified mtut.scm from [fc44892821] to [381ac4c5d5].

253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
;;  U T I L S
;;======================================================================

;; given a mtutil param, return the old megatest equivalent
;;
(define (param-translate param)
  (or (alist-ref (string->symbol param)
		 '((-tag-expr  . "-tagexpr")
		   (-mode-patt . "-modepatt")
		   (-run-name  . "-runname")
		   (-test-patt . "-testpatt")
		   (-msg       . "-m")
		   (-new       . "-set-state-status")))
      param))

(define (val->alist val)
  (let ((val-list (string-split-fields ";\\s*" val #:infix)))
    (if val-list
	(map (lambda (x)
	       (let ((f (string-split-fields "\\s*=\\s*" x #:infix)))







<
<
<
|
<
<







253
254
255
256
257
258
259



260


261
262
263
264
265
266
267
;;  U T I L S
;;======================================================================

;; given a mtutil param, return the old megatest equivalent
;;
(define (param-translate param)
  (or (alist-ref (string->symbol param)



                 (common:get-param-mapping flavor: 'switch-symbol))


      param))

(define (val->alist val)
  (let ((val-list (string-split-fields ";\\s*" val #:infix)))
    (if val-list
	(map (lambda (x)
	       (let ((f (string-split-fields "\\s*=\\s*" x #:infix)))