Overview
Comment: | Process tests in bundles |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.61 |
Files: | files | file ages | folders |
SHA1: |
3340b7c0bd0f7cbe4aabf4073d2b5c09 |
User & Date: | mrwellan on 2016-07-19 18:33:20 |
Other Links: | branch diff | manifest | tags |
Context
2016-07-19
| ||
23:34 | Cleaned up display of itemized tests in temporal view check-in: bbfb2fb767 user: matt tags: v1.61 | |
18:33 | Process tests in bundles check-in: 3340b7c0bd user: mrwellan tags: v1.61 | |
18:28 | Sorted tests properly check-in: 84fe581b50 user: mrwellan tags: v1.61 | |
Changes
Modified dashboard.scm from [067e2d457d] to [123feb2512].
︙ | ︙ | |||
2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 | ;; (let ((x 10) ;; (y (- sizey (* start-row row-height)))) ;; (vg:add-objs-to-comp runcomp (vg:make-text x y run-full-name font: "Helvetica -10")) ;; (dashboard:add-bar rowhash start-row x (+ x 100))) (set! start-row (+ start-row 1)) ;; get tests in list sorted by event time ascending (for-each (lambda (testdat) (let* ((event-time (maptime (db:test-get-event_time testdat))) (run-duration (* timescale (db:test-get-run_duration testdat))) (end-time (+ event-time run-duration)) (test-name (db:test-get-testname testdat)) (item-path (db:test-get-item-path testdat)) (state (db:test-get-state testdat)) | > > | 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 | ;; (let ((x 10) ;; (y (- sizey (* start-row row-height)))) ;; (vg:add-objs-to-comp runcomp (vg:make-text x y run-full-name font: "Helvetica -10")) ;; (dashboard:add-bar rowhash start-row x (+ x 100))) (set! start-row (+ start-row 1)) ;; get tests in list sorted by event time ascending (for-each (lambda (testdats) (for-each (lambda (testdat) (let* ((event-time (maptime (db:test-get-event_time testdat))) (run-duration (* timescale (db:test-get-run_duration testdat))) (end-time (+ event-time run-duration)) (test-name (db:test-get-testname testdat)) (item-path (db:test-get-item-path testdat)) (state (db:test-get-state testdat)) |
︙ | ︙ | |||
2410 2411 2412 2413 2414 2415 2416 | ;; (vg:make-text (+ event-time 2) ;; (+ lly 2) ;; (conc test-name "/" item-path) ;; font: "Helvetica -10") )))) ;; (print "test-name: " test-name " event-time: " event-time " run-duration: " run-duration) )) | > | | 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 | ;; (vg:make-text (+ event-time 2) ;; (+ lly 2) ;; (conc test-name "/" item-path) ;; font: "Helvetica -10") )))) ;; (print "test-name: " test-name " event-time: " event-time " run-duration: " run-duration) )) testdats)) hierdat) ;; placeholder box (set! max-row (+ max-row 1)) (let ((y (- sizey (* max-row row-height)))) (vg:add-objs-to-comp runcomp (vg:make-rect 0 y 0 y))) ;; instantiate the component (let* ((extents (vg:components-get-extents drawing runcomp)) ;; move the following into mapping functions in vg.scm |
︙ | ︙ |