luke
/
iverilog
mirror of https://github.com/steveicarus/iverilog.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update the test files to return the number of failures

This commit is contained in:
Cary R 2024-08-16 17:56:06 -07:00
parent ff9a520742
commit cba2417db5
3 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ivtest/vlog95_reg.pl
View File

@ -4,7 +4,7 @@
#
# This script is based on code with the following Copyright.
#
# Copyright (c) 1999-2023 Guy Hutchison (ghutchis@pacbell.net)
# Copyright (c) 1999-2024 Guy Hutchison (ghutchis@pacbell.net)
#
# This source code is free software; you can redistribute it
# and/or modify it in source code form under the terms of the GNU
@ -55,9 +55,10 @@ if ($#ARGV != -1) {
&read_regression_list("regress-vhdl.list", $ver, $force_sv, "");
&read_regression_list("regress-synth.list", $ver, $force_sv, "-S");
}
&execute_regression($suffix, $with_valg);
my $failed = &execute_regression($suffix, $with_valg);
&close_report_file;
exit $failed;
#
# execute_regression sequentially compiles and executes each test in
@ -282,4 +283,6 @@ sub execute_regression {
&print_rpt("=" x 76 . "\n");
&print_rpt("Test results:\n Total=$total, Passed=$passed, Failed=$failed,".
" Not Implemented=$not_impl, Expected Fail=$expected_fail\n");
return $failed;
}

7
ivtest/vpi_reg.pl
View File

@ -56,7 +56,9 @@ my $msg = $with_valg ? " (with valgrind)" : "";
print ("Running VPI tests for Icarus Verilog version: $ver$msg.\n");
print "-" x 76 . "\n";
&read_regression_list;
&execute_regression;
my $failed = &execute_regression;
exit $failed;
#
# parses the regression list file
@ -236,7 +238,8 @@ sub execute_regression {
print "=" x 76 . "\n";
print "Test results: Total=$total, Passed=$passed, Failed=$failed,".
" Not Implemented=$not_impl\n";
exit $failed;
return $failed;
}
#

6
ivtest/vvp_reg.pl
View File

@ -4,7 +4,7 @@
#
# This script is based on code with the following Copyright.
#
# Copyright (c) 1999-2023 Guy Hutchison (ghutchis@pacbell.net)
# Copyright (c) 1999-2024 Guy Hutchison (ghutchis@pacbell.net)
#
# This source code is free software; you can redistribute it
# and/or modify it in source code form under the terms of the GNU
@ -58,7 +58,7 @@ if ($#ARGV != -1) {
&read_regression_list("regress-synth.list", $ver, $force_sv, "-S");
}
}
$failed = &execute_regression($suffix, $strict, $with_valg);
my $failed = &execute_regression($suffix, $strict, $with_valg);
&close_report_file;
exit $failed;
@ -254,5 +254,5 @@ sub execute_regression {
# Remove remaining temporary files
system("rm -f *.tmp ivltests/*.tmp");
return($failed)
return $failed;
}