Colour code tests passing vs failing.

Use colour escape codes to colour code the [OK] vs [FAILED] output from
`test.pl`.

Author: thomasspriggs

regression/test.pl

@@ -155,7 +155,7 @@ ($$$$$$$$$)
     $failed = run($name, $input, $cmd, $options, $output);
 
     if(!$failed) {
-      print LOG "Execution [OK]\n";
+      print LOG "Execution [\e[92mOK\e[0m]\n";
       my $included = 1;
       foreach my $result (@results) {
         last if($included == -1);
@@ -203,15 +203,15 @@ ($$$$$$$$$)
 
 
           if($r) {
-            print LOG "$result [FAILED]\n";
+            print LOG "$result [\e[91mFAILED\e[0m]\n";
             $failed = 1;
           } else {
-            print LOG "$result [OK]\n";
+            print LOG "$result [\e[92mOK\e[0m]\n";
           }
         }
       }
     } else {
-      print LOG "Execution [FAILED]\n";
+      print LOG "Execution [\e[91mFAILED\e[0m]\n";
     }
   } else {
     print LOG "Execution [SKIPPED]\n";
@@ -358,10 +358,10 @@ ($)
       $skips++;
       print "  [SKIPPED]\n";
     } elsif(0 == $failed_skipped) {
-      print "  [OK] in $runtime seconds\n";
+      print "  [\e[92mOK\e[0m] in $runtime seconds\n";
     } else {
       $failures++;
-      print "  [FAILED]\n";
+      print "  [\e[91mFAILED\e[0m]\n";
     }
   }
 }
@@ -393,9 +393,9 @@ ($)
 print "\n";
 
 if($failures == 0) {
-  print "All tests were successful";
+  print "\e[92mAll tests were successful\e[0m";
 } else {
-  print "Tests failed\n";
+  print "\e[91mTests failed\e[0m\n";
   print "  $failures of $count " . (1==$count?"test":"tests") . " failed";
 }
 print ", $skips " . (1==$skips?"test":"tests") . " skipped" if($skips > 0);