forked from nginx/nginx-tests
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsub_filter_perl.t
123 lines (93 loc) · 3.69 KB
/
sub_filter_perl.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#!/usr/bin/perl
# (C) Maxim Dounin
# Tests for sub filter, extended tests using embedded perl.
###############################################################################
use warnings;
use strict;
use Test::More;
BEGIN { use FindBin; chdir($FindBin::Bin); }
use lib 'lib';
use Test::Nginx;
###############################################################################
select STDERR; $| = 1;
select STDOUT; $| = 1;
my $t = Test::Nginx->new()->has(qw/http sub perl/)->plan(22)
->write_file_expand('nginx.conf', <<'EOF');
%%TEST_GLOBALS%%
daemon off;
events {
}
http {
%%TEST_GLOBALS_HTTP%%
server {
listen 127.0.0.1:8080;
server_name localhost;
sub_filter_types *;
sub_filter foobarbaz replaced;
location / {
perl 'sub {
my $r = shift;
$r->send_http_header("text/html");
return OK if $r->header_only;
$r->print("foo");
$r->flush();
$r->print("bar");
$r->flush();
$r->print("baz");
return OK;
}';
}
location /multi {
sub_filter aab _replaced;
perl 'sub {
my $r = shift;
$r->send_http_header("text/html");
return OK if $r->header_only;
$r->print($r->variable("arg_a"));
$r->print($r->variable("arg_b"));
return OK;
}';
}
location /short {
sub_filter ab _replaced;
perl 'sub {
my $r = shift;
$r->send_http_header("text/html");
return OK if $r->header_only;
$r->print($r->variable("arg_a"));
$r->print($r->variable("arg_b"));
return OK;
}';
}
}
}
EOF
$t->run();
###############################################################################
like(http_get('/flush'), qr/^replaced$/m, 'flush');
like(http_get('/multi?a=a&b=ab'), qr/^_replaced$/m, 'aab in a + ab');
like(http_get('/multi?a=a&b=aaab'), qr/^aa_replaced$/m, 'aab in a + aaab');
like(http_get('/multi?a=a&b=aab'), qr/^a_replaced$/m, 'aab in a + aab');
like(http_get('/multi?a=a&b=aaaab'), qr/^aaa_replaced$/m, 'aab in a + aaaab');
like(http_get('/multi?a=aa&b=ab'), qr/^a_replaced$/m, 'aab in aa + ab');
like(http_get('/multi?a=aa&b=aab'), qr/^aa_replaced$/m, 'aab in aa + aab');
like(http_get('/multi?a=aa&b=aaab'), qr/^aaa_replaced$/m, 'aab in aa + aaab');
like(http_get('/multi?a=aa&b=aaaab'), qr/^aaaa_replaced$/m, 'aab in aa + aaaab');
# full backtracking
like(http_get('/multi?a=aa&b=xaaab'), qr/^aaxa_replaced$/m, 'aab in aa + xaaab');
like(http_get('/multi?a=aa&b=axaaab'), qr/^aaaxa_replaced$/m,
'aab in aa + axaaab');
like(http_get('/multi?a=aa&b=aaxaaab'), qr/^aaaaxa_replaced$/m,
'aab in aa + aaxaaab');
# short pattern
like(http_get('/short?a=a&b=b'), qr/^_replaced$/m, 'ab in a + b');
like(http_get('/short?a=a&b=ab'), qr/^a_replaced$/m, 'ab in a + ab');
like(http_get('/short?a=a&b=aab'), qr/^aa_replaced$/m, 'ab in a + aab');
like(http_get('/short?a=a&b=aaab'), qr/^aaa_replaced$/m, 'ab in a + aaab');
like(http_get('/short?a=a&b=aaaab'), qr/^aaaa_replaced$/m, 'ab in a + aaaab');
like(http_get('/short?a=aa&b=b'), qr/^a_replaced$/m, 'ab in aa + b');
like(http_get('/short?a=aa&b=ab'), qr/^aa_replaced$/m, 'ab in aa + ab');
like(http_get('/short?a=aa&b=aab'), qr/^aaa_replaced$/m, 'ab in aa + aab');
like(http_get('/short?a=aa&b=aaab'), qr/^aaaa_replaced$/m, 'ab in aa + aaab');
like(http_get('/short?a=aa&b=aaaab'), qr/^aaaaa_replaced$/m, 'ab in aa + aaaab');
###############################################################################