Codebase list libpoe-component-sslify-perl / 82379d6
dont test blocking mode on MSWin32, thanks CPANTesters and DSOLIMANO Apocalypse 9 years ago
10 changed file(s) with 20 addition(s) and 20 deletion(s). Raw diff Collapse all Expand all
+2
-2
t/renegotiate_client.t less more
4949 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
5050
5151 # We pray that IO::Handle is sane...
52 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
52 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5353
5454 return ($socket);
5555 },
110110 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
111111
112112 # We pray that IO::Handle is sane...
113 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
113 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
114114
115115 return ($socket);
116116 },
+2
-2
t/renegotiate_client_pings.t less more
5151 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
5252
5353 # We pray that IO::Handle is sane...
54 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
54 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5555
5656 return ($socket);
5757 },
113113 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
114114
115115 # We pray that IO::Handle is sane...
116 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
116 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
117117
118118 return ($socket);
119119 },
+2
-2
t/renegotiate_server.t less more
4949 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
5050
5151 # We pray that IO::Handle is sane...
52 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
52 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5353
5454 return ($socket);
5555 },
110110 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
111111
112112 # We pray that IO::Handle is sane...
113 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
113 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
114114
115115 return ($socket);
116116 },
+2
-2
t/simple.t less more
4646 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
4747
4848 # We pray that IO::Handle is sane...
49 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
49 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5050
5151 return ($socket);
5252 },
104104 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
105105
106106 # We pray that IO::Handle is sane...
107 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
107 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
108108
109109 return ($socket);
110110 },
+2
-2
t/simple_large.t less more
4848 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
4949
5050 # We pray that IO::Handle is sane...
51 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
51 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5252
5353 return ($socket);
5454 },
106106 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
107107
108108 # We pray that IO::Handle is sane...
109 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
109 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
110110
111111 return ($socket);
112112 },
+2
-2
t/simple_parallel.t less more
4646 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
4747
4848 # We pray that IO::Handle is sane...
49 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
49 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5050
5151 return ($socket);
5252 },
104104 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
105105
106106 # We pray that IO::Handle is sane...
107 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
107 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
108108
109109 return ($socket);
110110 },
+2
-2
t/simple_parallel_large.t less more
4848 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
4949
5050 # We pray that IO::Handle is sane...
51 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
51 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5252
5353 return ($socket);
5454 },
104104 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
105105
106106 # We pray that IO::Handle is sane...
107 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
107 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
108108
109109 return ($socket);
110110 },
+2
-2
t/simple_parallel_superbig.t less more
5959 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
6060
6161 # We pray that IO::Handle is sane...
62 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
62 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
6363
6464 return ($socket);
6565 },
115115 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
116116
117117 # We pray that IO::Handle is sane...
118 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
118 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
119119
120120 return ($socket);
121121 },
+2
-2
t/simple_superbig.t less more
5858 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
5959
6060 # We pray that IO::Handle is sane...
61 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
61 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
6262
6363 return ($socket);
6464 },
118118 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
119119
120120 # We pray that IO::Handle is sane...
121 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
121 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
122122
123123 return ($socket);
124124 },
+2
-2
t/upgrade.t less more
5252 ok(1, 'SERVER: SSLify_GetCipher: '. SSLify_GetCipher($socket));
5353
5454 # We pray that IO::Handle is sane...
55 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?');
55 ok( SSLify_GetSocket( $socket )->blocking == 0, 'SERVER: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
5656
5757 # TODO evil code here, ha!
5858 # Should I ask rcaputo to add a $rw->replace_handle($socket) method?
121121 ok(1, 'CLIENT: SSLify_GetCipher: '. SSLify_GetCipher($socket));
122122
123123 # We pray that IO::Handle is sane...
124 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?');
124 ok( SSLify_GetSocket( $socket )->blocking == 0, 'CLIENT: SSLified socket is non-blocking?') if $^O ne 'MSWin32';
125125
126126 # TODO evil code here, ha!
127127 # Should I ask rcaputo to add a $rw->replace_handle($socket) method?