1#! /usr/bin/env perl 2# Copyright 2015-2018 The OpenSSL Project Authors. All Rights Reserved. 3# 4# Licensed under the OpenSSL license (the "License"). You may not use 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 9 10use strict; 11use warnings; 12 13use File::Spec; 14use OpenSSL::Test qw/:DEFAULT srctop_file/; 15use OpenSSL::Test::Utils; 16 17setup("test_dsa"); 18 19plan tests => 6; 20 21require_ok(srctop_file('test','recipes','tconversion.pl')); 22 23ok(run(test(["dsatest"])), "running dsatest"); 24ok(run(test(["dsa_no_digest_size_test"])), "running dsa_no_digest_size_test"); 25 26 SKIP: { 27 skip "Skipping dsa conversion test", 3 28 if disabled("dsa"); 29 30 subtest 'dsa conversions -- private key' => sub { 31 tconversion("dsa", srctop_file("test","testdsa.pem")); 32 }; 33 subtest 'dsa conversions -- private key PKCS#8' => sub { 34 tconversion("dsa", srctop_file("test","testdsa.pem"), "pkey"); 35 }; 36 subtest 'dsa conversions -- public key' => sub { 37 tconversion("msb", srctop_file("test","testdsapub.pem"), "dsa", 38 "-pubin", "-pubout"); 39 }; 40} 41