Index: docs/manual/megatest_manual.html ================================================================== --- docs/manual/megatest_manual.html +++ docs/manual/megatest_manual.html @@ -1232,11 +1232,12 @@

Override the Toplevel HTML File

Megatest generates a simple html file summary for top level tests of -iterated tests. The generation can be overridden.

+iterated tests. The generation can be overridden. NOTE: the output of +the script is captured from stdout to create the html.

For test "runfirst" override the toplevel generation with a script "mysummary.sh"
# Override the rollup for specific tests
 [testrollup]

Index: docs/manual/reference.txt
==================================================================
--- docs/manual/reference.txt
+++ docs/manual/reference.txt
@@ -229,11 +229,13 @@
 
 Override the Toplevel HTML File
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
 Megatest generates a simple html file summary for top level tests of
-iterated tests. The generation can be overridden.
+iterated tests. The generation can be overridden. NOTE: the output of
+the script is captured from stdout to create the html.
+
 
 .For test "runfirst" override the toplevel generation with a script "mysummary.sh"
 -----------------
 # Override the rollup for specific tests
 [testrollup]

Index: gutils.scm
==================================================================
--- gutils.scm
+++ gutils.scm
@@ -22,27 +22,33 @@
 	 (delta (map (lambda (a b)(abs (- a b))) c1 c2)))
     (null? (filter (lambda (x)(> x 3)) delta))))
 
 (define (gutils:get-color-for-state-status state status);; #!key (get-label #f))
   ;; ((if get-label cadr car)
-   (case (string->symbol state)
-     ((COMPLETED ARCHIVED)
-      (case (string->symbol status)
-	((PASS)        (list "70  249 73" status))
-	((WARN WAIVED) (list "255 172 13" status))
-	((SKIP)        (list "230 230 0" status))
-	(else (list "223 33 49" status))))
-     ;;      (if (equal? status "PASS")
-     ;;	  '("70 249 73" "PASS")
-     ;;	  (if (or (equal? status "WARN")
-     ;;		  (equal? status "WAIVED"))
-     ;;	      (list "255 172 13" status)
-     ;;	      (list "223 33 49"  status)))) ;; greenish orangeish redish
-     ((LAUNCHED)         (list "101 123 142"  state))
-     ((CHECK)            (list "255 100 50"   state))
-     ((REMOTEHOSTSTART)  (list "50 130 195"   state))
-     ((RUNNING)          (list "9 131 232"    state))
-     ((KILLREQ)          (list "39 82 206"    state))
-     ((KILLED)           (list "234 101 17"   state))
-     ((NOT_STARTED)      (list "240 240 240"  state))
-     (else               (list "192 192 192"  state))))
+  (case (string->symbol state)
+    ((COMPLETED) ;; ARCHIVED)
+     (case (string->symbol status)
+       ((PASS)        (list "70  249 73" status))
+       ((WARN WAIVED) (list "255 172 13" status))
+       ((SKIP)        (list "230 230 0" status))
+       (else (list "253 33 49" status))))
+    ((ARCHIVED)
+     (case (string->symbol status)
+       ((PASS)        (list "70  170 73" status))
+       ((WARN WAIVED) (list "200 130 13" status))
+       ((SKIP)        (list "180 180 0" status))
+       (else (list "180 33 49" status))))
+    ;;      (if (equal? status "PASS")
+    ;;	  '("70 249 73" "PASS")
+    ;;	  (if (or (equal? status "WARN")
+    ;;		  (equal? status "WAIVED"))
+    ;;	      (list "255 172 13" status)
+    ;;	      (list "223 33 49"  status)))) ;; greenish orangeish redish
+    ((LAUNCHED)         (list "101 123 142"  state))
+    ((CHECK)            (list "255 100 50"   state))
+    ((REMOTEHOSTSTART)  (list "50 130 195"   state))
+    ((RUNNING)          (list "9 131 232"    state))
+    ((KILLREQ)          (list "39 82 206"    state))
+    ((KILLED)           (list "234 101 17"   state))
+    ((NOT_STARTED)      (list "240 240 240"  state))
+    (else               (list "192 192 192"  state))))
 

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -211,10 +211,13 @@
 plain hosts: xena, phoebe
 strong command: NBFAKE_HOST=zeus nbfake
 arm hosts: cubian
 
 [archive]
+
+# where to get bup executable
+# bup /path/to/bup
 
 # use machines of these flavor
 useflavors plain
 targsize 2G