mirrors-yuzu-emu/mbedtls
1
0
Fork 0
mirror of https://github.com/yuzu-emu/mbedtls synced 2024-11-24 14:38:39 +00:00
Code Issues Projects Releases Packages Wiki Activity

test: Enable multiple levels of verbosity

Browse source 
Enable passing a number to "-v" in order to set the level of verbosity.
Print detailed test failure information at verbosity level 1 or higher.
Display summary messages at the verbosity level 2 or higher. Print
detailed test information at verbosity level 3 or higher, whether the
test failed or not. This enables a more readable output style that
includes detailed failure information when a failure occurs.
This commit is contained in:
Jaeden Amero 2018-10-05 13:23:35 +01:00
parent f4b521dd10
commit 8396a71449
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -26,8 +26,8 @@ use open qw(:std utf8);
use Getopt::Long; use Getopt::Long;
my $verbose; my $verbose = 0;
GetOptions( "verbose|v" => \$verbose ); GetOptions( "verbose|v:1" => \$verbose );
# All test suites = executable files, excluding source files, debug # All test suites = executable files, excluding source files, debug
# and profiling information, etc. We can't just grep {! /\./} because # and profiling information, etc. We can't just grep {! /\./} because
@ -67,6 +67,11 @@ for my $suite (@suites)
if( $result =~ /PASSED/ ) { if( $result =~ /PASSED/ ) {
print "PASS\n"; print "PASS\n";
if( $verbose > 2 ) {
pad_print_center( 72, '-', "Begin $suite" );
print $result;
pad_print_center( 72, '-', "End $suite" );
}
} else { } else {
$failed_suites++; $failed_suites++;
print "FAIL\n"; print "FAIL\n";
@ -80,7 +85,7 @@ for my $suite (@suites)
my ($passed, $tests, $skipped) = $result =~ /([0-9]*) \/ ([0-9]*) tests.*?([0-9]*) skipped/; my ($passed, $tests, $skipped) = $result =~ /([0-9]*) \/ ([0-9]*) tests.*?([0-9]*) skipped/;
$total_tests_run += $tests - $skipped; $total_tests_run += $tests - $skipped;
if ( $verbose ) { if( $verbose > 1 ) {
print "(test cases passed:", $suite_cases_passed, print "(test cases passed:", $suite_cases_passed,
" failed:", $suite_cases_failed, " failed:", $suite_cases_failed,
" skipped:", $suite_cases_skipped, " skipped:", $suite_cases_skipped,
@ -98,7 +103,7 @@ print "-" x 72, "\n";
print $failed_suites ? "FAILED" : "PASSED"; print $failed_suites ? "FAILED" : "PASSED";
printf " (%d suites, %d tests run)\n", scalar @suites, $total_tests_run; printf " (%d suites, %d tests run)\n", scalar @suites, $total_tests_run;
if ( $verbose ) { 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";
print " skipped :", $total_cases_skipped, "\n"; print " skipped :", $total_cases_skipped, "\n";