Overview
| Comment: | Fixed couple problems with the MT_ var check added to dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
eed93e593410ead2dfb213c22cd4d461 |
| User & Date: | mrwellan on 2018-05-31 14:51:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-05-31
| ||
| 14:52 | Added glob support to configf include directives check-in: ac5c30cfa9 user: mrwellan tags: v1.65 | |
| 14:51 | Fixed couple problems with the MT_ var check added to dashboard check-in: eed93e5934 user: mrwellan tags: v1.65 | |
|
2018-05-29
| ||
| 10:43 | Fixed ! var handling. check-in: 681c4c04e0 user: mrwellan tags: v1.65 | |
Changes
Modified dashboard.scm from [c9420e909c] to [f209c82e35].
| ︙ | ︙ | |||
100 101 102 103 104 105 106 |
"-repl"
"-rh5.11" ;; fix to allow running on rh5.11
)
args:arg-hash
0))
;; check for MT_* environment variables and exit if found
| > > > | > | | | | | > | | 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
"-repl"
"-rh5.11" ;; fix to allow running on rh5.11
)
args:arg-hash
0))
;; check for MT_* environment variables and exit if found
(if (not (args:get-arg "-test"))
(begin
(display "Checking for MT_ vars: ")
(for-each (lambda (var)
(display " ")(display 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"))
(print ". Done. All ok.")))
(if (not (null? remargs))
(begin
(print "Unrecognised arguments: " (string-intersperse remargs " "))
(exit)))
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
(if (args:get-arg "-start-dir")
(if (directory-exists? (args:get-arg "-start-dir"))
(let ((fullpath (common:real-path (args:get-arg "-start-dir"))))
(setenv "PWD" fullpath)
(change-directory fullpath))
(begin
(debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
(exit 1))))
;; TODO: Move this inside (main)
;;
(if (not (launch:setup))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
|
| ︙ | ︙ |