# Unit tests for Test::Nginx::Socket::get_req_from_block use Test::Nginx::Socket tests => 1; my @block_list = blocks(); my $i = 0; # Use $i to make copy/paste of tests easier. # I had response_body_like as an array although there was only # one request. And it did not work. I couldn't understand why. So, here is the # unit test. Fix is actually in get_indexed_value. my $html = "GoogleSearch me..."; my $raw_res="HTTP/1.0 200 OK\r\nDate: Fri, 31 Dec 1999 23:59:59 GMT\r\nContent-Type: text/html\r\nContent-Length: ".length($html)."\r\n\r\n".$html; my ( $res, $raw_headers, $left ) = Test::Nginx::Socket::parse_response("name", $raw_res, 0); Test::Nginx::Socket::check_response_body($block_list[$i], $res, undef, 0, 0); __DATA__ === response_body_like: array --- response_body_like eval ["Google"]