Megatest

Check-in [f9d63f34c4]
Login
Overview
Comment:To deal with bash vs csh stupidity use current-directory instead of PWD since the logical path is lost in most cases causing issues in finding db files.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution
Files: files | file ages | folders
SHA1: f9d63f34c44f40a04a3b8b64d4541eb0bd91c632
User & Date: mrwellan on 2024-01-19 08:51:43
Other Links: branch diff | manifest | tags
Context
2024-01-19
08:53
fixed-fork check-in: 1e9f9c66b3 user: mrwellan tags: v1.80-revolution
08:51
To deal with bash vs csh stupidity use current-directory instead of PWD since the logical path is lost in most cases causing issues in finding db files. check-in: f9d63f34c4 user: mrwellan tags: v1.80-revolution
2024-01-18
14:56
Change expire time in dbfile:cautious-open-database to 5 seconds (was 300). This was way too long. check-in: d7c55019d9 user: mrwellan tags: v1.80-revolution
Changes

Modified dashboard.scm from [c1fb4f3795] to [ff41a61c9e].

3973
3974
3975
3976
3977
3978
3979

3980


3981
3982
3983
3984
3985
3986
3987
		      (begin
			(debug:print 0 *default-log-port* "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"))
    )
)


(setenv "MT_RUN_AREA_HOME" (get-environment-variable "PWD"))



(if (not (null? remargs))
  (if remargs
    (begin
      (debug:print 0 *default-log-port* "Unrecognised arguments: " (string-intersperse remargs " "))
      (exit)
    )







>
|
>
>







3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
		      (begin
			(debug:print 0 *default-log-port* "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"))
    )
)

;; This is NOT good
;; (setenv "MT_RUN_AREA_HOME" (get-environment-variable "PWD"))
;; This should be OK but it really should not be necessary
(setenv "MT_RUN_AREA_HOME" (current-directory))

(if (not (null? remargs))
  (if remargs
    (begin
      (debug:print 0 *default-log-port* "Unrecognised arguments: " (string-intersperse remargs " "))
      (exit)
    )