Megatest

Check-in [5069be9015]
Login
Overview
Comment:Added hash to version on -version.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: 5069be901570ee0fed5392b6ae7cc62d9bdcb86c
User & Date: matt on 2016-05-08 17:38:13
Other Links: branch diff | manifest | tags
Context
2016-05-08
18:28
Fixed missing qualifier on triggers for last_update. Write current seconds to necessary data structure, subtracting 2 to ensure all records are retrieved check-in: 074dd23a4e user: matt tags: v1.61
17:38
Added hash to version on -version. check-in: 5069be9015 user: matt tags: v1.61
2016-05-07
22:27
Disabled useless exception handler and corrected typo check-in: e2b30e322b user: matt tags: v1.61
Changes

Modified megatest.scm from [39e8343df9] to [22304d8c77].

406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
	(change-directory (args:get-arg "-start-dir"))
	(begin
	  (debug:print 0 "ERROR: non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
	  (exit 1))))

(if (args:get-arg "-version")
    (begin
      (print megatest-version)
      (exit)))

(define *didsomething* #f)

;; Overall exit handling setup immediately
;;
(if (or (args:get-arg "-process-reap"))







|







406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
	(change-directory (args:get-arg "-start-dir"))
	(begin
	  (debug:print 0 "ERROR: non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
	  (exit 1))))

(if (args:get-arg "-version")
    (begin
      (print (common:version-signature)) ;; (print megatest-version)
      (exit)))

(define *didsomething* #f)

;; Overall exit handling setup immediately
;;
(if (or (args:get-arg "-process-reap"))