1#! /usr/bin/env perl
2# Copyright 2015-2016 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_rsa");
18
19plan tests => 6;
20
21require_ok(srctop_file('test','recipes','tconversion.pl'));
22
23ok(run(test(["rsa_test"])), "running rsatest");
24
25ok(run(app([ 'openssl', 'rsa', '-check', '-in', srctop_file('test', 'testrsa.pem'), '-noout'])), "rsa -check");
26
27 SKIP: {
28     skip "Skipping rsa conversion test", 3
29	 if disabled("rsa");
30
31     subtest 'rsa conversions -- private key' => sub {
32	 tconversion("rsa", srctop_file("test","testrsa.pem"));
33     };
34     subtest 'rsa conversions -- private key PKCS#8' => sub {
35	 tconversion("rsa", srctop_file("test","testrsa.pem"), "pkey");
36     };
37}
38
39 SKIP: {
40     skip "Skipping msblob conversion test", 1
41	 if disabled("rsa") || disabled("dsa");
42
43     subtest 'rsa conversions -- public key' => sub {
44	 tconversion("msb", srctop_file("test","testrsapub.pem"), "rsa",
45		     "-pubin", "-pubout");
46     };
47}
48