Lucas/lilcrypto
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wycheproof: make failfast mode the default

Browse source 
Add -C for "Continue running after failure".
This commit is contained in:
Lucas Gabriel Vuotto 2024-06-08 13:44:18 +00:00
parent 9c76a90301
commit df532c57f4
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
wycheproof/aead.pl
View file

@ -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"};
} }
} }
} }

6
wycheproof/mac.pl
View file

@ -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"};
} }
} }
} }