Megatest

Check-in [91fc43b9f0]
Login
Overview
Comment:Added check for MT_ vars in dashboard.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 91fc43b9f0070cc6c64f813846a19dc38e5885fe
User & Date: mrwellan on 2018-05-29 09:09:19
Other Links: branch diff | manifest | tags
Context
2018-05-29
09:12
Bumped version check-in: 268ce73e8a user: mrwellan tags: v1.65
09:09
Added check for MT_ vars in dashboard. check-in: 91fc43b9f0 user: mrwellan tags: v1.65
09:08
Minor formating cleanup check-in: c4eadcfc06 user: mrwellan tags: v1.65
Changes

Modified dashboard.scm from [0829612ed4] to [c9420e909c].

99
100
101
102
103
104
105








106
107
108
109
110
111
112
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120







+
+
+
+
+
+
+
+







			"-skip-version-check"
			"-repl"
                        "-rh5.11" ;; fix to allow running on rh5.11
			)
		 args:arg-hash
		 0))

;; check for MT_* environment variables and exit if found
(for-each (lambda (var)
	    (if (get-environment-variable var)
		(begin
		  (print "ERROR: environment variable " var " is set in this terminal, this will cause you problems. Exiting now.")
		  (exit 1))))
	  '("MT_RUN_AREA_HOME" "MT_MEGATEST" "MT_CMDINFO" "MT_TEST_RUN_DIR" "MT_LINKTREE" "MT_TESTSUITENAME"))

(if (not (null? remargs))
    (begin
      (print "Unrecognised arguments: " (string-intersperse remargs " "))
      (exit)))

(if (args:get-arg "-h")
    (begin