Commit Diff


commit - 1041414ec4daa58723fd3837ef14d2be49d29d52
commit + 8e4033faa2a65945f3eef825447e1685d6b31def
blob - afeac218f30258a55bee4d871dfe9f926267cbe1
blob + aa59087be78be413b07f5af0ba3b78b914b8266a
--- exercise
+++ exercise
@@ -188,9 +188,10 @@ proc summary {counters} {
 
         # color
         if {[isatty stdout]} {
-            set notok [notok $counters]
+            set good [expr {$ok>0 && ![notok $counters]}]
 
-            if {!$notok}  {set o [color {1;32} $o]}     ;# bright green
+            if {$run==0}  {set r [color {31} $r]}       ;# dark red
+            if {$good}    {set o [color {1;32} $o]}     ;# bright green
             if {$fail>0}  {set f [color {1;31} $f]}     ;# bright red
             if {$error>0} {set e [color {31} $e]}       ;# dark red
         }