Megatest

Check-in [f121875378]
Login
Overview
Comment:restored env var name MT_TESTSUITENAME which had inadvertently changed to MT_TESTSUITE_NAME
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63-09c-candidate
Files: files | file ages | folders
SHA1: f12187537880ed2cad002d205bf5467be7722fa0
User & Date: bjbarcla on 2017-03-07 14:12:55
Original Comment: restored env var name MT_TESTSITENAME which had inadvertently changed to MT_TESTSUITE_NAME
Other Links: branch diff | manifest | tags
Context
2017-03-07
14:26
upped default server timeout from 1hr to 25hrs to reduce incidence of potential server transition issues check-in: c838c6a2d2 user: bjbarcla tags: v1.63-09c-candidate
14:12
restored env var name MT_TESTSUITENAME which had inadvertently changed to MT_TESTSUITE_NAME check-in: f121875378 user: bjbarcla tags: v1.63-09c-candidate
09:46
merged in fixes for COMPLETE/COMPLETED state wrong name, client-setup crash bug check-in: 6bdeae43f3 user: bjbarcla tags: v1.63-09c-candidate
Changes

Modified launch.scm from [23494ef137] to [ba23cf115d].

571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
	      (list  "MT_TEST_NAME" test-name)
	      (list  "MT_ITEM_INFO" (conc itemdat))
	      (list  "MT_ITEMPATH"  item-path)
	      (list  "MT_RUNNAME"   runname)
	      (list  "MT_MEGATEST"  megatest)
	      (list  "MT_TARGET"    target)
	      (list  "MT_LINKTREE"  (configf:lookup *configdat* "setup" "linktree"))
	      (list  "MT_TESTSUITE_NAME" (common:get-testsuite-name))))

	  (if mt-bindir-path (setenv "PATH" (conc (getenv "PATH") ":" mt-bindir-path)))
	  ;; (change-directory top-path)
	  ;; Can setup as client for server mode now
	  ;; (client:setup)

	  







|







571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
	      (list  "MT_TEST_NAME" test-name)
	      (list  "MT_ITEM_INFO" (conc itemdat))
	      (list  "MT_ITEMPATH"  item-path)
	      (list  "MT_RUNNAME"   runname)
	      (list  "MT_MEGATEST"  megatest)
	      (list  "MT_TARGET"    target)
	      (list  "MT_LINKTREE"  (configf:lookup *configdat* "setup" "linktree"))
	      (list  "MT_TESTSUITENAME" (common:get-testsuite-name))))

	  (if mt-bindir-path (setenv "PATH" (conc (getenv "PATH") ":" mt-bindir-path)))
	  ;; (change-directory top-path)
	  ;; Can setup as client for server mode now
	  ;; (client:setup)

	  
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
	  (begin
	    (debug:print-error 0 *default-log-port* "linktree not defined in [setup] section of megatest.config")
	    )))
    (if (and *toppath*
	     (directory-exists? *toppath*))
	(begin
	  (setenv "MT_RUN_AREA_HOME" *toppath*)
	  (setenv "MT_TESTSUITE_NAME" (common:get-testsuite-name)))
	(begin
	  (debug:print-error 0 *default-log-port* "failed to find the top path to your Megatest area.")
          ;;(exit 1)
          #f
          ))
    *toppath*))








|







861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
	  (begin
	    (debug:print-error 0 *default-log-port* "linktree not defined in [setup] section of megatest.config")
	    )))
    (if (and *toppath*
	     (directory-exists? *toppath*))
	(begin
	  (setenv "MT_RUN_AREA_HOME" *toppath*)
	  (setenv "MT_TESTSUITENAME" (common:get-testsuite-name)))
	(begin
	  (debug:print-error 0 *default-log-port* "failed to find the top path to your Megatest area.")
          ;;(exit 1)
          #f
          ))
    *toppath*))