remove TODO from superbig tests
Apocalypse
9 years ago
13 | 13 |
}
|
14 | 14 |
}
|
15 | 15 |
|
16 | |
local $TODO = "locks up SSLify";
|
17 | |
|
18 | 16 |
use POE 1.267;
|
19 | 17 |
use POE::Component::Client::TCP;
|
20 | 18 |
use POE::Component::Server::TCP;
|
|
26 | 24 |
my $replies = 0;
|
27 | 25 |
|
28 | 26 |
# TODO interestingly, x3 goes over some sort of buffer size and this explodes!
|
29 | |
my $bigpacket = join( '-', ('a' .. 'z') x 10000, ('A' .. 'Z') x 10000 ) x 3;
|
|
27 |
my $bigpacket = join( '-', ('a' .. 'z') x 10000, ('A' .. 'Z') x 10000 ) x 10;
|
30 | 28 |
|
31 | 29 |
POE::Component::Server::TCP->new
|
32 | 30 |
(
|
13 | 13 |
}
|
14 | 14 |
}
|
15 | 15 |
|
16 | |
local $TODO = "locks up SSLify";
|
17 | |
|
18 | 16 |
use POE 1.267;
|
19 | 17 |
use POE::Component::Client::TCP;
|
20 | 18 |
use POE::Component::Server::TCP;
|
|
25 | 23 |
my $port;
|
26 | 24 |
|
27 | 25 |
# TODO interestingly, x3 goes over some sort of buffer size and this explodes!
|
28 | |
my $bigpacket = join( '-', ('a' .. 'z') x 10000, ('A' .. 'Z') x 10000 ) x 3;
|
|
26 |
my $bigpacket = join( '-', ('a' .. 'z') x 10000, ('A' .. 'Z') x 10000 ) x 10;
|
29 | 27 |
|
30 | 28 |
POE::Component::Server::TCP->new
|
31 | 29 |
(
|