Overview
| Comment: | Removed noisy output from list-runs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
5533ee8698dde6454a984611350ccccb |
| User & Date: | mrwellan on 2015-06-04 10:00:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-04
| ||
| 22:34 | Switched to rmt: calls in list-runs check-in: 9673fdc495 user: matt tags: v1.60 | |
| 10:00 | Removed noisy output from list-runs check-in: 5533ee8698 user: mrwellan tags: v1.60 | |
| 09:45 | Bumped version. check-in: f902be8c4a user: mrwellan tags: v1.60 | |
Changes
Modified megatest.scm from [99efa0b501] to [2f68dfa905].
| ︙ | ︙ | |||
973 974 975 976 977 978 979 | (idx 0)) (hash-table-set! test-field-index hed idx) (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1)))) (begin (debug:print 0 "ERROR: Invalid test fields specified: " (string-intersperse invalid-tests-spec ", ")) (exit))))) | < | 973 974 975 976 977 978 979 980 981 982 983 984 985 986 | (idx 0)) (hash-table-set! test-field-index hed idx) (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1)))) (begin (debug:print 0 "ERROR: Invalid test fields specified: " (string-intersperse invalid-tests-spec ", ")) (exit))))) ;; Each run (for-each (lambda (run) (let ((targetstr (string-intersperse (map (lambda (x) (db:get-value-by-header run header x)) keys) "/"))) (if db-targets |
| ︙ | ︙ |