Megatest

Differences From Artifact [8ecdd4ecf2]:

• File dashboard.scm — part of check-in [53c81338a0] at 2015-04-04 11:57:43 on branch multi-area — Moved dashboard to olddashboard and newdashboard to dashboard (user: matt, size: 20721) [annotate] [blame] [check-ins using]
• File newdashboard.scm — part of check-in [1fb33719ba] at 2015-03-08 22:28:44 on branch better-html-update-control — Use db:dbfile instead of constructing path to db (user: matt, size: 20721) [annotate] [blame] [check-ins using]

To Artifact [d467002de9]:

• File newdashboard.scm — part of check-in [2f8dca08bf] at 2016-03-01 22:56:57 on branch envprocessing — Refactored launch:setup-for-run into simpler launch:setup (user: matt, size: 20713) [annotate] [blame] [check-ins using] [more...]

65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

		 0))

(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

(if (not (launch:setup-for-run))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))

;; (if (args:get-arg "-host")
;;     (begin
;;       (set! *runremote* (string-split (args:get-arg "-host" ":")))

|

65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

		 0))

(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

(if (not (launch:setup))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))

;; (if (args:get-arg "-host")
;;     (begin
;;       (set! *runremote* (string-split (args:get-arg "-host" ":")))