Megatest

Check-in [269f41c0b0]
Login
Overview
Comment:Added runsmod to eval-string in megatest.scm
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-refactor02 | v1.70-defunct-try
Files: files | file ages | folders
SHA1: 269f41c0b0b409ecb1d3cab864f24a2df562bc97
User & Date: mrwellan on 2019-12-31 16:19:33
Other Links: branch diff | manifest | tags
Context
2020-01-02
09:36
Fixed imports so dashboard launches Leaf check-in: 850872189d user: jmoon18 tags: v1.70-refactor02, v1.70-defunct-try
2019-12-31
23:20
Beginnings of captain based ulex check-in: 3dae400136 user: matt tags: v1.70-captain-ulex, v1.70-defunct-try
16:19
Added runsmod to eval-string in megatest.scm check-in: 269f41c0b0 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
15:05
Fixed imports for dashboard check-in: 3bb6e533d4 user: jmoon18 tags: v1.70-refactor02, v1.70-defunct-try
Changes

Modified megatest.scm from [3f5d979aa6] to [0c9be227b7].

119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
;; (include "megatest-fossil-hash.scm") ;; included in megamod

(define getenv get-environment-variable)
(configf:add-eval-string "(import megamod commonmod (prefix mtconfigf configf:)(prefix mtargs args:))")

(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")))







|







119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
;; (include "megatest-fossil-hash.scm") ;; included in megamod

(define getenv get-environment-variable)
(configf:add-eval-string "(import megamod commonmod runsmod (prefix mtconfigf configf:)(prefix mtargs args:))")

(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")))