Megatest

Check-in [01de08afc5]
Login
Overview
Comment:Fixed double paren bug in dashboard
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.0001
Files: files | file ages | folders
SHA1: 01de08afc5c0b251916c8c5c0f41a1d18540537c
User & Date: mrwellan on 2022-02-14 19:36:52
Other Links: branch diff | manifest | tags
Context
2022-02-14
19:49
Initialize placeholder record to correct length in db:get-run-info check-in: e0fb471262 user: mrwellan tags: v2.0001
19:37
Disallow return of eof Leaf check-in: 2540e2a9d9 user: mrwellan tags: v2.0001-disallow-eof-1
19:36
Fixed double paren bug in dashboard check-in: 01de08afc5 user: mrwellan tags: v2.0001
19:35
Added call to setup serializing method check-in: 89fabecd17 user: mrwellan tags: v2.0001
Changes

Modified dashboard.scm from [d302c30c66] to [b030085aaf].

879
880
881
882
883
884
885

886
887


888
889
890
891
892
893
894
895
896
897
879
880
881
882
883
884
885
886


887
888



889
890
891
892
893
894
895







+
-
-
+
+
-
-
-







		      (> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update
		  (begin
		    (when (> elapsed-time 2)   
                      (debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
                      (let* ((old-val (iup:attribute *tim* "TIME"))
                             (new-val (number->string (inexact->exact (floor (* 2  (string->number old-val)))))))
                        (if (< (string->number new-val) 5000)
                            (begin
                            ((debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
                            (iup:attribute-set! *tim* "TIME" new-val))))
			      (debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
                              (iup:attribute-set! *tim* "TIME" new-val)))))


                      )
		    (dboard:tabdat-allruns-set! tabdat new-res)
		    maxtests)
		  (if (> (dboard:rundat-run-data-offset run-struct) 0)
		      (loop run tal new-res newmaxtests) ;; not done getting data for this run
		      (loop (car tal)(cdr tal) new-res newmaxtests)))))))
    (dboard:tabdat-filters-changed-set! tabdat #f)
    (dboard:update-tree tabdat runs-hash header tb)))