Megatest

Check-in [8ff6166610]
Login
Overview
Comment:Fixed quote in path issue
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80 | v1.8014
Files: files | file ages | folders
SHA1: 8ff616661021fb8c98e5fb0fd43d995443859a3d
User & Date: mrwellan on 2023-06-27 09:08:53
Other Links: branch diff | manifest | tags
Context
2023-07-18
15:44
fix for multidb pgdb sync check-in: 2049d41c44 user: pjhatwal tags: v1.80
2023-06-27
09:08
Fixed quote in path issue check-in: 8ff6166610 user: mrwellan tags: v1.80, v1.8014
2023-06-14
14:55
don't ssh to current host check-in: 40aac4386e user: mrwellan tags: v1.80
Changes

Modified launch.scm from [bf5571fa93] to [9d838959e9].

606
607
608
609
610
611
612



613
614
615
616
617
618
619
620
	      (list  "MT_RUNNAME"   runname)
	      (list  "MT_MEGATEST"  megatest)
	      (list  "MT_TARGET"    target)
	      (list  "MT_LINKTREE"  (common:get-linktree)) ;; (configf:lookup *configdat* "setup" "linktree"))
	      (list  "MT_TESTSUITENAME" (common:get-testsuite-name))))
          ;;(bb-check-path msg: "launch:execute post block 3")




	  (if mt-bindir-path (setenv "PATH" (conc "\""(getenv "PATH")":"mt-bindir-path"\"")))
          ;;(bb-check-path msg: "launch:execute post block 4")
	  ;; (change-directory top-path)
	  ;; Can setup as client for server mode now
	  ;; (client:setup)

	  
	  ;; environment overrides are done *before* the remaining critical envars.







>
>
>
|







606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
	      (list  "MT_RUNNAME"   runname)
	      (list  "MT_MEGATEST"  megatest)
	      (list  "MT_TARGET"    target)
	      (list  "MT_LINKTREE"  (common:get-linktree)) ;; (configf:lookup *configdat* "setup" "linktree"))
	      (list  "MT_TESTSUITENAME" (common:get-testsuite-name))))
          ;;(bb-check-path msg: "launch:execute post block 3")

	  (let ((tmppath (getenv "PATH")))
	    (if (string-search tmppath " ")
		(debug:print 0 *default-log-port* "WARNING: spaces in PATH are not supported."))
	    (if mt-bindir-path (setenv "PATH" (conc tmppath":"mt-bindir-path))))
          ;;(bb-check-path msg: "launch:execute post block 4")
	  ;; (change-directory top-path)
	  ;; Can setup as client for server mode now
	  ;; (client:setup)

	  
	  ;; environment overrides are done *before* the remaining critical envars.