Megatest

Changes On Branch 198b9ecb00e93919
Login

Changes In Branch ui-experiments Excluding Merge-Ins

This is equivalent to a diff from d73b2c1642 to 198b9ecb00

2011-06-27
21:52
Removed queuing behavior when in -keepgoing mode check-in: 1ea16b0407 user: mrwellan tags: trunk
10:04
UI speedup experiments Closed-Leaf check-in: 198b9ecb00 user: mrwellan tags: ui-experiments
2011-06-26
23:38
Merged refactor of dashboard to trunk check-in: d73b2c1642 user: mrwellan tags: trunk
23:37
refactor of dashboard completed, now for a redesign :) Closed-Leaf check-in: c6b6fec4f4 user: mrwellan tags: refactor-dashboard
2011-06-16
14:01
Added switch to set number of rows in a dashboard screen check-in: 4d44659fb3 user: mrwellan tags: trunk

Modified dashboard.scm from [0947d7ca7f] to [fd0adaeb5a].

411
412
413
414
415
416
417
418
419

420
421
422
423

424
425
426
427

428

429
430
431
432
433
434
435
    (set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))

(define uidat #f)
;; (megatest-dashboard)

(define (run-update mtx1)
  (let loop ((i 0))
    (thread-sleep! 0.05)
    (mutex-lock! mtx1)

    (update-buttons uidat *num-runs* *num-tests*)
    (mutex-unlock! mtx1)
    (iup:main-loop-flush)
    (mutex-lock! mtx1)

    (update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
		   (hash-table-ref/default *searchpatts* "test-name" "%")
		   (hash-table-ref/default *searchpatts* "item-name" "%"))
    (mutex-unlock! mtx1)

    (loop i)))


(define *job* #f)

(cond 
 ((args:get-arg "-run")
  (let ((runid (string->number (args:get-arg "-run"))))
    (if runid







|
|
>
|
|

|
>
|
|
|
|
>
|
>







411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
    (set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))

(define uidat #f)
;; (megatest-dashboard)

(define (run-update mtx1)
  (let loop ((i 0))
    (thread-sleep! 0.1)
    ;(mutex-lock! mtx1)
    (if (eq? 0 (modulo i 3))
	(update-buttons uidat *num-runs* *num-tests*))
    ;(mutex-unlock! mtx1)
    (iup:main-loop-flush)
    ;(mutex-lock! mtx1)
    (if (eq? 0 (modulo (+ 1 i) 5))
	(update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
		       (hash-table-ref/default *searchpatts* "test-name" "%")
		       (hash-table-ref/default *searchpatts* "item-name" "%")))
    ;(mutex-unlock! mtx1)
    (if (> i 1000)
	(loop 0)
	(loop (+ i 1)))))

(define *job* #f)

(cond 
 ((args:get-arg "-run")
  (let ((runid (string->number (args:get-arg "-run"))))
    (if runid