comparison t/catch_body.t @ 2:04788ce8dae7

Close connection on errors.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 09 Feb 2015 16:31:47 +0300
parents 17c333645ebb
children 01a36878bf36
comparison
equal deleted inserted replaced
1:17c333645ebb 2:04788ce8dae7
60 like(get_body('/', '123456', '12345X'), 60 like(get_body('/', '123456', '12345X'),
61 qr/200 OK.*403 Forbidden/ms, 61 qr/200 OK.*403 Forbidden/ms,
62 'second rejected'); 62 'second rejected');
63 63
64 like(get_body('/', '123456' x 1024, '12345X6789' x 1024, '123456' x 1024), 64 like(get_body('/', '123456' x 1024, '12345X6789' x 1024, '123456' x 1024),
65 qr/200 OK.*403 Forbidden.*200 OK/ms, 65 qr/200 OK.*403 Forbidden(?!.*400 Bad)/ms,
66 'accepted rejected accepted'); 66 'accepted rejected ignored');
67 67
68 # pipelining with chunked 68 # pipelining with chunked
69 69
70 like(get_chunked('/', '123456', '12345X'), 70 like(get_chunked('/', '123456', '12345X'),
71 qr/200 OK.*403 Forbidden/ms, 71 qr/200 OK.*403 Forbidden/ms,
72 'second rejected'); 72 'chunked second rejected');
73 73
74 like(get_chunked('/', '123456', '12345X6789', '123456'), 74 like(get_chunked('/', '123456', '12345X6789', '123456'),
75 qr/200 OK.*403 Forbidden.*200 OK/ms, 75 qr/200 OK.*403 Forbidden(?!.*400 Bad)/ms,
76 'accepted rejected accepted'); 76 'chunked accepted rejected ignored');
77 77
78 ############################################################################### 78 ###############################################################################
79 79
80 sub get_body { 80 sub get_body {
81 my $uri = shift; 81 my $uri = shift;