Megatest

Check-in [1e471de5de]
Login
Overview
Comment:Removed Updating test metadata messages
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.80-revolution
Files: files | file ages | folders
SHA1: 1e471de5de6fe916814ef9c2b2481088651bd2e3
User & Date: mmgraham on 2024-01-30 18:59:45
Other Links: branch diff | manifest | tags
Context
2024-01-30
18:59
Removed Updating test metadata messages Leaf check-in: 1e471de5de user: mmgraham tags: v1.80-revolution
16:39
Merged modfiles branch check-in: fdb6ea5bce user: mrwellan tags: v1.80-revolution
Changes

Modified runs.scm from [a0e38aa67a] to [b03a2d27cd].

2920
2921
2922
2923
2924
2925
2926
2927

2928
2929
2930
2931
2932
2933
2934
2920
2921
2922
2923
2924
2925
2926

2927
2928
2929
2930
2931
2932
2933
2934







-
+







     (lambda (key)
       (let* ((idx (cadr key))
	      (fld (car  key))
	      (val (configf:lookup test-conf "test_meta" fld)))
	 ;; (debug:print 5 *default-log-port* "idx: " idx " fld: " fld " val: " val)
	 (if (and val (not (equal? (vector-ref currrecord idx) val)))
	     (begin
	       (debug:print 0 *default-log-port* "Updating " test-name " " fld " to " val)
	       (debug:print 2 *default-log-port* "Updating " test-name " " fld " to " val)
	       (rmt:testmeta-update-field test-name fld val)))))
     '(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)("jobgroup" 10)))))

;; find tests with matching tags, tagpatt is a string "tagpatt1,tagpatt2%, ..."
;;
(define (runs:get-tests-matching-tags tagpatt)
  (let* ((tagdata (rmt:get-tests-tags))