wycheproof: make failfast mode the default
Add -C for "Continue running after failure".
This commit is contained in:
parent
9c76a90301
commit
df532c57f4
@ -12,7 +12,7 @@ sub slurp ($fh) { local $/; <$fh> }
|
|||||||
|
|
||||||
sub usage ()
|
sub usage ()
|
||||||
{
|
{
|
||||||
say STDERR "Usage: $progname [-Fv] -x runner json_file ",
|
say STDERR "Usage: $progname [-Cv] -x runner json_file ",
|
||||||
"[json_files ...]";
|
"[json_files ...]";
|
||||||
exit 1;
|
exit 1;
|
||||||
}
|
}
|
||||||
@ -22,7 +22,7 @@ sub main ()
|
|||||||
my %opts;
|
my %opts;
|
||||||
my $rc = 0;
|
my $rc = 0;
|
||||||
|
|
||||||
getopts("Fvx:", \%opts) && @ARGV > 0 or usage;
|
getopts("Cvx:", \%opts) && @ARGV > 0 or usage;
|
||||||
usage unless defined $opts{"x"};
|
usage unless defined $opts{"x"};
|
||||||
|
|
||||||
for my $f (@ARGV) {
|
for my $f (@ARGV) {
|
||||||
@ -57,7 +57,7 @@ sub main ()
|
|||||||
"$test->{comment} [",
|
"$test->{comment} [",
|
||||||
join(",", $test->{flags}->@*),
|
join(",", $test->{flags}->@*),
|
||||||
"]";
|
"]";
|
||||||
exit 1 if $opts{"F"};
|
exit 1 unless $opts{"C"};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -12,7 +12,7 @@ sub slurp ($fh) { local $/; <$fh> }
|
|||||||
|
|
||||||
sub usage ()
|
sub usage ()
|
||||||
{
|
{
|
||||||
say STDERR "Usage: $progname [-Fv] -x runner json_file ",
|
say STDERR "Usage: $progname [-Cv] -x runner json_file ",
|
||||||
"[json_files ...]";
|
"[json_files ...]";
|
||||||
exit 1;
|
exit 1;
|
||||||
}
|
}
|
||||||
@ -22,7 +22,7 @@ sub main ()
|
|||||||
my %opts;
|
my %opts;
|
||||||
my $rc = 0;
|
my $rc = 0;
|
||||||
|
|
||||||
getopts("Fvx:", \%opts) && @ARGV > 0 or usage;
|
getopts("Cvx:", \%opts) && @ARGV > 0 or usage;
|
||||||
usage unless defined $opts{"x"};
|
usage unless defined $opts{"x"};
|
||||||
|
|
||||||
for my $f (@ARGV) {
|
for my $f (@ARGV) {
|
||||||
@ -53,7 +53,7 @@ sub main ()
|
|||||||
"$test->{comment} [",
|
"$test->{comment} [",
|
||||||
join(",", $test->{flags}->@*),
|
join(",", $test->{flags}->@*),
|
||||||
"]";
|
"]";
|
||||||
exit 1 if $opts{"F"};
|
exit 1 unless $opts{"C"};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user