Overview
Comment: | Tweaked test steps reporting in dashboard |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
fcb61c8998575b2fefb6ecc7bc7450b8 |
User & Date: | matt on 2011-08-24 12:33:41 |
Other Links: | manifest | tags |
Context
2011-08-24
| ||
12:50 | Merged rollup-runs branch into trunk check-in: ebea00e4bb user: mrwellan tags: trunk | |
12:33 | Tweaked test steps reporting in dashboard check-in: fcb61c8998 user: matt tags: trunk | |
2011-08-11
| ||
01:45 | Merged in rollup runs to trunk. Actual rollup of runs not completed yet check-in: d7ffcddcac user: matt tags: trunk, v1.20 | |
Changes
Modified dashboard-tests.scm from [8ad286d847] to [46082f722f].
︙ | |||
327 328 329 330 331 332 333 | 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 | - + + + + + + + + + + + + + + + + + + + + + + + - - + + - - - - - - - + + + + + + + - + | #:title "Test Steps" (let ((stepsdat (iup:label "Test steps ........................................." #:expand "YES" #:size "200x150" #:alignment "ALEFT:ATOP"))) (hash-table-set! widgets "Test Steps" (lambda (testdat) (let* ((currval (iup:attribute stepsdat "TITLE")) |
︙ |
Modified db.scm from [062b6c7a79] to [04b9f6fc1e].
︙ | |||
411 412 413 414 415 416 417 418 419 420 421 422 423 424 | 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 | + + + + + + + | (define-inline (db:step-get-event_time vec) (vector-ref vec 5)) (define-inline (db:step-set-id! vec val)(vector-set! vec 0 val)) (define-inline (db:step-set-test_id! vec val)(vector-set! vec 1 val)) (define-inline (db:step-set-stepname! vec val)(vector-set! vec 2 val)) (define-inline (db:step-set-state! vec val)(vector-set! vec 3 val)) (define-inline (db:step-set-status! vec val)(vector-set! vec 4 val)) (define-inline (db:step-set-event_time! vec val)(vector-set! vec 5 val)) (define (db:step-get-time-as-string vec) (seconds->time-string (db:step-get-event_time vec))) (define (seconds->time-string sec) (time->string (seconds->local-time sec))) ;; db-get-test-steps-for-run (define (db:get-steps-for-test db test-id) (let ((res '())) (sqlite3:for-each-row (lambda (id test-id stepname state status event-time) (set! res (cons (vector id test-id stepname state status event-time) res))) |
︙ |