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 107 108 109 110 111 112 113 114 115 116 117 118 119 |
"-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")
| > > > > > | 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 |
"-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")
|
| ︙ | ︙ |