git.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/35_ephemeral.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 3;
   6 use Net::SSLeay;
   7
   8 Net::SSLeay::randomize();
   9 Net::SSLeay::load_error_strings();
  10 Net::SSLeay::ERR_load_crypto_strings();
  11 Net::SSLeay::SSLeay_add_ssl_algorithms();
  12
  13 ok( my $ctx = Net::SSLeay::CTX_new(), 'CTX_new' );
  14 ok( my $rsa = Net::SSLeay::RSA_generate_key(512, Net::SSLeay::RSA_F4()), 'RSA_generate_key' );
  15 ok( Net::SSLeay::CTX_set_tmp_rsa($ctx, $rsa), 'CTX_set_tmp_rsa' );