mirror of
https://github.com/openssl/openssl.git
synced 2024-12-26 02:13:45 +08:00
fd99c6b599
It became tedious as well as error prone to have all recipes use Test::More as well as OpenSSL::Test. The easier way is to make OpenSSL::Test an extension of Test::More, thereby having all version checks as well as future checks firmly there. Additionally, that allows us to extend existing Test::More functions if the need would arise. Reviewed-by: Rich Salz <rsalz@openssl.org>
44 lines
1.1 KiB
Perl
44 lines
1.1 KiB
Perl
#! /usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Spec;
|
|
use OpenSSL::Test qw/:DEFAULT top_file/;
|
|
|
|
setup("test_gen");
|
|
|
|
plan tests => 1;
|
|
|
|
my $T = "testcert";
|
|
my $KEY = 512;
|
|
my $CA = top_file("certs", "testca.pem");
|
|
|
|
unlink "$T.1", "$T.2", "$T.key";
|
|
open RND, ">>", ".rnd";
|
|
print RND "string to make the random number generator think it has entropy";
|
|
close RND;
|
|
|
|
subtest "generating certificate requests" => sub {
|
|
my @req_new;
|
|
if (run(app(["openssl", "no-rsa"], stdout => undef))) {
|
|
@req_new = ("-newkey", "dsa:".top_file("apps", "dsa512.pem"));
|
|
} else {
|
|
@req_new = ("-new");
|
|
note("There should be a 2 sequences of .'s and some +'s.");
|
|
note("There should not be more that at most 80 per line");
|
|
}
|
|
|
|
unlink "testkey.pem", "testreq.pem";
|
|
|
|
plan tests => 2;
|
|
|
|
ok(run(app(["openssl", "req", "-config", top_file("test", "test.cnf"),
|
|
@req_new, "-out", "testreq.pem"])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req", "-config", top_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
};
|