Megatest

Diff
Login

Differences From Artifact [b2cf19a6c2]:

To Artifact [b6e5dc6cca]:


854
855
856
857
858
859
860
861
862


863
864
865
866
867
868
869
854
855
856
857
858
859
860


861
862
863
864
865
866
867
868
869







-
-
+
+







	 (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)
	      (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!"))
		(if (common:low-noise-print 20 "No valid disks or no disk with enough space")
		    (debug:print 0 "ERROR: No valid disks found in megatest.config. Please add some to your [disks] section and ensure the directory exists and has enough space!\n    You can change minspace in the [setup] section of megatest.config. Current setting is: " minspace))
		(exit 1)))))))

;; Desired directory structure:
;;
;;  <linkdir> - <target> - <testname> -.
;;                                     |
;;                                     v