Index: openacs-4/packages/acs-automated-testing/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.adp,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-automated-testing/www/admin/index.adp	1 Dec 2017 17:59:07 -0000	1.19
+++ openacs-4/packages/acs-automated-testing/www/admin/index.adp	19 Jul 2018 13:10:12 -0000	1.20
@@ -105,6 +105,7 @@
         <th>Testcases run</th>
         <th>Passes</th>
         <th>Fails</th>
+        <th>Warnings</th>
         <th>Result</th>
     </tr>
     <multiple name="packageinfo">
@@ -124,10 +125,15 @@
           <td align="right"> @packageinfo.total@ </td>
           <td align="right"> @packageinfo.passes@ </td>
           <td align="right"> @packageinfo.fails@ </td>
+          <td align="right"> @packageinfo.warnings@ </td>
           <td align="right">
             <if @packageinfo.fails@ gt 0>
                <span style="background-color: red; color: white; font-weight: bold;">FAILED</span>
-            </if><else>
+            </if>
+            <elseif @packageinfo.warnings@ gt 0>
+              <span style="background-color: yellow; font-weight: bold;">WARNING</span>
+            </elseif>
+            <else>
               OK
             </else>
           </td>
@@ -146,10 +152,11 @@
         <th>Timestamp</th>
         <th>Passes</th>
         <th>Fails</th>
+        <th>Warnings</th>
     </tr>
     <multiple name="tests">
       <if @tests.marker;literal@ true>
-        <tr><td colspan="8" align="center" bgcolor="#c0f0c0"><strong>@tests.package_key@</strong></td></tr>
+        <tr><td colspan="9" align="center" bgcolor="#c0f0c0"><strong>@tests.package_key@</strong></td></tr>
       </if>
         <if @tests.rownum@ odd>
           <tr class="odd">
@@ -170,13 +177,18 @@
           <td>
             <if @tests.fails@ gt 0>
                <span style="background-color: red; color: white; font-weight: bold; padding: 4px;">FAILED</span>
-            </if><else>
+            </if>
+            <elseif @tests.warnings@ gt 0>
+               <span style="background-color: yellow; font-weight: bold; padding: 4px;">WARNING</span>
+            </elseif>
+            <else>
               OK
             </else>
           </td>
           <td> @tests.timestamp@ </td>
           <td align="right"> @tests.passes@ </td>
           <td align="right"> @tests.fails@ </td>
+          <td align="right"> @tests.warnings@ </td>
         </else>
       </tr>
     </multiple>
Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	16 May 2018 22:04:59 -0000	1.15
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	19 Jul 2018 13:10:12 -0000	1.16
@@ -36,44 +36,52 @@
     lassign $testcase testcase_id testcase_desc . package_key categories
 
     set results($testcase_id,$package_key) [list $testcase_desc $package_key $categories]
-    set packages($package_key) [list 0 0 0]
+    set packages($package_key) [list 0 0 0 0]
 }
 
 db_foreach acs-automated-testing.results_queryx {
     select
-       testcase_id, package_key,
-       to_char(timestamp,'YYYY-MM-DD_HH24:MI:SS') as timestamp,
-       passes, fails
-    from aa_test_final_results
+       fr.testcase_id,
+       fr.package_key,
+       to_char(fr.timestamp,'YYYY-MM-DD_HH24:MI:SS') as timestamp,
+       fr.passes,
+       fr.fails,
+       sum(case when r.result = 'warn' then 1 else 0 end) as warnings
+    from aa_test_final_results fr,
+         aa_test_results r
+     where fr.testcase_id = r.testcase_id
+     group by 1, 2, 3, 4, 5
 } {
     if {[info exists results($testcase_id,$package_key)]} {
         # Append results to individual testcase
-        lappend results($testcase_id,$package_key) $timestamp $passes $fails
+        lappend results($testcase_id,$package_key) $timestamp $passes $fails $warnings
 
         #
         # If viewing by package, update the by-package results, taking into
         # account whether a specific category has been specified.
         #
         if {$view_by eq "package"} {
-            lassign $packages($package_key) package_total package_pass package_fail
+            lassign $packages($package_key) package_total package_pass package_fail package_warnings
             if {$by_category ne ""} {
                 # Category specific, only add results if this testcase is of the
                 # specified category.
                 set categories  [lindex $results($testcase_id,$package_key) 2]
                 if {$by_category in $categories} {
                     incr package_total
-                    incr package_pass $passes
-                    incr package_fail $fails
+                    incr package_pass     $passes
+                    incr package_fail     $fails
+                    incr package_warnings $warnings
                     set packages($package_key) \
-                        [list $package_total $package_pass $package_fail]
+                        [list $package_total $package_pass $package_fail $package_warnings]
                 }
             } else {
                 # No category specified, add results.
                 incr package_total
-                incr package_pass $passes
-                incr package_fail $fails
+                incr package_pass     $passes
+                incr package_fail     $fails
+                incr package_warnings $warnings
                 set packages($package_key) \
-                    [list $package_total $package_pass $package_fail]
+                    [list $package_total $package_pass $package_fail $package_warnings]
             }
         }
     }
@@ -83,25 +91,25 @@
     #
     # Prepare the template data for a view_by "package"
     #
-    template::multirow create packageinfo key total passes fails
+    template::multirow create packageinfo key total passes fails warnings
     foreach package_key [lsort [array names packages]] {
         #ns_log notice "view_by $view_by package_key=$package_key"
-        lassign $packages($package_key) total passes fails
-        template::multirow append packageinfo $package_key $total $passes $fails
+        lassign $packages($package_key) total passes fails warnings
+        template::multirow append packageinfo $package_key $total $passes $fails $warnings
     }
 } else {
     #
     # Prepare the template data for a view_by "testcase"
     #
     template::multirow create tests id url description package_key categories \
-        timestamp passes fails marker
+        timestamp passes fails warnings marker
     set old_package_key ""
     foreach testcase [lsort [nsv_get aa_test cases]] {
         set testcase_id [lindex $testcase 0]
         set package_key [lindex $testcase 3]
 
         lassign $results($testcase_id,$package_key) testcase_desc . categories \
-            testcase_timestamp testcase_passes testcase_fails
+            testcase_timestamp testcase_passes testcase_fails testcase_warnings
 
         regexp {^(.+?\.)\s} $testcase_desc "" testcase_desc
         set categories_str     [join $categories ", "]
@@ -130,7 +138,7 @@
                 $package_key \
                 $categories_str \
                 $testcase_timestamp \
-                $testcase_passes $testcase_fails \
+                $testcase_passes $testcase_fails $testcase_warnings \
                 $marker
         }
     }