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
          ;;(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

                (save-environment-as-files "megatest" ignorevars: (string-split blacklist))



                (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)








>
|
>
>
>







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: 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)