X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibnet-ssleay-perl%2Flibnet-ssleay-perl-1.35%2Ft%2Flocal%2F07_sslecho.t;fp=dev%2Fi386%2Flibnet-ssleay-perl%2Flibnet-ssleay-perl-1.35%2Ft%2Flocal%2F07_sslecho.t;h=b8f4e889267cf18407033bc4787af5c7003f690f;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/07_sslecho.t b/dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/07_sslecho.t
new file mode 100644
index 0000000..b8f4e88
--- /dev/null
+++ b/dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/07_sslecho.t
@@ -0,0 +1,323 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 69;
+use Socket;
+use File::Spec;
+use Symbol qw(gensym);
+use Net::SSLeay;
+
+my $sock;
+my $pid;
+
+my $port = 1212;
+my $dest_ip = gethostbyname('localhost');
+my $dest_serv_params  = pack ('S n a4 x8', AF_INET, $port, $dest_ip);
+
+my $msg = 'ssleay-test';
+my $cert_pem = File::Spec->catfile('t', 'data', 'cert.pem');
+my $key_pem = File::Spec->catfile('t', 'data', 'key.pem');
+
+my $cert_name = '/C=PL/ST=Peoples Republic of Perl/L=Net::/O=Net::SSLeay/'
+    . 'OU=Net::SSLeay developers/CN=127.0.0.1/emailAddress=rafl@debian.org';
+
+$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
+
+Net::SSLeay::randomize();
+Net::SSLeay::load_error_strings();
+Net::SSLeay::ERR_load_crypto_strings();
+Net::SSLeay::library_init();
+
+{
+    my $ip = "\x7F\0\0\x01";
+    my $serv_params = pack ('S n a4 x8', AF_INET, $port, $ip);
+    $sock = gensym();
+    socket($sock, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket: $!");
+    bind($sock, $serv_params) or BAIL_OUT("failed to bind socket: $!");
+    listen($sock, 3) or BAIL_OUT("failed to listen on socket: $!");
+
+
+    my $ctx = Net::SSLeay::CTX_new();
+    ok($ctx, 'CTX_new');
+    ok(Net::SSLeay::CTX_set_cipher_list($ctx, 'ALL'), 'CTX_set_cipher_list');
+    ok(Net::SSLeay::set_cert_and_key($ctx, $cert_pem, $key_pem), 'set_cert_and_key');
+
+    $pid = fork();
+    BAIL_OUT("failed to fork: $!") unless defined $pid;
+    if ($pid == 0) {
+        for (1 .. 7) {
+            my $ns = gensym();
+            my $addr = accept($ns, $sock);
+
+            my $old_out = select($ns);
+            $| = 1;
+            select($old_out);
+
+            my $ssl = Net::SSLeay::new($ctx);
+            ok($ssl, 'new');
+
+            ok(Net::SSLeay::set_fd($ssl, fileno($ns)), 'set_fd using fileno');
+            ok(Net::SSLeay::accept($ssl), 'accept');
+
+            ok(Net::SSLeay::get_cipher($ssl), 'get_cipher');
+
+            my $got = Net::SSLeay::ssl_read_all($ssl);
+            is($got, $msg, 'ssl_read_all') if $_ < 7;
+            ok(Net::SSLeay::ssl_write_all($ssl, uc($got)), 'ssl_write_all');
+
+            Net::SSLeay::free($ssl);
+            close $ns;
+        }
+
+        Net::SSLeay::CTX_free($ctx);
+        close $sock;
+
+        exit;
+    }
+}
+
+my @results;
+{
+    my ($got) = Net::SSLeay::sslcat('localhost', $port, $msg);
+    push @results, [ $got eq uc($msg), 'send and recieved correctly' ];
+
+}
+
+{
+    my $s = gensym();
+    socket($s, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket");
+    connect($s, $dest_serv_params) or BAIL_OUT("failed to connect");
+
+    {
+        my $old_out = select($s);
+        $| = 1;
+        select($old_out);
+    }
+
+    push @results, [ my $ctx = Net::SSLeay::CTX_new(), 'CTX_new' ];
+    push @results, [ my $ssl = Net::SSLeay::new($ctx), 'new' ];
+
+    push @results, [ Net::SSLeay::set_fd($ssl, $s), 'set_fd using glob ref' ];
+    push @results, [ Net::SSLeay::connect($ssl), 'connect' ];
+
+    push @results, [ Net::SSLeay::get_cipher($ssl), 'get_cipher' ];
+
+    push @results, [ Net::SSLeay::write($ssl, $msg), 'write' ];
+    shutdown($s, 1);
+
+    my ($got) = Net::SSLeay::read($ssl);
+    push @results, [ $got eq uc($msg), 'read' ];
+
+    Net::SSLeay::free($ssl);
+    Net::SSLeay::CTX_free($ctx);
+
+    shutdown($s, 2);
+    close $s;
+
+}
+
+{
+    my $verify_cb_1_called = 0;
+    my $verify_cb_2_called = 0;
+    my $verify_cb_3_called = 0;
+    {
+        my $cert_dir = 't/data';
+
+        my $ctx = Net::SSLeay::CTX_new();
+        push @results, [ Net::SSLeay::CTX_load_verify_locations($ctx, '', $cert_dir), 'CTX_load_verify_locations' ];
+        Net::SSLeay::CTX_set_verify($ctx, &Net::SSLeay::VERIFY_PEER, \&verify);
+
+        my $ctx2 = Net::SSLeay::CTX_new();
+        Net::SSLeay::CTX_set_cert_verify_callback($ctx2, \&verify4, 1);
+
+        {
+            my $s = gensym();
+            socket($s, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket: $!");
+            connect($s, $dest_serv_params) or BAIL_OUT("failed to connect: $!");
+
+            {
+                my $old_out = select($s);
+                $| = 1;
+                select($old_out);
+            }
+
+            my $ssl = Net::SSLeay::new($ctx);
+            Net::SSLeay::set_fd($ssl, fileno($s));
+            Net::SSLeay::connect($ssl);
+
+            Net::SSLeay::write($ssl, $msg);
+
+            shutdown $s, 2;
+            close $s;
+            Net::SSLeay::free($ssl);
+
+            push @results, [ $verify_cb_1_called == 1, 'verify cb 1 called once' ];
+            push @results, [ $verify_cb_2_called == 0, 'verify cb 2 wasn\'t called yet' ];
+            push @results, [ $verify_cb_3_called == 0, 'verify cb 3 wasn\'t called yet' ];
+        }
+
+        {
+            my $s1 = gensym();
+            socket($s1, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket: $!");
+            connect($s1, $dest_serv_params) or BAIL_OUT("failed to connect: $!");
+
+            {
+                my $old_out = select($s1);
+                $| = 1;
+                select($old_out);
+            }
+
+            my $s2 = gensym();
+            socket($s2, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket: $!");
+            connect($s2, $dest_serv_params) or BAIL_OUT("failed to connect: $!");
+
+            {
+                my $old_out = select($s2);
+                $| = 1;
+                select($old_out);
+            }
+
+            my $s3 = gensym();
+            socket($s3, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket: $!");
+            connect($s3, $dest_serv_params) or BAIL_OUT("failed to connect: $!");
+
+            {
+                my $old_out = select($s3);
+                $| = 1;
+                select($old_out);
+            }
+
+            my $ssl1 = Net::SSLeay::new($ctx);
+            Net::SSLeay::set_verify($ssl1, &Net::SSLeay::VERIFY_PEER, \&verify2);
+            Net::SSLeay::set_fd($ssl1, $s1);
+
+            my $ssl2 = Net::SSLeay::new($ctx);
+            Net::SSLeay::set_verify($ssl2, &Net::SSLeay::VERIFY_PEER, \&verify3);
+            Net::SSLeay::set_fd($ssl2, $s2);
+
+            my $ssl3 = Net::SSLeay::new($ctx2);
+            Net::SSLeay::set_fd($ssl3, $s3);
+
+            Net::SSLeay::connect($ssl1);
+            Net::SSLeay::write($ssl1, $msg);
+            shutdown $s1, 2;
+
+            Net::SSLeay::connect($ssl2);
+            Net::SSLeay::write($ssl2, $msg);
+            shutdown $s2, 2;
+
+            Net::SSLeay::connect($ssl3);
+            Net::SSLeay::write($ssl3, $msg);
+            shutdown $s3, 2;
+
+            close $s1;
+            close $s2;
+            close $s3;
+
+            Net::SSLeay::free($ssl1);
+            Net::SSLeay::free($ssl2);
+            Net::SSLeay::free($ssl3);
+
+            push @results, [ $verify_cb_1_called == 1, 'verify cb 1 wasn\'t called again' ];
+            push @results, [ $verify_cb_2_called == 1, 'verify cb 2 called once' ];
+            push @results, [ $verify_cb_3_called == 1, 'verify cb 3 wasn\'t called yet' ];
+        }
+
+
+        Net::SSLeay::CTX_free($ctx);
+        Net::SSLeay::CTX_free($ctx2);
+    }
+
+    sub verify {
+        my ($ok, $x509_store_ctx) = @_;
+        $verify_cb_1_called++;
+
+        push @results, [ $ok, 'verify cb' ];
+
+        my $cert = Net::SSLeay::X509_STORE_CTX_get_current_cert($x509_store_ctx);
+        push @results, [ $cert, 'verify cb cert' ];
+
+        my $issuer_name = Net::SSLeay::X509_get_issuer_name( $cert );
+        my $issuer  = Net::SSLeay::X509_NAME_oneline( $issuer_name );
+
+        my $subject_name = Net::SSLeay::X509_get_subject_name( $cert );
+        my $subject = Net::SSLeay::X509_NAME_oneline( $subject_name );
+
+        push @results, [ $issuer  eq $cert_name, 'cert issuer'  ];
+        push @results, [ $subject eq $cert_name, 'cert subject' ];
+
+        return 1;
+    }
+
+    sub verify2 {
+        $verify_cb_2_called++;
+        return 1;
+    }
+
+    sub verify3 {
+        $verify_cb_3_called++;
+        return 1;
+    }
+
+    sub verify4 {
+        my ($cert_store, $userdata) = @_;
+        push @results, [$userdata == 1, 'CTX_set_cert_verify_callback'];
+        return $userdata;
+    }
+}
+
+{
+    my $s = gensym();
+    socket($s, AF_INET, SOCK_STREAM, 0) or BAIL_OUT("failed to open socket: $!");
+    connect($s, $dest_serv_params) or BAIL_OUT("failed to connect: $!");
+
+    {
+        my $old_out = select($s);
+        $| = 1;
+        select($old_out);
+    }
+
+    my $ctx = Net::SSLeay::CTX_new();
+    my $ssl = Net::SSLeay::new($ctx);
+
+    Net::SSLeay::set_fd($ssl, fileno($s));
+    Net::SSLeay::connect($ssl);
+
+    my $cert = Net::SSLeay::get_peer_certificate($ssl);
+
+    my $subject = Net::SSLeay::X509_NAME_oneline(
+            Net::SSLeay::X509_get_subject_name($cert)
+    );
+
+    my $issuer  = Net::SSLeay::X509_NAME_oneline(
+            Net::SSLeay::X509_get_issuer_name($cert)
+    );
+
+    push @results, [ $subject eq $cert_name, 'get_peer_certificate subject' ];
+    push @results, [ $issuer  eq $cert_name, 'get_peer_certificate issuer'  ];
+
+    my $data = 'a' x 1024 ** 2;
+    my $written = Net::SSLeay::ssl_write_all($ssl, \$data);
+    push @results, [ $written == length $data, 'ssl_write_all' ];
+
+    shutdown $s, 1;
+
+    my $got = Net::SSLeay::ssl_read_all($ssl);
+    push @results, [ $got eq uc($data), 'ssl_read_all' ];
+
+    Net::SSLeay::free($ssl);
+    Net::SSLeay::CTX_free($ctx);
+
+    close $s;
+}
+
+waitpid $pid, 0;
+push @results, [ $? == 0, 'server exited wiht 0' ];
+
+END {
+    Test::More->builder->current_test(44);
+    for my $t (@results) {
+        ok( $t->[0], $t->[1] );
+    }
+}