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.2 by root, Fri Jul 3 08:51:48 2009 UTC vs.
Revision 1.3 by root, Wed Jul 8 05:35:00 2009 UTC

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

Diff Legend

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