;; Test for LFS (Large Files Support)
;; create a file with more than 2^32 bytes
;; and read back some records for verification
;; Needs apprxomately 5 Gigabyte of diskspace
;; writing a file of 5,000,000 records of 1k each.

(set 'file (open "largefile" "write"))

(dotimes (i 5000000)
	(set 'rec (append (format "%08d" i) (dup "#" 992)))
	(write-buffer file rec 1000)
	(if (= 0 (% i 10000)) (println i " kbytes written"))
)
(close file)

(set 'file (open "largefile" "read"))

(for (i 0 4999999 10000)
	(set 'test (append (format "%08d" i) (dup "#" 992)))
    (seek file (mul i 1000))
	(read-buffer file 'rec 1000)
	(if (= test rec) 
		(println i " record -> Ok " (0 8 rec))
		(println i " record -> Error reading " (0 8 rec)))
)	

(exit)