nginx-tests: perl.t annotate

annotate perl.t @ 589:a9569f57da98

Tests: whitespaces fix.

author	Andrey Zelenkov <zelenkov@nginx.com>
date	Mon, 25 May 2015 18:42:34 +0300
parents	f36c3532a117
children	e9064d691790

rev	line source
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	1 #!/usr/bin/perl
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	2
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	3 # (C) Maxim Dounin
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	4
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	5 # Tests for embedded perl module.
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	6
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	7 ###############################################################################
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	8
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	9 use warnings;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	10 use strict;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	11
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	12 use Test::More;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	13
282 04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	14 use Socket qw/ CRLF /;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	15
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	16 BEGIN { use FindBin; chdir($FindBin::Bin); }
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	17
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	18 use lib 'lib';
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	19 use Test::Nginx;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	20
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	21 ###############################################################################
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	22
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	23 select STDERR; $\| = 1;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	24 select STDOUT; $\| = 1;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	25
297 389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	26 my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(13)
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	27 ->write_file_expand('nginx.conf', <<'EOF');
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	28
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	29 %%TEST_GLOBALS%%
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	30
249 6a0d934950bc Tests: remove extra spaces in "daemon off". Maxim Dounin <mdounin@mdounin.ru> parents: 166 diff changeset	31 daemon off;
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	32
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	33 events {
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	34 }
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	35
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	36 http {
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	37 %%TEST_GLOBALS_HTTP%%
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	38
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	39 server {
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	40 listen 127.0.0.1:8080;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	41 server_name localhost;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	42
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	43 location / {
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	44 set $testvar "TEST";
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	45 perl 'sub {
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	46 use warnings;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	47 use strict;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	48
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	49 my $r = shift;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	50
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	51 $r->send_http_header("text/plain");
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	52
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	53 return OK if $r->header_only;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	54
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	55 my $v = $r->variable("testvar");
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	56
297 389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	57 $r->print("testvar: $v\n");
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	58
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	59 $r->print("host: ", $r->header_in("Host"), "\n");
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	60 $r->print("xfoo: ", $r->header_in("X-Foo"), "\n");
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	61 $r->print("cookie: ", $r->header_in("Cookie"), "\n");
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	62 $r->print("xff: ", $r->header_in("X-Forwarded-For"), "\n");
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	63
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	64 return OK;
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	65 }';
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	66 }
282 04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	67
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	68 location /body {
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	69 perl 'sub {
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	70 use warnings;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	71 use strict;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	72
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	73 my $r = shift;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	74
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	75 if ($r->has_request_body(\&post)) {
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	76 return OK;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	77 }
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	78
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	79 return HTTP_BAD_REQUEST;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	80
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	81 sub post {
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	82 my $r = shift;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	83 $r->send_http_header;
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	84 $r->print("body: ", $r->request_body, "\n");
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	85 $r->print("file: ", $r->request_body_file, "\n");
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	86 }
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	87 }';
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	88 }
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	89 }
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	90 }
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	91
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	92 EOF
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	93
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	94 $t->run();
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	95
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	96 ###############################################################################
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	97
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	98 like(http_get('/'), qr/TEST/, 'perl response');
4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	99
297 389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	100 # various $r->header_in() cases
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	101
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	102 like(http(
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	103 'GET / HTTP/1.0' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	104 . 'Host: localhost' . CRLF . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	105 ), qr/host: localhost/, 'perl header_in known');
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	106
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	107 like(http(
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	108 'GET / HTTP/1.0' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	109 . 'X-Foo: foo' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	110 . 'Host: localhost' . CRLF . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	111 ), qr/xfoo: foo/, 'perl header_in unknown');
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	112
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	113 like(http(
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	114 'GET / HTTP/1.0' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	115 . 'Cookie: foo' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	116 . 'Host: localhost' . CRLF . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	117 ), qr/cookie: foo/, 'perl header_in cookie');
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	118
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	119 like(http(
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	120 'GET / HTTP/1.0' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	121 . 'Cookie: foo1' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	122 . 'Cookie: foo2' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	123 . 'Host: localhost' . CRLF . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	124 ), qr/cookie: foo1; foo2/, 'perl header_in cookie2');
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	125
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	126 like(http(
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	127 'GET / HTTP/1.0' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	128 . 'X-Forwarded-For: foo' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	129 . 'Host: localhost' . CRLF . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	130 ), qr/xff: foo/, 'perl header_in xff');
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	131
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	132 like(http(
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	133 'GET / HTTP/1.0' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	134 . 'X-Forwarded-For: foo1' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	135 . 'X-Forwarded-For: foo2' . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	136 . 'Host: localhost' . CRLF . CRLF
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	137 ), qr/xff: foo1, foo2/, 'perl header_in xff2');
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	138
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	139 # various request body tests
389cee4c78aa Tests: perl tests for $r->header_in(). Maxim Dounin <mdounin@mdounin.ru> parents: 285 diff changeset	140
282 04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	141 like(http(
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	142 'GET /body HTTP/1.0' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	143 . 'Host: localhost' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	144 . 'Content-Length: 10' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	145 . '1234567890'
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	146 ), qr/body: 1234567890/, 'perl body preread');
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	147
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	148 like(http(
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	149 'GET /body HTTP/1.0' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	150 . 'Host: localhost' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	151 . 'Content-Length: 10' . CRLF . CRLF,
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	152 sleep => 0.1,
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	153 body => '1234567890'
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	154 ), qr/body: 1234567890/, 'perl body late');
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	155
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	156 like(http(
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	157 'GET /body HTTP/1.0' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	158 . 'Host: localhost' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	159 . 'Content-Length: 10' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	160 . '12345',
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	161 sleep => 0.1,
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	162 body => '67890'
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	163 ), qr/body: 1234567890/, 'perl body split');
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	164
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	165 like(http(
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	166 'GET /body HTTP/1.1' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	167 . 'Host: localhost' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	168 . 'Connection: close' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	169 . 'Transfer-Encoding: chunked' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	170 . 'a' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	171 . '1234567890' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	172 . '0' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	173 ), qr/body: 1234567890/, 'perl body chunked');
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	174
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	175 like(http(
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	176 'GET /body HTTP/1.1' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	177 . 'Host: localhost' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	178 . 'Connection: close' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	179 . 'Transfer-Encoding: chunked' . CRLF . CRLF,
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	180 sleep => 0.1,
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	181 body => 'a' . CRLF . '1234567890' . CRLF . '0' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	182 ), qr/body: 1234567890/, 'perl body chunked late');
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	183
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	184 like(http(
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	185 'GET /body HTTP/1.1' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	186 . 'Host: localhost' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	187 . 'Connection: close' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	188 . 'Transfer-Encoding: chunked' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	189 . 'a' . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	190 . '12345',
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	191 sleep => 0.1,
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	192 body => '67890' . CRLF . '0' . CRLF . CRLF
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	193 ), qr/body: 1234567890/, 'perl body chunked split');
04832fc79805 Tests: perl request body testing. Maxim Dounin <mdounin@mdounin.ru> parents: 249 diff changeset	194
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	195 ###############################################################################

Mercurial > hg > nginx-tests

annotate perl.t @ 589:a9569f57da98