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: |
c4685ae4f9d9eb36f24c47e0b6be9e56 |
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 | (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))) | | | 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))) |
︙ | ︙ |