Add ARM files

[dh-make-perl] / dev / arm / libnet-ssleay-perl / libnet-ssleay-perl-1.35 / t / local / 31_rsa_generate_key.t

diff --git a/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/31_rsa_generate_key.t b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/31_rsa_generate_key.t
new file mode 100644 (file)
index 0000000..26591a6
--- /dev/null
+++ b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/31_rsa_generate_key.t
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+use Net::SSLeay;
+
+eval 'use Test::Exception';
+plan skip_all => 'Test::Exception required' if $@;
+
+plan tests => 14;
+
+Net::SSLeay::randomize();
+Net::SSLeay::load_error_strings();
+Net::SSLeay::ERR_load_crypto_strings();
+Net::SSLeay::SSLeay_add_ssl_algorithms();
+
+lives_ok(sub {
+        Net::SSLeay::RSA_generate_key(512, 0x10001);
+}, 'RSA_generate_key with valid callback');
+
+dies_ok(sub {
+        Net::SSLeay::RSA_generate_key(512, 0x10001, 1);
+}, 'RSA_generate_key with invalid callback');
+
+{
+    my $called = 0;
+
+    lives_ok(sub {
+            Net::SSLeay::RSA_generate_key(512, 0x10001, \&cb);
+    }, 'RSA_generate_key with valid callback');
+
+    cmp_ok( $called, '>', 0, 'callback has been called' );
+
+    sub cb {
+        my ($i, $n, $d) = @_;
+
+        if ($called == 0) {
+            is( wantarray(), undef, 'RSA_generate_key callback is executed in void context' );
+            is( $d, undef, 'userdata will be undef if no userdata was given' );
+
+            ok( defined $i, 'first argument is defined' );
+            ok( defined $n, 'second argument is defined' );
+        }
+
+        $called++;
+    }
+}
+
+{
+    my $called   = 0;
+    my $userdata = 'foo';
+
+    lives_ok(sub {
+            Net::SSLeay::RSA_generate_key(512, 0x10001, \&cb_data, $userdata);
+    }, 'RSA_generate_key with valid callback and userdata');
+
+    cmp_ok( $called, '>', 0, 'callback has been called' );
+
+    sub cb_data {
+        my ($i, $n, $d) = @_;
+
+        if ($called == 0) {
+            is( wantarray(), undef, 'RSA_generate_key callback is executed in void context' );
+
+            ok( defined $i, 'first argument is defined' );
+            ok( defined $n, 'second argument is defined' );
+            is( $d, $userdata, 'third argument is the userdata we passed in' );
+        }
+
+        $called++;
+    }
+}