Lines Matching +full:sub +full:- +full:group
3 # SPDX-License-Identifier: MIT
27 # format that can be consumed more easily by tests/zfs-tests/cmd/crypto_test.
28 # See tests/zfs-tests/tests/functional/crypto/README for more info.
36 sub usage {
54 my $version = $data->{generatorVersion} // "[unknown]";
55 if ("$version" !~ m/^0\.9[^0-9]/) {
63 my $schema = $data->{schema} // "[unknown]";
72 my $algorithm = $data->{algorithm};
79 $ntests += $_ for map { scalar @{$_->{tests}} } @{$data->{testGroups}};
80 if (!exists $data->{numberOfTests}) {
82 } elsif ($data->{numberOfTests} != $ntests) {
84 "W: input file has incorrect test count: $data->{numberOfTests}\n".
109 for my $group (@{$data->{testGroups}}) {
110 # skip non-AEAD test groups
111 my $type = $group->{type} // "[unknown]";
113 warn "W: group has unexpected type '$type', skipping it\n";
114 $skipped += @{$data->{tests}};
119 @$group{qw(ivSize keySize tagSize)};
142 for my $test (@{$group->{tests}}) {
147 # group params.
155 # sanity check; tag must have the length declared by the group
167 if ($test->{flags}) {
168 $flags = join(' ', sort @{$test->{flags}});
189 $ntests -= $skipped;
233 sub length_check {