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