Overview
| Comment: | Propagated -logging to tests (note: this doesn't help with sub-invocations) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | sqlite3-logging |
| Files: | files | file ages | folders |
| SHA1: |
fc03199f62c5b76b546006dcc5bc0762 |
| User & Date: | matt on 2012-10-11 01:06:23 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-01-20
| ||
| 00:02 | Unknown work check-in: b0a0d0377c user: matt tags: sqlite3-logging | |
|
2012-10-16
| ||
| 14:28 | Merged trunk into sqlite3-logging check-in: 13d3e653d6 user: mrwellan tags: sqlite3-logging | |
|
2012-10-11
| ||
| 01:06 | Propagated -logging to tests (note: this doesn't help with sub-invocations) check-in: fc03199f62 user: matt tags: sqlite3-logging | |
| 00:11 | Merged trunk into logging check-in: 7d49a78e24 user: matt tags: sqlite3-logging | |
Changes
Modified launch.scm from [ae6bdfdb7c] to [32c9f375e7].
| ︙ | ︙ | |||
538 539 540 541 542 543 544 | (cmdparms #f) (fullcmd #f) ;; (define a (with-output-to-string (lambda ()(write x)))) (mt-bindir-path #f) (item-path (item-list->path itemdat)) (test-id (open-run-close db:get-test-id db run-id test-name item-path)) (testinfo (open-run-close db:get-test-info-by-id db test-id)) (mt_target (string-intersperse (map cadr keyvallst) "/")) | | > | 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 |
(cmdparms #f)
(fullcmd #f) ;; (define a (with-output-to-string (lambda ()(write x))))
(mt-bindir-path #f)
(item-path (item-list->path itemdat))
(test-id (open-run-close db:get-test-id db run-id test-name item-path))
(testinfo (open-run-close db:get-test-info-by-id db test-id))
(mt_target (string-intersperse (map cadr keyvallst) "/"))
(debug-param (append (if (args:get-arg "-debug") (list "-debug" (args:get-arg "-debug")) '())
(if (args:get-arg "-logging")(list "-logging") '()))))
(if hosts (set! hosts (string-split hosts)))
;; set the megatest to be called on the remote host
(if (not remote-megatest)(set! remote-megatest local-megatest)) ;; "megatest"))
(set! mt-bindir-path (pathname-directory remote-megatest))
(if launcher (set! launcher (string-split launcher)))
;; set up the run work area for this test
(set! diskpath (get-best-disk *configdat*))
|
| ︙ | ︙ |