Megatest

Check-in [281dc2ccbe]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Added defence against startup race condition
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.66
Files: files | file ages | folders
SHA1: 281dc2ccbe99fb36ea820814ad09cf8e522a0e46
User & Date: matt on 2020-07-04 03:32:26
Other Links: branch diff | manifest | tags
Context
2020-07-04
22:45
Added MT_STEP_NAME check-in: 5daa86cb52 user: matt tags: v1.66
03:32
Added defence against startup race condition check-in: 281dc2ccbe user: matt tags: v1.66
02:53
Merged in latest v1.65 and minor refactor in dcommon.scm check-in: 575ea78cbe user: matt tags: v1.66
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dcommon.scm from [5e69693de6] to [30bf3c6504].

︙
616
617
618
619
620
621
622

623
624



625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642

616
617
618
619
620
621
622
623


624
625
626
627
628
629
630
631
632
633
634
635
636

637
638
639
640
641
642
643








+
-
-
+
+
+










-








    ;; Megatest version
    (iup:attribute-set! general-matrix "2:0" "Version")
    (iup:attribute-set! general-matrix "2:1" (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))

    general-matrix))

(define (dcommon:stats-updater commondat tabdat stats-matrix)
  (if (and (iup:ihandle? stats-matrix)
  (if (dashboard:database-changed? commondat tabdat context-key: 'run-stats)
      (let* ((run-stats    (rmt:get-run-stats))
	   (dashboard:database-changed? commondat tabdat context-key: 'run-stats))
      (let* ((changed      #f)
	     (run-stats    (rmt:get-run-stats))
	     (indices      (common:sparse-list-generate-index run-stats)) ;;  proc: set-cell))
	     (row-indices  (car indices))
	     (col-indices  (cadr indices))
	     (max-row      (if (null? row-indices) 1 (common:max (map cadr row-indices))))
	     (max-col      (if (null? col-indices) 1 
			       (common:max (map cadr col-indices))))
	     (max-visible  (max (- (dboard:tabdat-num-tests tabdat) 15) 3))
	     (max-col-vis  (if (> max-col 10) 10 max-col))
	     (numrows      1)
	     (numcols      1))
	(debug:print 0 *default-log-port* "GOT HERE, stats-matrix: " stats-matrix)
	(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
	(iup:attribute-set! stats-matrix "NUMCOL" max-col )
	(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
	(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
	(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
	(print "row-indices: " row-indices " col-indices: " col-indices)
	;; Row labels
︙
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689

676
677
678
679
680
681
682

683
684
685
686
687
688
689








-








			    (iup:attribute-set! stats-matrix key value)))))
		  run-stats)
	(if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL")))))


(define (dcommon:run-stats commondat tabdat #!key (tab-num #f))
  (let* ((stats-matrix (iup:matrix expand: "YES"))
	 (changed      #f)
	 (stats-updater (lambda ()
			  (dcommon:stats-updater commondat tabdat stats-matrix))))
    ;; (dboard:commondat-please-update-set! commondat #t) ;; force redraw on first pass 
    ;; (mark-for-update tabdat)
    ;; (stats-updater)
    (dboard:commondat-add-updater commondat stats-updater tab-num: tab-num)
    ;; (set! dashboard:update-summary-tab updater)
︙

This page was generated in about 0.121s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00