Megatest

Check-in [8283307ec9]
Login
Overview
Comment:Fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.65-real
Files: files | file ages | folders
SHA1: 8283307ec91d5d17e37ccdd0471d3ffebdb68188
User & Date: matt on 2021-04-06 10:31:23
Other Links: branch diff | manifest | tags
Context
2021-04-06
10:31
Fixed typo Closed-Leaf check-in: 8283307ec9 user: matt tags: v1.65-real
2021-03-09
21:03
Very odd, missing egg in server.scm, util. check-in: 57b5fb07d6 user: matt tags: v1.65-real
Changes

Modified tests.scm from [58a365a2ab] to [a317cce4ef].

907
908
909
910
911
912
913
914

915
916
917
918
919
920
921
907
908
909
910
911
912
913

914
915
916
917
918
919
920
921







-
+







	       (tests:dashboard-body page pg-size keys numkeys total-runs linktree area-name get-prev-links get-next-links #f run-patt target-patt)) ;; update this function
	      (close-output-port oup)
					; (set! page (+ 1 page))
	      (if (> total-runs (* (+ 1 page) pg-size))
		  (loop (+ 1  page)))))
	  (common:simple-file-release-lock lockfile))
	(begin
	  (debug-print 0 *default-log-port* "Failed to get lock on file outf, lockfile: " lockfile) #f))))
	  (debug:print 0 *default-log-port* "Failed to get lock on file outf, lockfile: " lockfile) #f))))


(define (tests:readlines filename)
  (call-with-input-file filename
    (lambda (p)
      (let loop ((line (read-line p))
                 (result '()))