diff --git a/travis.pl b/travis.pl index ba8b703d1..23e990e09 100644 --- a/travis.pl +++ b/travis.pl @@ -490,24 +490,39 @@ sub run_fast_regression_test{ $cmd = "sudo bash -c '. /etc/profile.d/xcat.sh && xcattest -s \"mn_only-wait_fix\" -l'"; - @output = runcmd("$cmd"); + my @caseslist = runcmd("$cmd"); if($::RUNCMD_RC){ print RED "[run_fast_regression_test] $cmd ....[Failed]\n"; print "[run_fast_regression_test] error dumper:\n"; - print Dumper \@output; + print Dumper \@caseslist; return 1; }else{ print "[run_fast_regression_test] $cmd .....:\n"; - print Dumper \@output; + print Dumper \@caseslist; } - my @caseslist = @output; - #This is a black list for CI test #It is useful for debug or development #please ignore during common work - #my @filter_cases=("testtest"); - #array_filter(\@caseslist, \@filter_cases); +# { +# sub array_filter { +# my $src_array_ref = shift; +# my $filter_array_ref = shift; +# +# my @left_array; +# foreach my $item (@{$src_array_ref}) { +# my $hit = 0; +# foreach my $f (@{$filter_array_ref}) { +# $hit = 1 if ($f eq $item); +# } +# push @left_array, $item unless ($hit); +# } +# @$src_array_ref = @left_array; +# } +# +# #my @filter_cases=("testtest"); +# #array_filter(\@caseslist, \@filter_cases); +# } my $casenum = @caseslist; my $x = 0; @@ -561,22 +576,6 @@ sub mark_time{ print "[mark_time] $nowtime_str, ElapsedTime of $func_name is $duration s\n"; } - -sub array_filter { - my $src_array_ref = shift; - my $filter_array_ref = shift; - - my @left_array; - foreach my $item (@{$src_array_ref}) { - my $hit = 0; - foreach my $f (@{$filter_array_ref}) { - $hit = 1 if ($f eq $item); - } - push @left_array, $item unless ($hit); - } - @$src_array_ref = @left_array; -} - #===============Main Process============================= #Dumper Travis Environment Attribute