Megatest

Check-in [eefe466a08]
Login
Overview
Comment:Cherry pick from b5393fd63f: Missed change - need to conc on params for disk space call
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6013 | v1.61
Files: files | file ages | folders
SHA1: eefe466a08852b56b4b4a0a3be303c773cb2a90d
User & Date: mrwellan on 2016-04-28 09:05:27
Other Links: branch diff | manifest | tags
Context
2016-04-28
10:17
Bumped version number check-in: d679bd9373 user: mrwellan tags: v1.61, v1.6101
09:05
Cherry pick from b5393fd63f: Missed change - need to conc on params for disk space call check-in: eefe466a08 user: mrwellan tags: v1.6013, v1.61
09:05
Cherry pick from e5dfeacf59: Updated documentation on disk checks Closed-Leaf check-in: 96a1f6b9af user: mrwellan tags: rebase-envprocessing
Changes

Modified common.scm from [f17c224b46] to [b1aba2dd8c].

671
672
673
674
675
676
677
678
679
680
681
682
683
684
685

;; given path get free space, allows override in [setup]
;; with free-space-script /path/to/some/script.sh
;;
(define (get-df path)
  (if (configf:lookup *configdat* "setup" "free-space-script")
      (with-input-from-pipe 
       (configf:lookup *configdat* "setup" "free-space-script")
       (lambda ()
	 (let ((res (read-line)))
	   (if (string? res)
	       (string->number res)))))
      (get-unix-df path)))

(define (get-unix-df path)







|







671
672
673
674
675
676
677
678
679
680
681
682
683
684
685

;; given path get free space, allows override in [setup]
;; with free-space-script /path/to/some/script.sh
;;
(define (get-df path)
  (if (configf:lookup *configdat* "setup" "free-space-script")
      (with-input-from-pipe 
       (conc (configf:lookup *configdat* "setup" "free-space-script") " " path)
       (lambda ()
	 (let ((res (read-line)))
	   (if (string? res)
	       (string->number res)))))
      (get-unix-df path)))

(define (get-unix-df path)