Overview
| Comment: | check that testconfig is a hash before using it |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
32ebeea69b5cf5bb48c54ca9d014b6dc |
| User & Date: | mrwellan on 2015-08-06 15:47:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-08-07
| ||
| 00:41 | Some fixes to Makefile for chicken/iup, still requires precompiled binaries check-in: f207341131 user: matt tags: v1.60 | |
|
2015-08-06
| ||
| 15:47 | check that testconfig is a hash before using it check-in: 32ebeea69b user: mrwellan tags: v1.60 | |
|
2015-08-04
| ||
| 18:12 | Added disks support in testconfig check-in: 285dbd3aef user: mrwellan tags: v1.60 | |
Changes
Modified launch.scm from [f6e2f4c9c8] to [4c4762ce07].
| ︙ | ︙ | |||
591 592 593 594 595 596 597 | (targfile (conc fulldir "/.megatest.cfg-" megatest-version "-" megatest-fossil-hash))) (debug:print-info 0 "Caching megatest.config in " fulldir "/.megatest.cfg") (configf:write-alist *configdat* tmpfile) (system (conc "ln -sf " tmpfile " " targfile)) ))))))) (define (get-best-disk confdat testconfig) | | | 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 |
(targfile (conc fulldir "/.megatest.cfg-" megatest-version "-" megatest-fossil-hash)))
(debug:print-info 0 "Caching megatest.config in " fulldir "/.megatest.cfg")
(configf:write-alist *configdat* tmpfile)
(system (conc "ln -sf " tmpfile " " targfile))
)))))))
(define (get-best-disk confdat testconfig)
(let* ((disks (or (and testconfig (hash-table-ref/default testconfig "disks" #f))
(hash-table-ref/default confdat "disks" #f)))
(minspace (let ((m (configf:lookup confdat "setup" "minspace")))
(string->number (or m "10000")))))
(if disks
(let ((res (common:get-disk-with-most-free-space disks minspace))) ;; min size of 1000, seems tad dumb
(if res
(cdr res)
|
| ︙ | ︙ |