Overview
| Comment: | fixed -list-runs issue |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 |
| Files: | files | file ages | folders |
| SHA1: |
c71b7be095d4329b20215ebce1be005c |
| User & Date: | bjbarcla on 2017-02-22 16:53:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-23
| ||
| 10:45 | Merged with v1.63 check-in: 39edec417c user: ritikaag tags: v1.63-run-times | |
|
2017-02-22
| ||
| 18:55 | Speculative fix for syncback logic check-in: 889c03819d user: matt tags: v1.63 | |
| 16:53 | fixed -list-runs issue check-in: c71b7be095 user: bjbarcla tags: v1.63 | |
| 14:18 | Merged dashboard view fix check-in: 67738c3cd4 user: ritikaag tags: v1.63 | |
Changes
Modified megatest.scm from [d6117fc388] to [898706de27].
| ︙ | ︙ | |||
1079 1080 1081 1082 1083 1084 1085 | (tal (cdr adj-tests-spec)) (idx 0)) (hash-table-set! test-field-index hed idx) (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1)))) (begin (debug:print-error 0 *default-log-port* "Invalid test fields specified: " (string-intersperse invalid-tests-spec ", ")) (exit))))) | < | 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 | (tal (cdr adj-tests-spec)) (idx 0)) (hash-table-set! test-field-index hed idx) (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1)))) (begin (debug:print-error 0 *default-log-port* "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 |
| ︙ | ︙ | |||
1347 1348 1349 1350 1351 1352 1353 | outputfile (begin (debug:print 0 *default-log-port* "WARNING: path given, " outputfile " is relative, prefixing with current directory") (conc (current-directory) "/" outputfile))))) (create-directory tempdir #t) (ods:list->ods tempdir ouf sheets)))) ;; (system (conc "rm -rf " tempdir)) | | > > > > | 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 |
outputfile
(begin
(debug:print 0 *default-log-port* "WARNING: path given, " outputfile " is relative, prefixing with current directory")
(conc (current-directory) "/" outputfile)))))
(create-directory tempdir #t)
(ods:list->ods tempdir ouf sheets))))
;; (system (conc "rm -rf " tempdir))
(set! *didsomething* #t)
(set! *time-to-exit* #t)
) ;; end if true branch (end of a let)
) ;; end if
) ;; end if -list-runs
;; Don't think I need this. Incorporated into -list-runs instead
;;
;; (if (and (args:get-arg "-since")
;; (launch:setup))
;; (let* ((since-time (string->number (args:get-arg "-since")))
;; (run-ids (db:get-changed-run-ids since-time)))
|
| ︙ | ︙ |