@@ -155,7 +155,7 @@ ($$$$$$$$$)
155
155
$failed = run($name , $input , $cmd , $options , $output );
156
156
157
157
if (!$failed ) {
158
- print LOG " Execution [\e [92mOK \e [0m]\n " ;
158
+ print LOG " Execution [\e [32mOK \e [0m]\n " ;
159
159
my $included = 1;
160
160
foreach my $result (@results ) {
161
161
last if ($included == -1);
@@ -203,15 +203,15 @@ ($$$$$$$$$)
203
203
204
204
205
205
if ($r ) {
206
- print LOG " $result [\e [91mFAILED \e [0m]\n " ;
206
+ print LOG " $result [\e [31mFAILED \e [0m]\n " ;
207
207
$failed = 1;
208
208
} else {
209
- print LOG " $result [\e [92mOK \e [0m]\n " ;
209
+ print LOG " $result [\e [32mOK \e [0m]\n " ;
210
210
}
211
211
}
212
212
}
213
213
} else {
214
- print LOG " Execution [\e [91mFAILED \e [0m]\n " ;
214
+ print LOG " Execution [\e [31mFAILED \e [0m]\n " ;
215
215
}
216
216
} else {
217
217
print LOG " Execution [SKIPPED]\n " ;
@@ -358,10 +358,10 @@ ($)
358
358
$skips ++;
359
359
print " [SKIPPED]\n " ;
360
360
} elsif (0 == $failed_skipped ) {
361
- print " [\e [92mOK \e [0m] in $runtime seconds\n " ;
361
+ print " [\e [32mOK \e [0m] in $runtime seconds\n " ;
362
362
} else {
363
363
$failures ++;
364
- print " [\e [91mFAILED \e [0m]\n " ;
364
+ print " [\e [31mFAILED \e [0m]\n " ;
365
365
}
366
366
}
367
367
}
393
393
print " \n " ;
394
394
395
395
if ($failures == 0) {
396
- print " \e [92mAll tests were successful\e [0m" ;
396
+ print " \e [32mAll tests were successful\e [0m" ;
397
397
} else {
398
- print " \e [91mTests failed\e [0m\n " ;
398
+ print " \e [31mTests failed\e [0m\n " ;
399
399
print " $failures of $count " . (1==$count ?" test" :" tests" ) . " failed" ;
400
400
}
401
401
print " , $skips " . (1==$skips ?" test" :" tests" ) . " skipped" if ($skips > 0);
0 commit comments