Megatest

Check-in [2454028ce7]
Login
Overview
Comment:When suppressing variables at execute time be sure to actually unset them in the current environment. WARNING: This may be a wrong-headed strategy. Does suppressing vars mean megatest should not clobber or override or does it mean that it should unset?
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 2454028ce7b5efdf6e1c7c467846d322c9b6e8c7
User & Date: mrwellan on 2019-11-19 12:40:53
Other Links: branch diff | manifest | tags
Context
2019-11-21
03:22
Added beginnings of multi-level glob check-in: e22603e687 user: matt tags: v1.65
2019-11-19
12:40
When suppressing variables at execute time be sure to actually unset them in the current environment. WARNING: This may be a wrong-headed strategy. Does suppressing vars mean megatest should not clobber or override or does it mean that it should unset? check-in: 2454028ce7 user: mrwellan tags: v1.65
2019-11-14
10:20
Updated megatest version to 1.6538. check-in: c165b41110 user: mmgraham tags: v1.65, v1.6538
Changes

Modified launch.scm from [bce9848f66] to [0962cf8b36].

752
753
754
755
756
757
758

759




760
761
762
763
764
765
766
752
753
754
755
756
757
758
759

760
761
762
763
764
765
766
767
768
769
770







+
-
+
+
+
+







          ;;(bb-check-path msg: "launch:execute post block 41")
	  (runs:set-megatest-env-vars run-id inkeys: keys inkeyvals: keyvals)
          ;;(bb-check-path msg: "launch:execute post block 42")
	  (set-item-env-vars itemdat)
          ;;(bb-check-path msg: "launch:execute post block 43")
          (let ((blacklist (configf:lookup *configdat* "setup" "blacklistvars")))
            (if blacklist
		(let ((vars (string-split blacklist)))
                (save-environment-as-files "megatest" ignorevars: (string-split blacklist))
		  (save-environment-as-files "megatest" ignorevars: vars)
		  (for-each (lambda (var)
			      (unsetenv var))
			    vars))
                (save-environment-as-files "megatest")))
          ;;(bb-check-path msg: "launch:execute post block 44")
	  ;; open-run-close not needed for test-set-meta-info
	  ;; (tests:set-full-meta-info #f test-id run-id 0 work-area)
	  ;; (tests:set-full-meta-info test-id run-id 0 work-area)
	  (tests:set-full-meta-info #f test-id run-id 0 work-area 10)