Lines Matching full:formats

24 my @formats = qw(seed-priv priv-only seed-only oqskeypair bare-seed bare-priv);
29 plan tests => @algs * (23 + 10 * @formats);
37     my %formats = map { ($_, sprintf("prv-%s-%s.pem", $alg, $_)) } @formats;
42     # (1 + 6 * @formats) tests
48     foreach my $f (keys %formats) {
49         my $kf = $formats{$f};
50         my %pruned = %formats;
76     # (1 + 2 * @formats) tests
84     while (my ($f, $kf) = each %formats) {
99     ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
108         ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
115         ok(!compare_text(data_file($formats{'seed-priv'}), $seedfull),
123                 '-in', data_file($formats{'seed-only'}), '-out', $seedless])));
124     ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
131                     '-in', data_file($formats{'seed-only'}), '-out', $seedless])));
132         ok(!compare_text(data_file($formats{'priv-only'}), $seedless),
137                     '-in', data_file($formats{'seed-only'}), '-out', $seedfull])));
138         ok(!compare_text(data_file($formats{'seed-priv'}), $seedfull),
146                 '-in', data_file($formats{'seed-priv'}), '-out', $privpref])));
147     ok(!compare_text(data_file($formats{'priv-only'}), $privpref),
150     # (2 * @formats) tests
152     while (my ($f, $kf) = each %formats) {