Add ARM files

[dh-make-perl] / dev / arm / libnet-ssleay-perl / libnet-ssleay-perl-1.35 / t / local / 35_ephemeral.t

diff --git a/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/35_ephemeral.t b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/35_ephemeral.t
new file mode 100644 (file)
index 0000000..5ab3724
--- /dev/null
+++ b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/35_ephemeral.t
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 3;
+use Net::SSLeay;
+
+Net::SSLeay::randomize();
+Net::SSLeay::load_error_strings();
+Net::SSLeay::ERR_load_crypto_strings();
+Net::SSLeay::SSLeay_add_ssl_algorithms();
+
+ok( my $ctx = Net::SSLeay::CTX_new(), 'CTX_new' );
+ok( my $rsa = Net::SSLeay::RSA_generate_key(512, Net::SSLeay::RSA_F4()), 'RSA_generate_key' );
+ok( Net::SSLeay::CTX_set_tmp_rsa($ctx, $rsa), 'CTX_set_tmp_rsa' );