]>
Commit | Line | Data |
---|---|---|
596d6b7e | 1 | #! /usr/bin/env perl |
1212818e | 2 | # Copyright 2015-2018 The OpenSSL Project Authors. All Rights Reserved. |
596d6b7e | 3 | # |
909f1a2e | 4 | # Licensed under the Apache License 2.0 (the "License"). You may not use |
596d6b7e RS |
5 | # this file except in compliance with the License. You can obtain a copy |
6 | # in the file LICENSE in the source distribution or at | |
7 | # https://www.openssl.org/source/license.html | |
8 | ||
0c85cc50 RL |
9 | |
10 | use strict; | |
11 | use warnings; | |
12 | ||
13 | use File::Spec; | |
42e0ccdf | 14 | use OpenSSL::Test qw/:DEFAULT srctop_file/; |
340166a9 | 15 | use OpenSSL::Test::Utils; |
0c85cc50 RL |
16 | |
17 | setup("test_dsa"); | |
18 | ||
c15c538a RL |
19 | plan skip_all => 'DSA is not supported in this build' if disabled('dsa'); |
20 | plan tests => 7; | |
21 | ||
42e0ccdf | 22 | require_ok(srctop_file('test','recipes','tconversion.pl')); |
0c85cc50 | 23 | |
b0cfe526 P |
24 | ok(run(test(["dsatest"])), "running dsatest"); |
25 | ok(run(test(["dsa_no_digest_size_test"])), | |
26 | "running dsa_no_digest_size_test"); | |
27 | ||
28 | subtest "dsa conversions using 'openssl dsa' -- private key" => sub { | |
29 | tconversion("dsa", srctop_file("test","testdsa.pem")); | |
30 | }; | |
31 | subtest "dsa conversions using 'openssl dsa' -- public key" => sub { | |
32 | tconversion("msb", srctop_file("test","testdsapub.pem"), "dsa", | |
33 | "-pubin", "-pubout"); | |
34 | }; | |
c15c538a RL |
35 | |
36 | subtest "dsa conversions using 'openssl pkey' -- private key PKCS#8" => sub { | |
37 | tconversion("dsa", srctop_file("test","testdsa.pem"), "pkey"); | |
38 | }; | |
39 | subtest "dsa conversions using 'openssl pkey' -- public key" => sub { | |
40 | tconversion("dsa", srctop_file("test","testdsapub.pem"), "pkey", | |
41 | "-pubin", "-pubout"); | |
42 | }; |