Commit 48c4ba77fed8089a608ecaf9ec8b7789a3e73c27 - libpoe-component-sslify-perl

switch to POE::Filter::Block to reduce issues from Filter::Line Apocalypse 9 years ago

4 changed file(s) with 8 addition(s) and 9 deletion(s). Raw diff Collapse all Expand all

-2

t/simple_large.t less more

22	22	Alias => 'myserver',
23	23	Address => '127.0.0.1',
24	24	Port => 0,
25
	25	ClientFilter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
26	26	Started => sub
27	27	{
28	28	use Socket qw/sockaddr_in/;

90	90	Alias => 'myclient',
91	91	RemoteAddress => '127.0.0.1',
92	92	RemotePort => $port,
93
	93	Filter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
94	94	Connected => sub
95	95	{
96	96	ok(1, 'CLIENT: connected');

-2

t/simple_parallel_large.t less more

22	22	Alias => 'myserver',
23	23	Address => '127.0.0.1',
24	24	Port => 0,
25
	25	ClientFilter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
26	26	Started => sub
27	27	{
28	28	use Socket qw/sockaddr_in/;

88	88	Alias => 'myclient',
89	89	RemoteAddress => '127.0.0.1',
90	90	RemotePort => $port,
91
	91	Filter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
92	92	Connected => sub
93	93	{
94	94	ok(1, 'CLIENT: connected');

-3

t/simple_parallel_superbig.t less more

28	28	# TODO interestingly, x3 goes over some sort of buffer size and this explodes!
29	29	my $bigpacket = join( '-', ('a' .. 'z') x 10000, ('A' .. 'Z') x 10000 ) x 3;
30	30
31
32	31	POE::Component::Server::TCP->new
33	32	(
34	33	Alias => 'myserver',
35	34	Address => '127.0.0.1',
36	35	Port => 0,
37
	36	ClientFilter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
38	37	Started => sub
39	38	{
40	39	use Socket qw/sockaddr_in/;

100	99	Alias => 'myclient',
101	100	RemoteAddress => '127.0.0.1',
102	101	RemotePort => $port,
103
	102	Filter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
104	103	Connected => sub
105	104	{
106	105	ok(1, 'CLIENT: connected');

-2

t/simple_superbig.t less more

32	32	Alias => 'myserver',
33	33	Address => '127.0.0.1',
34	34	Port => 0,
35
	35	ClientFilter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
36	36	Started => sub
37	37	{
38	38	use Socket qw/sockaddr_in/;

102	102	Alias => 'myclient',
103	103	RemoteAddress => '127.0.0.1',
104	104	RemotePort => $port,
105
	105	Filter => ['POE::Filter::Block', 'BlockSize' => length $bigpacket],
106	106	Connected => sub
107	107	{
108	108	ok(1, 'CLIENT: connected');