提交 0c85cc50 编写于 作者: R Richard Levitte

Add asymetric cipher test recipes

Some of them make use of recipes/tconversion.pl.
Reviewed-by: NRich Salz <rsalz@openssl.org>
上级 904ae334
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_dh");
plan tests => 1;
ok(run(test(["dhtest"])), "running dhtest");
#! /usr/bin/perl
use strict;
use warnings;
use File::Spec;
use Test::More;
use OpenSSL::Test qw/:DEFAULT top_file/;
setup("test_dsa");
plan tests => 6;
require_ok(top_file('test','recipes','tconversion.pl'));
ok(run(test(["dsatest"])), "running dsatest");
ok(run(test(["dsatest", "-app2_1"])), "running dsatest -app2_1");
SKIP: {
skip "Skipping dsa conversion test", 3
if run(app(["openssl","no-dsa"], stdout => undef));
subtest 'dsa conversions -- private key' => sub {
tconversion("dsa", top_file("test","testdsa.pem"));
};
subtest 'dsa conversions -- private key PKCS#8' => sub {
tconversion("dsa", top_file("test","testdsa.pem"), "pkey");
};
subtest 'dsa conversions -- public key' => sub {
tconversion("dsa", top_file("test","testdsapub.pem"), "dsa",
"-pubin", "-pubout");
};
}
#! /usr/bin/perl
use strict;
use warnings;
use File::Spec;
use Test::More;
use OpenSSL::Test qw/:DEFAULT top_file/;
setup("test_ec");
plan tests => 5;
require_ok(top_file('test','recipes','tconversion.pl'));
ok(run(test(["ectest"])), "running ectest");
SKIP: {
skip "Skipping ec conversion test", 3
if run(app(["openssl","no-ec"], stdout => undef));
subtest 'ec conversions -- private key' => sub {
tconversion("ec", top_file("test","testec-p256.pem"));
};
subtest 'ec conversions -- private key PKCS#8' => sub {
tconversion("ec", top_file("test","testec-p256.pem"), "pkey");
};
subtest 'ec conversions -- public key' => sub {
tconversion("ec", top_file("test","testecpub-p256.pem"), "ec", "-pubin", "-pubout");
};
}
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_ecdh");
plan tests => 1;
ok(run(test(["ecdhtest"])), "running ecdhtest");
#! /usr/bin/perl
use strict;
use warnings;
use Test::More;
use OpenSSL::Test;
setup("test_ecdsa");
plan tests => 1;
ok(run(test(["ecdsatest"])), "running ecdsatest");
#! /usr/bin/perl
use strict;
use warnings;
use File::Spec;
use Test::More;
use OpenSSL::Test qw/:DEFAULT top_file/;
setup("test_rsa");
plan tests => 5;
require_ok(top_file('test','recipes','tconversion.pl'));
ok(run(test(["rsa_test"])), "running rsatest");
SKIP: {
skip "Skipping rsa conversion test", 3
if run(app(["openssl","no-rsa"], stdout => undef));
subtest 'rsa conversions -- private key' => sub {
tconversion("rsa", top_file("test","testrsa.pem"));
};
subtest 'rsa conversions -- private key PKCS#8' => sub {
tconversion("rsa", top_file("test","testrsa.pem"), "pkey");
};
subtest 'rsa conversions -- public key' => sub {
tconversion("rsa", top_file("test","testrsapub.pem"), "rsa",
"-pubin", "-pubout");
};
}
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册