[otrs-cvs] otrs/Kernel/System UnitTest.pm,1.66,1.67

Comments:
Update of /home/cvs/otrs/Kernel/System
In directory lancelot:/tmp/cvs-serv26560/Kernel/System

Modified Files:
	UnitTest.pm 
Log Message:
Added ANSI terminal coloring for the unit test result statuses.

Author: mg

Index: UnitTest.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/UnitTest.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -2 -u -d -r1.66 -r1.67
--- UnitTest.pm	20 Nov 2012 15:40:30 -0000	1.66
+++ UnitTest.pm	15 Jan 2013 10:17:54 -0000	1.67
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/UnitTest.pm - the global test wrapper
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -15,4 +15,6 @@
 use warnings;
 
+use Term::ANSIColor;
+
 use vars qw(@ISA $VERSION);
 $VERSION = qw($Revision$) [1];
@@ -903,5 +905,5 @@
         }
         elsif ( $Self->{Output} eq 'ASCII' ) {
-            print " ok $Self->{TestCount} - $Name\n";
+            print color('green') . " ok" . color('reset') . " $Self->{TestCount} - $Name\n";
         }
         $Self->{XML}->{Test}->{ $Self->{XMLUnit} }->{ $Self->{TestCount} }->{Result} = 'ok';
@@ -916,5 +918,5 @@
         }
         elsif ( $Self->{Output} eq 'ASCII' ) {
-            print " not ok $Self->{TestCount} - $Name\n";
+            print color('red') . " not ok" . color('reset') . " $Self->{TestCount} - $Name\n";
         }
         $Self->{XML}->{Test}->{ $Self->{XMLUnit} }->{ $Self->{TestCount} }->{Result} = 'not ok';
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log