Overview
| Comment: | Fixed emergency loaded to not put out noise on file not exists |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
7d1e789cb3f62f9cde719a4865bb51b3 |
| User & Date: | mrwellan on 2017-07-25 14:43:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-26
| ||
| 16:34 | Fixed wrong settings control for server load gate. Fixed logic error on detecting defunct server starts check-in: 6bffff1168 user: mrwellan tags: v1.64, v1.6427 | |
|
2017-07-25
| ||
| 23:20 | Merged in v1.64 changes and fixed couple places affected by testpath no longer being available in cmdinfo check-in: 8a6d50fd15 user: matt tags: v1.64-defered-rundir | |
| 14:43 | Fixed emergency loaded to not put out noise on file not exists check-in: 7d1e789cb3 user: mrwellan tags: v1.64 | |
| 10:48 | Added last_update to the fields to copy spec. This enables the optimization for copying only changed data check-in: 853bcee759 user: mrwellan tags: v1.64 | |
Changes
Modified megatest.scm from [63704dd88c] to [bb9c6de280].
| ︙ | ︙ | |||
52 53 54 55 56 57 58 | (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "run_records.scm") (include "megatest-fossil-hash.scm") (define *usage-log-file* #f) ;; put path to file for logging usage in this var in the ~/.megatestrc file | | | | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 |
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-fossil-hash.scm")
(define *usage-log-file* #f) ;; put path to file for logging usage in this var in the ~/.megatestrc file
(define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file
;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file
;;
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
(if (common:file-exists? debugcontrolf)
(load debugcontrolf)))
;; usage logging, careful with this, it is not designed to deal with all real world challenges!
;;
(if (and *usage-log-file*
(file-write-access? *usage-log-file*))
(with-output-to-file
*usage-log-file*
(lambda ()
(print
(if *usage-use-seconds*
(current-seconds)
|
| ︙ | ︙ | |||
87 88 89 90 91 92 93 | ;; -rollup : (currently disabled) fill run (set by :runname) with latest test(s) ;; from prior runs with same keys ;; -daemonize : fork into background and disconnect from stdin/out (define help (conc " Megatest, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " | | | 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 | ;; -rollup : (currently disabled) fill run (set by :runname) with latest test(s) ;; from prior runs with same keys ;; -daemonize : fork into background and disconnect from stdin/out (define help (conc " Megatest, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright Matt Welland 2006-2017 Usage: megatest [options] -h : this help -manual : show the Megatest user manual -version : print megatest version (currently " megatest-version ") Launching and managing runs |
| ︙ | ︙ |