Megatest

Check-in [32ebeea69b]
Login
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: 32ebeea69b5cf5bb48c54ca9d014b6dcba4cd097
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
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 (hash-table-ref/default confdat "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)







|







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)