Lines Matching full:formats

24 my @formats = qw(seed-priv priv-only seed-only oqskeypair bare-seed bare-priv);
29 plan tests => @algs * (25 + 10 * @formats);
36     my %formats = map { ($_, sprintf("prv-%s-%s.pem", $alg, $_)) } @formats;
38     # (1 + 6 * @formats) tests
44     foreach my $f (keys %formats) {
45         my $k = $formats{$f};
46         my %pruned = %formats;
72     # (3 + 2 * @formats) tests
86     while (my ($f, $k) = each %formats) {
101     ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
110         ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
117         ok(!compare_text(data_file($formats{'seed-priv'}), $seedfull),
125                 '-in', data_file($formats{'seed-only'}), '-out', $seedless])));
126     ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
133                     '-in', data_file($formats{'seed-only'}), '-out', $seedless])));
134         ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
139                     '-in', data_file($formats{'seed-only'}), '-out', $seedfull])));
140         ok(!compare_text(data_file($formats{'seed-priv'}), $seedfull),
148                 '-in', data_file($formats{'seed-priv'}), '-out', $privpref])));
149     ok(!compare_text(data_file($formats{'priv-only'}), $privpref),
152     # (2 * @formats) tests
154     while (my ($f, $k) = each %formats) {