Overview
| Comment: | NEW (old) POLICY, add back setting of test log with -step -setlog |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 |
| Files: | files | file ages | folders |
| SHA1: |
4f6fa245d2acaaae2bf601167fbf6115 |
| User & Date: | mrwellan on 2013-05-09 16:17:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-09
| ||
| 16:25 | Added missing redraw to steps table display routine check-in: 58fcfb43bd user: mrwellan tags: v1.54 | |
| 16:17 | NEW (old) POLICY, add back setting of test log with -step -setlog check-in: 4f6fa245d2 user: mrwellan tags: v1.54 | |
| 09:07 | Corrected the server autolaunch in client start check-in: 9ee5fe37f2 user: mrwellan tags: v1.54, v1.5426 | |
Changes
Modified megatest.scm from [36ac208c1b] to [7a410a6be3].
| ︙ | ︙ | |||
22 23 24 25 26 27 28 29 30 31 32 33 34 35 | (declare (uses runs)) (declare (uses launch)) (declare (uses server)) (declare (uses client)) (declare (uses tests)) (declare (uses genexample)) (declare (uses daemon)) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "megatest-fossil-hash.scm") | > | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | (declare (uses runs)) (declare (uses launch)) (declare (uses server)) (declare (uses client)) (declare (uses tests)) (declare (uses genexample)) (declare (uses daemon)) (declare (uses db)) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "megatest-fossil-hash.scm") |
| ︙ | ︙ | |||
839 840 841 842 843 844 845 |
(args:get-arg ":state")
(args:get-arg ":status")
(args:get-arg "-setlog")
(args:get-arg "-m"))
;; (if db (sqlite3:finalize! db))
(set! *didsomething* #t)))
| | | > | 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 |
(args:get-arg ":state")
(args:get-arg ":status")
(args:get-arg "-setlog")
(args:get-arg "-m"))
;; (if db (sqlite3:finalize! db))
(set! *didsomething* #t)))
(if (or (args:get-arg "-setlog") ;; since setting up is so costly lets piggyback on -test-status
;; (not (args:get-arg "-step"))) ;; -setlog may have been processed already in the "-step" previous
;; NEW POLICY - -setlog sets test overall log on every call.
(args:get-arg "-set-toplog")
(args:get-arg "-test-status")
(args:get-arg "-set-values")
(args:get-arg "-load-test-data")
(args:get-arg "-runstep")
(args:get-arg "-summarize-items"))
(if (not (getenv "MT_CMDINFO"))
|
| ︙ | ︙ |