diff options
Diffstat (limited to 'compare_dg_tests.pl')
| -rwxr-xr-x | compare_dg_tests.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compare_dg_tests.pl b/compare_dg_tests.pl index aec9573..6fb37b1 100755 --- a/compare_dg_tests.pl +++ b/compare_dg_tests.pl @@ -185,6 +185,7 @@ my ($ref_file_name, $res_file_name); my $nounstable=0; my $unstablefile=0; my @unstable_markers=(); +my $ratio_thresh = 0.95; # Warn if pass ratio is below this threshold GetOptions ("l" => \$long, "s" => \$short, @@ -193,6 +194,7 @@ GetOptions ("l" => \$long, "dbg" => \$debug, "testroot=s" => \$testroot, "basename=s" => \$basename, + "pass-thresh=f" => \$ratio_thresh, "no-unstable" => \$nounstable, "unstable-tests=s" => \$unstablefile, "unstable-marker=s" => \@unstable_markers); @@ -538,7 +540,6 @@ sub print_compare_results_summary($$) my $ref_total = 0; my $res_ratio = 0; my $res_total = 0; - my $ratio_thresh = 0.95; # Warn if pass ratio is below this threshold my $ignore_exec = 0; my $ref_has_exec_tests = 0; my $res_has_exec_tests = 0; |