##############################################################
my $dejagnu = ReadFile $DejagnuSum;
my @DEJAGNU = split "\n", $dejagnu;
+my $dejagnu_test_list="";
my $passes="",
my $fails="";
for($x=0; $x<@DEJAGNU; $x++){
if($DEJAGNU[$x] =~ m/^PASS:/){
$passes.="$DEJAGNU[$x]\n";
+ $dejagnu_test_list="$DEJAGNU[$x]\n";
}
elsif($DEJAGNU[$x] =~ m/^FAIL:/){
$fails.="$DEJAGNU[$x]\n";
+ $dejagnu_test_list="$DEJAGNU[$x]\n";
}
elsif($DEJAGNU[$x] =~ m/^XFAIL:/){
$xfails.="$DEJAGNU[$x]\n";
+ $dejagnu_test_list="$DEJAGNU[$x]\n";
}
}
}
'passing_tests' => $passes,
'expfail_tests' => $xfails,
'unexpfail_tests' => $fails,
- 'all_tests' => $all_tests,
+ 'all_tests' => $dejagnu_test_list,
'new_tests' => "",
'removed_tests' => "",
'dejagnutests_log' => $dejagnutests_log,