Megatest

Check-in [0dbbb70834]
Login
Overview
Comment:Fixed genexample to fix call to simple-get-runs ==3.3/0.9/PASS/mars==
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-cleanup | v1.6565
Files: files | file ages | folders
SHA1: 0dbbb708341d8642c91f96d51b72b0acf0e57d44
User & Date: jmoon18 on 2020-08-26 16:10:15
Original Comment: Fixed genexample to fix call to simple-get-runs
Other Links: branch diff | manifest | tags
Context
2020-08-26
17:48
Added option to change the get-delay function by setting [load] new-load-method in the megatest.config ==/2.9/0.9/PASS/1204/mars/== check-in: 5c50817156 user: jmoon18 tags: v1.65-cleanup, v1.6565
16:10
Fixed genexample to fix call to simple-get-runs ==3.3/0.9/PASS/mars== check-in: 0dbbb70834 user: jmoon18 tags: v1.65-cleanup, v1.6565
15:56
Tweaked server throttle. Bumped version. check-in: fc0f14e78b user: mrwellan tags: v1.65-cleanup, v1.6565
Changes

Modified genexample.scm from [8d68fc70de] to [509120626b].

422
423
424
425
426
427
428
429

430
431
432
433
434
435
436
422
423
424
425
426
427
428

429
430
431
432
433
434
435
436







-
+







       (if (not (file-exists? (conc dest-path "/" rdbname)))
	   (begin
	     (create-directory (conc dest-path "/" rdbname "/sxml") #t)
	     (with-output-to-file (conc dest-path "/" rdbname "/sheet-names.cfg")
	       (lambda ()(print))))))
     '("stepsinfo" "miscinfo"))
    
    (let* ((runs     (rmt:simple-get-runs (or runname "%") #f #f (or target "%")))
    (let* ((runs     (rmt:simple-get-runs (or runname "%") #f #f (or target "%") 0))
	   (tests    (make-hash-table)) ;; just tests
	   (fullt    (make-hash-table)) ;; all test/items
	   (testreg  (make-hash-table)) ;; for the testconfigs
	   (stepsrdb (conc dest-path "/stepsinfo"))
	   (miscrdb  (conc dest-path "/miscinfo")))
      (if (> (length runs) 1)
	  (debug:print-info 0 *default-log-port* "More than one run matches, first found data will be used."))