Overview
| Comment: | Changed display of seconds for runtime to hrs, min and sec for readability |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f1d8ece911be42cfbab5db6512c3073c |
| User & Date: | mrwellan on 2011-07-13 10:52:41 |
| Other Links: | manifest | tags |
Context
|
2011-07-13
| ||
| 23:15 | Re-factored dashboard to elimnate using threads and to use the iup:timer instead check-in: 112fdec9c0 user: mrwellan tags: trunk | |
| 10:52 | Changed display of seconds for runtime to hrs, min and sec for readability check-in: f1d8ece911 user: mrwellan tags: trunk | |
| 10:15 | Added proper updating of parent test status when sub tests are still running check-in: 3c4ef51e14 user: mrwellan tags: trunk | |
Changes
Modified common.scm from [0c60122ca7] to [78d0284d61].
| ︙ | ︙ | |||
114 115 116 117 118 119 120 |
(if val
(setenv var (->string val))
(unsetenv var))))
lst)
res)
'()))
| > > > > > > > > > > > | 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 |
(if val
(setenv var (->string val))
(unsetenv var))))
lst)
res)
'()))
;;======================================================================
;; time and date nice to have stuff
;;======================================================================
(define (seconds->hr-min-sec secs)
(let* ((hrs (quotient secs 3600))
(min (quotient (- secs (* hrs 3600)) 60))
(sec (- secs (* hrs 3600)(* min 60))))
(conc (if (> hrs 0)(conc hrs "hr ") "")
(if (> min 0)(conc min "m ") "")
sec "s")))
|
Modified dashboard-tests.scm from [47e0311a17] to [8dedb87be4].
| ︙ | ︙ | |||
110 111 112 113 114 115 116 | (store-label "DiskFree" (iup:label (conc (db:test-get-diskfree testdat)) #:expand "HORIZONTAL") (lambda (testdat)(conc (db:test-get-diskfree testdat)))) (store-label "CPULoad" (iup:label (conc (db:test-get-cpuload testdat)) #:expand "HORIZONTAL") (lambda (testdat)(conc (db:test-get-cpuload testdat)))) (store-label "RunDuration" | | | | 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | (store-label "DiskFree" (iup:label (conc (db:test-get-diskfree testdat)) #:expand "HORIZONTAL") (lambda (testdat)(conc (db:test-get-diskfree testdat)))) (store-label "CPULoad" (iup:label (conc (db:test-get-cpuload testdat)) #:expand "HORIZONTAL") (lambda (testdat)(conc (db:test-get-cpuload testdat)))) (store-label "RunDuration" (iup:label (conc (seconds->hr-min-sec (db:test-get-run_duration testdat))) #:expand "HORIZONTAL") (lambda (testdat)(conc (seconds->hr-min-sec (db:test-get-run_duration testdat))))) (store-label "CPULoad" (iup:label (conc (db:test-get-final_logf testdat)) #:expand "HORIZONTAL") (lambda (testdat)(conc (db:test-get-final_logf testdat))))))))) ;; use a global for setting the buttons colors ;; state status teststeps (define *state-status* (vector #f #f #f)) |
| ︙ | ︙ |