511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
|
(begin
(set! best dirpath)
(set! bestsize freespc)))))
(map car disks)))
(if (and best (> bestsize 0))
best
(begin
(if (common:low-noise-print 20 "disks" disk-num)
(debug:print 0 "ERROR: No valid disks found in megatest.config. Please add some to your [disks] section and ensure the directory exists!"))
(exit 1)))))
;; Desired directory structure:
;;
;; <linkdir> - <target> - <testname> -.
;; |
|
|
|
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
|
(begin
(set! best dirpath)
(set! bestsize freespc)))))
(map car disks)))
(if (and best (> bestsize 0))
best
(begin
(if (common:low-noise-print 20 "no valid disks")
(debug:print 0 "ERROR: No valid disks found in megatest.config. Please add some to your [disks] section and ensure the directory exists!"))
(exit 1)))))
;; Desired directory structure:
;;
;; <linkdir> - <target> - <testname> -.
;; |
|