Overview
| Comment: | Fixed sorting issue on steps in dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
89b1a101506258f8fa4c1e0ebd346bac |
| User & Date: | matt on 2011-09-25 18:54:05 |
| Other Links: | manifest | tags |
Context
|
2011-09-25
| ||
| 23:46 | Added ability to clean tests and launch from the gui. Also added filter for running from command line -itempatt is now respected by -runtests with % as wildcard check-in: 99f24d81d1 user: matt tags: trunk | |
| 18:54 | Fixed sorting issue on steps in dashboard check-in: 89b1a10150 user: matt tags: trunk | |
| 18:02 | Extracted aliases into scripts for convience functions mt_runstep and mt_laststep, fixed validvalues handling check-in: 06c4198b8e user: matt tags: trunk | |
Changes
Modified dashboard-tests.scm from [5a910ae37e] to [a7e217ed51].
| ︙ | ︙ | |||
355 356 357 358 359 360 361 | (if (number? s)(seconds->time-string s) s)) (let ((s (vector-ref x 2))) (if (number? s)(seconds->time-string s) s)) (vector-ref x 3) ;; status (vector-ref x 4))) ;; time delta (sort (hash-table-values comprsteps) (lambda (a b) | > > | | | | 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 | (if (number? s)(seconds->time-string s) s)) (let ((s (vector-ref x 2))) (if (number? s)(seconds->time-string s) s)) (vector-ref x 3) ;; status (vector-ref x 4))) ;; time delta (sort (hash-table-values comprsteps) (lambda (a b) (let ((time-a (vector-ref a 1)) (time-b (vector-ref b 1))) (if (and (number? time-a)(number? time-b)) (< time-a time-b) #t)))))) "\n"))) (if (not (equal? currval newval)) (iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval))))) stepsdat)) ;; populate the Test Data panel (iup:frame #:title "Test Data" |
| ︙ | ︙ |
Modified db.scm from [503370f6dd] to [4f7891c314].
| ︙ | ︙ | |||
671 672 673 674 675 676 677 |
(let ((res (make-hash-table)))
(for-each
(lambda (step)
(debug:print 6 "step=" step)
(let ((record (hash-table-ref/default
res
(db:step-get-stepname step)
| | | | 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 |
(let ((res (make-hash-table)))
(for-each
(lambda (step)
(debug:print 6 "step=" step)
(let ((record (hash-table-ref/default
res
(db:step-get-stepname step)
;; stepname start end status
(vector (db:step-get-stepname step) "" "" "" ""))))
(debug:print 6 "record(before) = " record
"\nid: " (db:step-get-id step)
"\nstepname: " (db:step-get-stepname step)
"\nstate: " (db:step-get-state step)
"\nstatus: " (db:step-get-status step)
"\ntime: " (db:step-get-event_time step))
(case (string->symbol (db:step-get-state step))
|
| ︙ | ︙ |