Megatest

Diff
Login

Differences From Artifact [a57aeeac0b]:

To Artifact [ecffa2c95e]:


462
463
464
465
466
467
468

469
470


471
472
473
474

475
476

477
478
479
480
481



482
483
484
485
486
487
488
489
490
491


492
493
494
495
496


497
498
499
500

501
502

503
504
505
506
507



508
509
510
511
512
513
514

515
516
517
518
519
520
521
522
523
524
525
526
462
463
464
465
466
467
468
469


470
471




472


473





474
475
476










477
478





479
480




481


482





483
484
485







486





487
488
489
490
491
492
493







+
-
-
+
+
-
-
-
-
+
-
-
+
-
-
-
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
+
+
-
-
-
-
+
-
-
+
-
-
-
-
-
+
+
+
-
-
-
-
-
-
-
+
-
-
-
-
-







	   ;; (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))
	   ;; (iup:button "Up     ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0))))
	   ;; (iup:button "Down   v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1)))))
	   ;; (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset*  (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0))))
	   (iup:frame 
	    #:title "hide"
	    (iup:vbox
	     (apply 
	     (iup:hbox
	      (iup:toggle "PASS"  #:action   (lambda (obj val)
	      iup:hbox
	      (map (lambda (status)
					       (if (eq? val 1)
						   (hash-table-set! *status-ignore-hash* "PASS" #t)
						   (hash-table-delete! *status-ignore-hash* "PASS"))))
	      (iup:toggle "FAIL"   #:action   (lambda (obj val)
		     (iup:toggle status  #:action   (lambda (obj val)
						(if (eq? val 1)
						    (hash-table-set! *status-ignore-hash* "FAIL" #t)
						      (set! *last-db-update-time* 0)
						    (hash-table-delete! *status-ignore-hash* "FAIL"))))
	      (iup:toggle "WARN"   #:action   (lambda (obj val)
						(if (eq? val 1)
						    (hash-table-set! *status-ignore-hash* "WARN" #t)
						    (hash-table-delete! *status-ignore-hash* "WARN"))))
						      (if (eq? val 1)
							  (hash-table-set! *status-ignore-hash* status #t)
							  (hash-table-delete! *status-ignore-hash* status)))))
	      (iup:toggle "CHECK"   #:action   (lambda (obj val)
                                                  (if (eq? val 1)
                                                      (hash-table-set! *status-ignore-hash* "CHECK" #t)
                                                      (hash-table-delete! *status-ignore-hash* "CHECK"))))
              (iup:toggle "WAIVED"   #:action   (lambda (obj val)
						  (if (eq? val 1)
						      (hash-table-set! *status-ignore-hash* "WAIVED" #t)
						      (hash-table-delete! *status-ignore-hash* "WAIVED"))))
	      (iup:toggle "STUCK/DEAD"   #:action   (lambda (obj val)
						  (if (eq? val 1)
	      '("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD")))
	     (apply 
						      (hash-table-set! *status-ignore-hash* "STUCK/DEAD" #t)
						      (hash-table-delete! *status-ignore-hash* "STUCK/DEAD"))))
	      )
	     (iup:hbox
	      (iup:toggle "RUNNING"   #:action   (lambda (obj val)
	      iup:hbox
	      (map (lambda (state)
						   (if (eq? val 1)
						       (hash-table-set! *state-ignore-hash* "RUNNING" #t)
						       (hash-table-delete! *state-ignore-hash* "RUNNING"))))
	      (iup:toggle "COMPLETED"   #:action   (lambda (obj val)
		     (iup:toggle state   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "COMPLETED" #t)
						      (set! *last-db-update-time* 0)
							 (hash-table-delete! *state-ignore-hash* "COMPLETED"))))
	      (iup:toggle "INCOMPLETE"   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "INCOMPLETE" #t)
							 (hash-table-delete! *state-ignore-hash* "INCOMPLETE"))))
						      (if (eq? val 1)
							  (hash-table-set! *state-ignore-hash* state #t)
							  (hash-table-delete! *state-ignore-hash* state)))))
	      (iup:toggle "LAUNCHED"   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "LAUNCHED" #t)
							 (hash-table-delete! *state-ignore-hash* "LAUNCHED"))))
	      (iup:toggle "NOT_STARTED"   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "NOT_STARTED" #t)
		   '("RUNNING" "COMPLETED" "INCOMPLETE" "LAUNCHED" "NOT_STARTED" "KILLED")))))
							 (hash-table-delete! *state-ignore-hash* "NOT_STARTED"))))
	      (iup:toggle "KILLED"   #:action   (lambda (obj val)
						  (if (eq? val 1)
						      (hash-table-set! *state-ignore-hash* "KILLED" #t)
						      (hash-table-delete! *state-ignore-hash* "KILLED")))))))
	   (iup:valuator #:valuechanged_cb (lambda (obj)
					     (let ((val (inexact->exact (round (+ 0.0 (string->number (iup:attribute obj "VALUE"))))))
						   (maxruns  *tot-run-count*)) ;;; (+ *num-runs* (length *allruns*))))
					       (set! *start-run-offset* val)
					       (set! *last-db-update-time* 0)
					       (debug:print 3 "maxruns: " maxruns ", val: " val)
					       (iup:attribute-set! obj "MAX" maxruns)))