eden-emu/mbedtls
15
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #6403 from mpg/print-failed-suites

Browse source 
Print the list of failed suites in verbose mode
This commit is contained in:
Manuel Pégourié-Gonnard 2022-10-13 09:59:45 +02:00 • committed by GitHub
commit 2aa5af9bec
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tests/scripts/run-test-suites.pl
View file

@ -74,7 +74,7 @@ $ENV{'DYLD_LIBRARY_PATH'} = '../library';
my $prefix = $^O eq "MSWin32" ? '' : './'; my $prefix = $^O eq "MSWin32" ? '' : './';
my ($failed_suites, $total_tests_run, $failed, $suite_cases_passed, my (@failed_suites, $total_tests_run, $failed, $suite_cases_passed,
$suite_cases_failed, $suite_cases_skipped, $total_cases_passed, $suite_cases_failed, $suite_cases_skipped, $total_cases_passed,
$total_cases_failed, $total_cases_skipped ); $total_cases_failed, $total_cases_skipped );
my $suites_skipped = 0; my $suites_skipped = 0;
@ -112,7 +112,7 @@ for my $suite (@suites)
pad_print_center( 72, '-', "End $suite" ); pad_print_center( 72, '-', "End $suite" );
} }
} else { } else {
$failed_suites++; push @failed_suites, $suite;
print "FAIL\n"; print "FAIL\n";
if( $verbose ) { if( $verbose ) {
pad_print_center( 72, '-', "Begin $suite" ); pad_print_center( 72, '-', "Begin $suite" );
@ -139,12 +139,17 @@ for my $suite (@suites)
} }
print "-" x 72, "\n"; print "-" x 72, "\n";
print $failed_suites ? "FAILED" : "PASSED"; print @failed_suites ? "FAILED" : "PASSED";
printf( " (%d suites, %d tests run%s)\n", printf( " (%d suites, %d tests run%s)\n",
scalar(@suites) - $suites_skipped, scalar(@suites) - $suites_skipped,
$total_tests_run, $total_tests_run,
$suites_skipped ? ", $suites_skipped suites skipped" : "" ); $suites_skipped ? ", $suites_skipped suites skipped" : "" );
if( $verbose && @failed_suites ) {
# the output can be very long, so provide a summary of which suites failed
print " failed suites : @failed_suites\n";
}
if( $verbose > 1 ) { if( $verbose > 1 ) {
print " test cases passed :", $total_cases_passed, "\n"; print " test cases passed :", $total_cases_passed, "\n";
print " failed :", $total_cases_failed, "\n"; print " failed :", $total_cases_failed, "\n";
@ -159,5 +164,5 @@ if( $verbose > 1 ) {
} }
} }
exit( $failed_suites ? 1 : 0 ); exit( @failed_suites ? 1 : 0 );