arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

support for comment lines and print message with colors

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7661 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2010-09-27 03:01:14 +00:00
parent 0d797331ae
commit 2d8b3931ee
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
xCAT-test/xcattest
View File

@ -4,6 +4,7 @@ use strict;
use warnings;
use Getopt::Long;
use Data::Dumper;
use Term::ANSIColor;
BEGIN
{
@ -114,7 +115,14 @@ sub log_this
return;
}
print LOG join("\n", @_), "\n";
print join("\n", @_), "\n";
my $msg = join("\n", @_);
if ($msg =~ /\[Pass\]/) {
print color("green"), "$msg\n", color("reset");
} elsif ($msg =~ /\[Failed\]/) {
print color("red"), "$msg\n", color("reset");
} else {
print "$msg\n";
}
}
sub log_error
@ -434,7 +442,9 @@ sub loadcase
while($line=<FILE>){
$line = &trim($line);
next if(length($line) == 0);
#description line is only a comment
#skip comment lines
next if($line =~ /^\s*#/);
#TODO: description line is treated as a comment line for now
next if($line =~ /^description\s*:/);
if($line =~ /^start\s*:\s*(\w+)/){