Megatest

Check-in [b7ea5abf1a]
Login
Overview
Comment:added nice-path to declarations in commonmod.scm to fix itemwait test. Changed #f to for null log file to prevent type mismatch warning
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.90
Files: files | file ages | folders
SHA1: b7ea5abf1a38690c965bc83d69a6117780d21f67
User & Date: mmgraham on 2024-02-23 17:40:07
Other Links: branch diff | manifest | tags
Context
2024-02-26
11:31
Changed a print from debug 0 to 4 check-in: 644eb3c1e4 user: mmgraham tags: v1.90
2024-02-23
17:40
added nice-path to declarations in commonmod.scm to fix itemwait test. Changed #f to for null log file to prevent type mismatch warning check-in: b7ea5abf1a user: mmgraham tags: v1.90
2024-02-16
16:06
Added (use json) to mtbody.scm to fix envsetup check-in: 2765970d14 user: mmgraham tags: v1.90
Changes

Modified commonmod.scm from [979dffa1a9] to [08c8b5bc17].

144
145
146
147
148
149
150

151
152
153
154
155
156
157
	 common:list-or-null
	 common:logpro-exit-code->status-sym
	 common:low-noise-print
	 common:make-tmpdir-name
	 common:max
	 common:min-max
	 common:nice-path

	 common:pkts-spec
	 common:raw-get-remote-host-load
	 common:read-encoded-string
	 common:real-path
	 common:send-thunk-to-background-thread
	 common:simple-file-lock
	 common:simple-file-lock-and-wait







>







144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
	 common:list-or-null
	 common:logpro-exit-code->status-sym
	 common:low-noise-print
	 common:make-tmpdir-name
	 common:max
	 common:min-max
	 common:nice-path
         nice-path
	 common:pkts-spec
	 common:raw-get-remote-host-load
	 common:read-encoded-string
	 common:real-path
	 common:send-thunk-to-background-thread
	 common:simple-file-lock
	 common:simple-file-lock-and-wait

Modified mtbody.scm from [7f837d24f5] to [51e1a31285].

302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
          (define *didsomething* #t)  
          (exit 1)))))

(define (main)
  ;; remove when configf fully modularized
  (read-config-set! configf:read-file)

  (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

  ;; set some parameters here - these need to be put in something that can be loaded from other
  ;; executables such as dashboard and mtutil
  ;;
  (include "transport-mode.scm")
  (dbfile:db-init-proc db:initialize-main-db)







|







302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
          (define *didsomething* #t)  
          (exit 1)))))

(define (main)
  ;; remove when configf fully modularized
  (read-config-set! configf:read-file)

  (define *usage-log-file* "")    ;; 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

  ;; set some parameters here - these need to be put in something that can be loaded from other
  ;; executables such as dashboard and mtutil
  ;;
  (include "transport-mode.scm")
  (dbfile:db-init-proc db:initialize-main-db)
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
  ;;
  (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 (string? *usage-log-file*)
           (file-write-access? *usage-log-file*))
      (with-output-to-file
          *usage-log-file*
	(lambda ()
          (print (if *usage-use-seconds*
		     (current-seconds)
		     (time->string
		      (seconds->local-time (current-seconds))
		      "%Yww%V.%w %H:%M:%S"))
		 " "
		 (current-user-name) " "
		 (current-directory) " "
		 "\"" (string-intersperse (argv) " ") "\""))
	#:append))

  ;; Disabled help items
  ;;  -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 "







|
|












|







325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
  ;;
  (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 (not (string=? *usage-log-file* ""))
    (if (file-write-access? *usage-log-file*)
      (with-output-to-file
          *usage-log-file*
	(lambda ()
          (print (if *usage-use-seconds*
		     (current-seconds)
		     (time->string
		      (seconds->local-time (current-seconds))
		      "%Yww%V.%w %H:%M:%S"))
		 " "
		 (current-user-name) " "
		 (current-directory) " "
		 "\"" (string-intersperse (argv) " ") "\""))
	#:append)))

  ;; Disabled help items
  ;;  -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 "