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
124
125
|
#!/usr/bin/perl
# (C) Sergey Kandaurov
# (C) Nginx, Inc.
# Tests for http njs module, return method.
###############################################################################
use warnings;
use strict;
use Test::More;
use Config;
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/)
->write_file_expand('nginx.conf', <<'EOF');
%%TEST_GLOBALS%%
daemon off;
events {
}
http {
%%TEST_GLOBALS_HTTP%%
js_import test.js;
server {
listen 127.0.0.1:8080;
server_name localhost;
location / {
js_content test.returnf;
}
location /limit {
sendfile_max_chunk 5;
js_content test.returnf;
}
location /njs {
js_content test.njs;
}
}
}
EOF
$t->write_file('test.js', <<EOF);
function test_njs(r) {
r.return(200, njs.version);
}
function returnf(r) {
let body = r.args.t;
if (body && r.args.repeat) {
body = body.repeat(r.args.repeat);
}
r.return(Number(r.args.c), body);
}
export default {njs:test_njs, returnf};
EOF
$t->try_run('no njs return')->plan(7);
###############################################################################
like(http_get('/?c=200'), qr/200 OK.*\x0d\x0a?\x0d\x0a?$/s, 'return code');
like(http_get('/?c=200&t=SEE-THIS'), qr/200 OK.*^SEE-THIS$/ms, 'return text');
like(http_get('/?c=301&t=path'), qr/ 301 .*Location: path/s, 'return redirect');
like(http_get('/?c=404'), qr/404 Not.*html/s, 'return error page');
like(http_get('/?c=inv'), qr/ 500 /, 'return invalid');
TODO: {
local $TODO = 'not yet' unless has_version('0.8.6');
unlike(http_get('/?c=404&t='), qr/Not.*html/s, 'return empty body');
}
TODO: {
local $TODO = 'not yet' unless has_version('0.8.8');
like(http_get('/limit?c=200&t=X&repeat=50'), qr/200 OK.*X{50}/s,
'return limited');
}
###############################################################################
sub has_version {
my $need = shift;
http_get('/njs') =~ /^([.0-9]+)$/m;
my @v = split(/\./, $1);
my ($n, $v);
for $n (split(/\./, $need)) {
$v = shift @v || 0;
return 0 if $n > $v;
return 1 if $v > $n;
}
return 1;
}
###############################################################################
|
