tweak the connfail tests and make the server test work
Apocalypse
13 years ago
| 38 | 38 |
ClientConnected => sub
|
| 39 | 39 |
{
|
| 40 | 40 |
ok(1, 'SERVER: accepted');
|
|
41 |
|
|
42 |
# purposefully send garbage so we screw up the ssl connect on the client-side
|
|
43 |
$_[HEAP]->{client}->put( 'garbage in, garbage out' );
|
| 41 | 44 |
},
|
| 42 | 45 |
ClientDisconnected => sub
|
| 43 | 46 |
{
|
| 4 | 4 |
|
| 5 | 5 |
my $numtests;
|
| 6 | 6 |
BEGIN {
|
| 7 | |
$numtests = 8;
|
|
7 |
$numtests = 9;
|
| 8 | 8 |
|
| 9 | |
# eval "use Test::NoWarnings";
|
| 10 | |
# if ( ! $@ ) {
|
| 11 | |
# # increment by one
|
| 12 | |
# $numtests++;
|
| 13 | |
# }
|
|
9 |
eval "use Test::NoWarnings";
|
|
10 |
if ( ! $@ ) {
|
|
11 |
# increment by one
|
|
12 |
$numtests++;
|
|
13 |
}
|
| 14 | 14 |
}
|
| 15 | 15 |
|
| 16 | |
# For some reason I can't get this to replicate 5_connfail_client.t - wonder why?!#?
|
| 17 | |
# I tried to use POE::Filter::Stream to see if it made a difference, nope...
|
| 18 | |
#use Test::More tests => $numtests;
|
| 19 | |
use Test::More;
|
| 20 | |
plan skip_all => "This test hangs for some reason";
|
|
16 |
use Test::More tests => $numtests;
|
| 21 | 17 |
|
| 22 | 18 |
use POE 1.267;
|
| 23 | 19 |
use POE::Component::Client::TCP;
|
|
| 91 | 87 |
Connected => sub
|
| 92 | 88 |
{
|
| 93 | 89 |
ok(1, 'CLIENT: connected');
|
|
90 |
|
|
91 |
# purposefully send garbage so we screw up the ssl connect on the client-side
|
|
92 |
$_[HEAP]->{server}->put( 'garbage in, garbage out' );
|
| 94 | 93 |
},
|
| 95 | 94 |
ServerInput => sub
|
| 96 | 95 |
{
|