Megatest

Changes On Branch 92e21f36b62de278
Login

Changes In Branch html-gen Through [92e21f36b6] Excluding Merge-Ins

This is equivalent to a diff from 5972048eaa to 92e21f36b6

2017-02-15
10:31
dynamic web support for megatest check-in: 29b0cd4b3f user: pjhatwal tags: html-gen
2017-02-10
15:01
Added wildcards to config processing. Made ini the default for dumping runconfigs check-in: 4f34e9ebdb user: mrwellan tags: v1.63
2017-02-09
21:02
Merged v1.63 to trunk check-in: 31e9f07df0 user: matt tags: trunk
14:58
merged with 1.63 check-in: 92e21f36b6 user: pjhatwal tags: html-gen
14:49
added links to static html to point to logs check-in: a14f319e40 user: pjhatwal tags: html-gen
2017-02-08
22:58
Added start of prototype run manager check-in: 5b7b453cb7 user: matt tags: run-mgr
17:06
added ducttape-lib installation check-in: 5972048eaa user: bjbarcla tags: v1.63
15:38
updates to installall.sh check-in: 64286781e8 user: bjbarcla tags: v1.63

Modified tests.scm from [e19b1bb1d2] to [d009ac4bdc].

772
773
774
775
776
777
778
779
780

781
782
783
784
785
786
787
788
789
790
791
792
  		                             (let* ((res (s:tr  'class item-name
				                         (s:td  item-name 'class "test" )
                                                           (map (lambda (run)
                                                               (let* ((run-test (hash-table-ref/default item-hash item-name  #f))
                                                                      (run-id (db:get-value-by-header run header "id"))
                                                                      (result (hash-table-ref/default run-test run-id "n/a"))
                                                                      (status (if (string? result)
                                                                                 (begin 
                                                                                  ; (print "string" result)

                                                                                     result)
                                                                                 (begin 
                                                                                   ;  (print "not string" result )
                                                                                 (car result)))))
                                                                       (s:td  status 'class status)))
                                                                runs))))
                                                        res))
                                                   item-keys)))
                               test-list)))))
          (close-output-port oup)
         ; (set! page (+ 1 page))
          (if (> total-runs (* (+ 1 page) pg-size))







|
|
>
|
<
<
|
|







772
773
774
775
776
777
778
779
780
781
782


783
784
785
786
787
788
789
790
791
  		                             (let* ((res (s:tr  'class item-name
				                         (s:td  item-name 'class "test" )
                                                           (map (lambda (run)
                                                               (let* ((run-test (hash-table-ref/default item-hash item-name  #f))
                                                                      (run-id (db:get-value-by-header run header "id"))
                                                                      (result (hash-table-ref/default run-test run-id "n/a"))
                                                                      (status (if (string? result)
										result
										(car result)))
                                                                        (link (if (string? result)
										result


										(s:a (car result) 'href (cadr result)))))
                                                                       (s:td  link 'class status)))
                                                                runs))))
                                                        res))
                                                   item-keys)))
                               test-list)))))
          (close-output-port oup)
         ; (set! page (+ 1 page))
          (if (> total-runs (* (+ 1 page) pg-size))