Megatest: Diff

Differences From Artifact [953e897ae3]:

File dashboard.scm — part of check-in [759c9e1976] at 2016-09-17 00:22:35 on branch runs-summary-context-menu — enabled override of num-to-get in dboard:get-tests-for-run-duplicate; overriding from 100 to 1000 masks foregoing issue (user: bb, size: 143238) [annotate] [blame] [check-ins using]

To Artifact [243eb78366]:

File dashboard.scm — part of check-in [028819adf7] at 2016-09-17 00:46:42 on branch runs-summary-context-menu — fixed bug with runs summary tab when using dbfile modified time timestamp optimization; not really related to that, but to original timestamp code that wrapped get-test-data clashing with the proper functioning of get-tests-for-run-duplicate; now there is a bug in launching test control panel from runs-summary-tab matrix cells (user: bb, size: 143449) [annotate] [blame] [check-ins using]

︙
1489 1490 1491 1492 1493 1494 1495 ~~1496 1497 1498 1499~~ ~~1500 1501 1502 1503 1504~~ ~~1505 1506 1507 1508~~ 1509 1510 1511 1512 1513 1514 1515	1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517	+ + - - - - + + + + + - - - - - + + + + - - - - + + + +	(else #f))))))) (define (dashboard:run-id->tests-mindat run-id tabdat runs-hash) (let* ((run (hash-table-ref/default runs-hash run-id #f)) (key-vals (rmt:get-key-vals run-id)) (testnamepatt (or (dboard:tabdat-test-patts tabdat) "%/%")) (tests-ht (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)) (tests-dat (dashboard:tests-ht->tests-dat tests-ht)) (tests-dat (if (or (not run-id) (configf:lookup configdat "setup" "do-not-use-db-file-timestamps") (not (hash-table-exists? (dboard:tabdat-last-test-dat tabdat) run-id)) ) ;; (tests-dat (if (or (not run-id) ;; (configf:lookup configdat "setup" "do-not-use-db-file-timestamps") ;; (not (hash-table-exists? (dboard:tabdat-last-test-dat tabdat) run-id)) ;; ) (begin (BB> "before run-status gtfrd") (let* ((tests-ht (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)) (res (dashboard:tests-ht->tests-dat tests-ht)) ;; yes, we lose the order by making a hash table and reordering it here for the matrix... Optimize this if it slows stuff down. ;; (begin ;; (BB> "before run-status gtfrd") ;; (let* ((tests-ht (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)) ;; (res (dashboard:tests-ht->tests-dat tests-ht)) ;; yes, we lose the order by making a hash table and reordering it here for the matrix... Optimize this if it slows stuff down. ~~) (BB> "after run-status gtfrd") res)) (hash-table-ref (dboard:tabdat-last-test-dat tabdat) run-id)))~~ ;; ) ;; (BB> "after run-status gtfrd") ;; res)) ;; (hash-table-ref (dboard:tabdat-last-test-dat tabdat) run-id))) (tests-mindat (dcommon:minimize-test-data tests-dat))) ;; reduces data for display (dboard:tabdat-last-runs-update-set! tabdat (- (current-seconds) 2)) (hash-table-set! (dboard:tabdat-last-test-dat tabdat) run-id tests-dat) (hash-table-set! (dboard:tabdat-run-update-times tabdat) run-id (- (current-seconds) 10)) (when (not run) (BB> "ERROR: NO RUN FOR RUN-ID run-id="run-id) (BB> "runs-hash-> " (hash-table->alist runs-hash))
︙
1898 1899 1900 1901 1902 1903 1904 ~~1905 1906~~ 1907 1908 1909 1910 1911 1912 1913	1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915	- - + +	tpatt)) "%"))) (item-path (db:test-get-item-path (rmt:get-test-info-by-id run-id test-id))) (item-test-path (conc test-name "/" (if (equal? item-path "") "%" item-path))) (status-chars (char-set->list (string->char-set status))) ~~(testpanel-cmd (conc toolpath " -test " (dboard:tabdat-curr-run-id tabdat) "," test-id "&"))) (BB> "testpanel-cmd="testpanel-cmd " status="status)~~ (testpanel-cmd (conc toolpath " -test " (dboard:tabdat-curr-run-id tabdat) "," test-id " &"))) (BB> "testpanel-cmd=>"testpanel-cmd"< status=>"status"<") (BB> "test-id="test-id ) ;;(BB> " run-id="run-id) (when (member #\1 status-chars) ;; 1 is left mouse button (system testpanel-cmd)) (when (member #\2 status-chars) ;; 2 is middle mouse button
︙