Megatest

Check-in [e56f95067b]
Login
Overview
Comment:better message for initial info on target, runname, and testpatt in starting a run
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: e56f95067b96d35f111c8bb3c482d5e98ee3c9df
User & Date: mrwellan on 2015-11-10 08:23:07
Other Links: branch diff | manifest | tags
Context
2015-11-10
22:32
Bumped version check-in: aceba0bc19 user: matt tags: v1.60
21:53
Added partial support for logpro check and abort exit codes Closed-Leaf check-in: d646277c30 user: matt tags: logpro-abort-check
08:23
better message for initial info on target, runname, and testpatt in starting a run check-in: e56f95067b user: mrwellan tags: v1.60
2015-11-04
14:38
Better testconfig handling check-in: beccdd88ab user: mrwellan tags: v1.60
Changes

Modified launch.scm from [2693075ecf] to [03830b391b].

639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
      (let* ((linktree (get-environment-variable "MT_LINKTREE"))
	     (target   (common:args-get-target))
	     (runname  (or (args:get-arg "-runname")
			   (args:get-arg ":runname")))
	     (fulldir  (conc linktree "/"
			     target "/"
			     runname)))
	(debug:print-info 0 "Have -runtests with target=" target ", runname=" runname ", fulldir=" fulldir)
	(if (file-exists? linktree) ;; can't proceed without linktree
	    (begin
	      (if (not (file-exists? fulldir))
		  (create-directory fulldir #t)) ;; need to protect with exception handler 
	      (if (and target
		       runname
		       (file-exists? fulldir))







|







639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
      (let* ((linktree (get-environment-variable "MT_LINKTREE"))
	     (target   (common:args-get-target))
	     (runname  (or (args:get-arg "-runname")
			   (args:get-arg ":runname")))
	     (fulldir  (conc linktree "/"
			     target "/"
			     runname)))
	(debug:print-info 0 "Have -runtests with target=" target ", runname=" runname ", fulldir=" fulldir ", testpatt=" (or (args:get-arg "-testpatt") "%"))
	(if (file-exists? linktree) ;; can't proceed without linktree
	    (begin
	      (if (not (file-exists? fulldir))
		  (create-directory fulldir #t)) ;; need to protect with exception handler 
	      (if (and target
		       runname
		       (file-exists? fulldir))