ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/80_ssltest.t
(Generate patch)

Comparing AnyEvent/t/80_ssltest.t (file contents):
Revision 1.1 by root, Thu Oct 2 08:43:58 2008 UTC vs.
Revision 1.5 by root, Sat Jul 18 00:05:29 2009 UTC

1#!/usr/bin/perl 1#!/usr/bin/perl
2 2
3use Test::More qw(no_plan); 3BEGIN { eval "use Net::SSLeay (); 1" or ((print "1..0 # SKIP no Net::SSLeay\n"), exit 0) }
4
5use Test::More tests => 410;
4 6
5use strict qw(vars subs); 7use strict qw(vars subs);
6 8
7use AnyEvent::Socket; 9use AnyEvent::Socket;
8use AnyEvent::Handle; 10use AnyEvent::Handle;
11use AnyEvent::TLS;
9 12
10{ 13my $ctx = new AnyEvent::TLS cert_file => $0;
11 my $ctx = AnyEvent::Handle::TLS_CTX;
12 Net::SSLeay::CTX_use_certificate_chain_file ($ctx, $0)
13 or die "unable to set certificate chain file";
14 Net::SSLeay::CTX_use_PrivateKey_file ($ctx, $0, Net::SSLeay::FILETYPE_PEM ())
15 or die "unable to set private key file";
16}
17 14
18for my $mode (1..5) { 15for my $mode (1..5) {
19 my $server_done = AnyEvent->condvar; 16 my $server_done = AnyEvent->condvar;
20 my $client_done = AnyEvent->condvar; 17 my $client_done = AnyEvent->condvar;
21 18
… …
28 25
29 ok (1, "server_connect $mode"); 26 ok (1, "server_connect $mode");
30 27
31 my $hd; $hd = new AnyEvent::Handle 28 my $hd; $hd = new AnyEvent::Handle
32 tls => "accept", 29 tls => "accept",
30 tls_ctx => $ctx,
33 fh => $fh, 31 fh => $fh,
34 timeout => 8, 32 timeout => 8,
35 on_error => sub { 33 on_error => sub {
36 ok (0, "server_error <$!>"); 34 ok (0, "server_error <$!>");
37 $server_done->send; undef $hd; 35 $server_done->send; undef $hd;
… …
89 87
90 ok (1, "client_connect $mode"); 88 ok (1, "client_connect $mode");
91 89
92 my $hd; $hd = new AnyEvent::Handle 90 my $hd; $hd = new AnyEvent::Handle
93 tls => "connect", 91 tls => "connect",
92 tls_ctx => $ctx,
94 fh => $fh, 93 fh => $fh,
95 timeout => 8, 94 timeout => 8,
96 on_error => sub { 95 on_error => sub {
97 ok (0, "client_error <$!>"); 96 ok (0, "client_error <$!>");
98 $client_done->send; undef $hd; 97 $client_done->send; undef $hd;
… …
161 $server_done->recv; 160 $server_done->recv;
162 $client_done->recv; 161 $client_done->recv;
163} 162}
164 163
165__END__ 164__END__
165-----BEGIN RSA PRIVATE KEY-----
166MIIBOwIBAAJBAL3Qbshr1ENmAzHxIRIvUaIG8+PCjc7xdXLBm+asBPMu0APQVQXJ
167RTL3DueRUB51hAgSPgzSnj+ryZVzdcDER+UCAwEAAQJAGRftDWHz9dUOpxORo63N
168xPXWWE3oIWuac0lVKvGi1eMoI4UCW/Y7qM4rXsUXqasUo3mxV24+QqJHDQid1qi6
169AQIhAN5BtiqfjFjb97uUbdE6aiqE+nSG0eXlkeHKNpBNtiUxAiEA2qHNZ5fcQTqT
1704qlnYhbI+g6bTwuR7QnzzGTlHUGxsPUCIQDLfvTw37Zb4cNYb1WBPW/ZUHoU2SAz
17101cXmdMNmumL8QIhAJMGTENl9FBJPDopAcUM3YqLWBYICdIF51WEZC8QhpYhAiBe
172KcoNT51hv3pKK8oZtPJGsKFjmGVVnZeNNzyQmt/YWw==
173-----END RSA PRIVATE KEY-----
166-----BEGIN CERTIFICATE----- 174-----BEGIN CERTIFICATE-----
167MIIDJjCCAtCgAwIBAgIJAJ3NPnD6z5+2MA0GCSqGSIb3DQEBBQUAMIGWMQswCQYD 175MIIDJjCCAtCgAwIBAgIJAJ3NPnD6z5+2MA0GCSqGSIb3DQEBBQUAMIGWMQswCQYD
168VQQGEwJYTjETMBEGA1UECBMKU29tZS1TdGF0ZTESMBAGA1UEBxMJU29tZS1DaXR5 176VQQGEwJYTjETMBEGA1UECBMKU29tZS1TdGF0ZTESMBAGA1UEBxMJU29tZS1DaXR5
169MRUwEwYDVQQKEwxTb21lLUNvbXBhbnkxEjAQBgNVBAsTCVNvbWUtVW5pdDEQMA4G 177MRUwEwYDVQQKEwxTb21lLUNvbXBhbnkxEjAQBgNVBAsTCVNvbWUtVW5pdDEQMA4G
170A1UEAxMHU29tZS1DTjEhMB8GCSqGSIb3DQEJARYSc29tZUBlbWFpbC5pbnZhbGlk 178A1UEAxMHU29tZS1DTjEhMB8GCSqGSIb3DQEJARYSc29tZUBlbWFpbC5pbnZhbGlk
… …
180b21wYW55MRIwEAYDVQQLEwlTb21lLVVuaXQxEDAOBgNVBAMTB1NvbWUtQ04xITAf 188b21wYW55MRIwEAYDVQQLEwlTb21lLVVuaXQxEDAOBgNVBAMTB1NvbWUtQ04xITAf
181BgkqhkiG9w0BCQEWEnNvbWVAZW1haWwuaW52YWxpZIIJAJ3NPnD6z5+2MAwGA1Ud 189BgkqhkiG9w0BCQEWEnNvbWVAZW1haWwuaW52YWxpZIIJAJ3NPnD6z5+2MAwGA1Ud
182EwQFMAMBAf8wDQYJKoZIhvcNAQEFBQADQQA48HjY23liyBMmh3cNo9TC+/bu/G3E 190EwQFMAMBAf8wDQYJKoZIhvcNAQEFBQADQQA48HjY23liyBMmh3cNo9TC+/bu/G3E
183oT5npm3+Lh6VA/4kKMyMu2mP31BToTZfl7vUcBJCQBhPFYOiPd/HnwzW 191oT5npm3+Lh6VA/4kKMyMu2mP31BToTZfl7vUcBJCQBhPFYOiPd/HnwzW
184-----END CERTIFICATE----- 192-----END CERTIFICATE-----
185-----BEGIN RSA PRIVATE KEY-----
186MIIBOwIBAAJBAL3Qbshr1ENmAzHxIRIvUaIG8+PCjc7xdXLBm+asBPMu0APQVQXJ
187RTL3DueRUB51hAgSPgzSnj+ryZVzdcDER+UCAwEAAQJAGRftDWHz9dUOpxORo63N
188xPXWWE3oIWuac0lVKvGi1eMoI4UCW/Y7qM4rXsUXqasUo3mxV24+QqJHDQid1qi6
189AQIhAN5BtiqfjFjb97uUbdE6aiqE+nSG0eXlkeHKNpBNtiUxAiEA2qHNZ5fcQTqT
1904qlnYhbI+g6bTwuR7QnzzGTlHUGxsPUCIQDLfvTw37Zb4cNYb1WBPW/ZUHoU2SAz
19101cXmdMNmumL8QIhAJMGTENl9FBJPDopAcUM3YqLWBYICdIF51WEZC8QhpYhAiBe
192KcoNT51hv3pKK8oZtPJGsKFjmGVVnZeNNzyQmt/YWw==
193-----END RSA PRIVATE KEY-----
194 193
195 194
196 195

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines