Megatest

Check-in [c4685ae4f9]
Login
Overview
Comment:Fixed unchecked hash before accessing it.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: c4685ae4f9d9eb36f24c47e0b6be9e56827580c3
User & Date: mrwellan on 2016-05-05 16:00:55
Other Links: branch diff | manifest | tags
Context
2016-05-06
19:44
Added placeholder for .dat reading check-in: d88df2377f user: mrwellan tags: v1.61
2016-05-05
16:00
Fixed unchecked hash before accessing it. check-in: c4685ae4f9 user: mrwellan tags: v1.61
2016-05-03
13:59
Added megatest-fossil-hash files to be removed during make clean check-in: 0075073268 user: jmoon18 tags: v1.61
Changes

Modified tests.scm from [9b4900cf00] to [d2a9815087].

801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
		     (testexists   (and (file-exists? test-configf)(file-read-access? test-configf)))
		     (tcfg         (if testexists
				       (read-config test-configf #f system-allowed
						    environ-patt: (if system-allowed
								      "pre-launch-env-vars"
								      #f))
				       #f)))
		(if cache-file (hash-table-set! tcfg "have fulldata" #t)) ;; mark this as fully read data
		(if tcfg (hash-table-set! *testconfigs* test-name tcfg))
		(if (and testexists
			 cache-file
			 (file-write-access? cache-path))
		    (let ((tpath (conc cache-path "/.testconfig")))
		      (debug:print-info 1 "Caching testconfig for " test-name " in " tpath)
		      (configf:write-alist tcfg tpath)))







|







801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
		     (testexists   (and (file-exists? test-configf)(file-read-access? test-configf)))
		     (tcfg         (if testexists
				       (read-config test-configf #f system-allowed
						    environ-patt: (if system-allowed
								      "pre-launch-env-vars"
								      #f))
				       #f)))
		(if (and tcfg cache-file) (hash-table-set! tcfg "have fulldata" #t)) ;; mark this as fully read data
		(if tcfg (hash-table-set! *testconfigs* test-name tcfg))
		(if (and testexists
			 cache-file
			 (file-write-access? cache-path))
		    (let ((tpath (conc cache-path "/.testconfig")))
		      (debug:print-info 1 "Caching testconfig for " test-name " in " tpath)
		      (configf:write-alist tcfg tpath)))