Overview
Comment: | Added runname, tests and item paths to tree |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | development |
Files: | files | file ages | folders |
SHA1: |
972ecc05ca8f61560661c0a19c3b9ead |
User & Date: | mrwellan on 2013-03-20 16:17:11 |
Other Links: | branch diff | manifest | tags |
Context
2013-03-20
| ||
18:07 | More tree related implementation check-in: 5818d8e775 user: mrwellan tags: development | |
16:17 | Added runname, tests and item paths to tree check-in: 972ecc05ca user: mrwellan tags: development | |
15:56 | Tree working for target check-in: f9fa5243ad user: mrwellan tags: development | |
Changes
Modified newdashboard.scm from [dd9f1af6fd] to [2e5b037eec].
︙ | |||
85 86 87 88 89 90 91 | 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | - + - + - + | (define *ord* #f) (define *data* (make-vector 6 #f)) (define-inline (dboard:data-get-runs vec) (vector-ref vec 0)) (define-inline (dboard:data-get-tests vec) (vector-ref vec 1)) (define-inline (dboard:data-get-runs-matrix vec) (vector-ref vec 2)) (define-inline (dboard:data-get-tests-tree vec) (vector-ref vec 3)) |
︙ | |||
371 372 373 374 375 376 377 378 379 380 381 382 383 384 | 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 | + | (define (tests) (iup:hbox (let* ((tb (iup:treebox #:selection_cb (lambda (obj id state) (print "obj: " obj ", id: " id ", state: " state))))) (iup:attribute-set! tb "VALUE" "0") (iup:attribute-set! tb "NAME" "Runs") (iup:attribute-set! tb "ADDEXPANDED" "NO") (dboard:data-set-tests-tree! *data* tb) tb) (iup:vbox ))) ;; Overall runs browser ;; |
︙ | |||
476 477 478 479 480 481 482 | 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 | - - + - + + + - + + - + | ;; Given a run-id and testname/item_path calculate a cell R:C ;; NOTE: Also build the test tree browser and look up table ;; ;; Each run is unique on its keys and runname or run-id, store in hash on colnum (for-each (lambda (run-id) |
︙ | |||
526 527 528 529 530 531 532 533 534 535 536 537 538 539 | 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 | + + + + | (let* ((state (db:mintest-get-state test)) (status (db:mintest-get-status test)) (testname (db:mintest-get-testname test)) (itempath (db:mintest-get-item_path test)) (fullname (conc testname "/" itempath)) (dispname (if (string=? itempath "") testname (conc " " itempath))) (rownum (hash-table-ref/default testname-to-row fullname #f))) (tree-add-node (dboard:data-get-tests-tree *data*) "Runs" (append run-path (if (equal? itempath "") (list testname) (list testname itempath)))) (if (not rownum) (let ((rownums (hash-table-values testname-to-row))) (set! rownum (if (null? rownums) 1 (+ 1 (apply max rownums)))) (hash-table-set! testname-to-row fullname rownum) ;; create the label |
︙ |