annotate js_buffer.t @ 1626:a35445ae8de7

Tests: adapted js buffer tests to renaming vars to rawVariables.
author Dmitry Volyntsev <xeioex@nginx.com>
date Thu, 26 Nov 2020 11:29:53 +0000
parents a140cab489e8
children 456bf219d768
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1625
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
1 #!/usr/bin/perl
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
2
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
3 # (C) Dmitry Volyntsev
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
4 # (C) Nginx, Inc.
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
5
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
6 # Tests for http njs module, buffer properties.
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
7
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
8 ###############################################################################
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
9
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
10 use warnings;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
11 use strict;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
12
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
13 use Test::More;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
14
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
15 use Socket qw/ CRLF /;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
16
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
17 BEGIN { use FindBin; chdir($FindBin::Bin); }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
18
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
19 use lib 'lib';
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
20 use Test::Nginx;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
21
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
22 ###############################################################################
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
23
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
24 select STDERR; $| = 1;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
25 select STDOUT; $| = 1;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
26
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
27 eval { require JSON::PP; };
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
28 plan(skip_all => "JSON::PP not installed") if $@;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
29
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
30 my $t = Test::Nginx->new()->has(qw/http rewrite proxy/)
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
31 ->write_file_expand('nginx.conf', <<'EOF');
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
32
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
33 %%TEST_GLOBALS%%
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
34
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
35 daemon off;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
36
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
37 events {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
38 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
39
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
40 http {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
41 %%TEST_GLOBALS_HTTP%%
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
42
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
43 js_import test.js;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
44
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
45 server {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
46 listen 127.0.0.1:8080;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
47 server_name localhost;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
48
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
49 location /njs {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
50 js_content test.njs;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
51 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
52
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
53 location /return {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
54 js_content test.return;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
55 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
56
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
57 location /req_body {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
58 js_content test.req_body;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
59 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
60
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
61 location /res_body {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
62 js_content test.res_body;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
63 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
64
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
65 location /binary_var {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
66 js_content test.binary_var;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
67 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
68
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
69 location /p/ {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
70 proxy_pass http://127.0.0.1:8081/;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
71 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
72 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
73
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
74 server {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
75 listen 127.0.0.1:8081;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
76 server_name localhost;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
77
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
78 location /sub1 {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
79 return 200 '{"a": {"b": 1}}';
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
80 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
81 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
82 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
83
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
84 EOF
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
85
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
86 $t->write_file('test.js', <<EOF);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
87 function test_njs(r) {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
88 r.return(200, njs.version);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
89 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
90
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
91 function test_return(r) {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
92 var body = Buffer.from("body: ");
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
93 body = Buffer.concat([body, Buffer.from(r.args.text)]);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
94 r.return(200, body);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
95 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
96
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
97 function req_body(r) {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
98 var body = r.reqBody;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
99 var view = new DataView(body.buffer);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
100 view.setInt8(2, 'c'.charCodeAt(0));
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
101 r.return(200, JSON.parse(body).c.b);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
102 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
103
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
104 function res_body(r) {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
105 r.subrequest('/p/sub1')
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
106 .then(reply => {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
107 var body = reply.resBody;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
108 var view = new DataView(body.buffer);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
109 view.setInt8(2, 'c'.charCodeAt(0));
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
110 r.return(200, JSON.stringify(JSON.parse(body)));
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
111 })
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
112 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
113
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
114 function binary_var(r) {
1626
a35445ae8de7 Tests: adapted js buffer tests to renaming vars to rawVariables.
Dmitry Volyntsev <xeioex@nginx.com>
parents: 1625
diff changeset
115 var test = r.rawVariables.binary_remote_addr
a35445ae8de7 Tests: adapted js buffer tests to renaming vars to rawVariables.
Dmitry Volyntsev <xeioex@nginx.com>
parents: 1625
diff changeset
116 .equals(Buffer.from([127,0,0,1]));
1625
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
117 r.return(200, test);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
118 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
119
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
120 export default {njs: test_njs, return: test_return, req_body, res_body,
1626
a35445ae8de7 Tests: adapted js buffer tests to renaming vars to rawVariables.
Dmitry Volyntsev <xeioex@nginx.com>
parents: 1625
diff changeset
121 binary_var};
1625
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
122
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
123 EOF
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
124
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
125 $t->try_run('no njs buffer')->plan(4);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
126
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
127 ###############################################################################
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
128
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
129 TODO: {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
130 local $TODO = 'not yet'
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
131 unless http_get('/njs') =~ /^([.0-9]+)$/m && $1 ge '0.5.0';
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
132
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
133 like(http_get('/return?text=FOO'), qr/200 OK.*body: FOO$/s,
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
134 'return buffer');
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
135 like(http_post('/req_body'), qr/200 OK.*BAR$/s, 'req body');
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
136 is(get_json('/res_body'), '{"c":{"b":1}}', 'res body');
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
137 like(http_get('/binary_var'), qr/200 OK.*true$/s,
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
138 'binary var');
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
139
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
140 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
141
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
142 ###############################################################################
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
143
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
144 sub recode {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
145 my $json;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
146 eval { $json = JSON::PP::decode_json(shift) };
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
147
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
148 if ($@) {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
149 return "<failed to parse JSON>";
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
150 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
151
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
152 JSON::PP->new()->canonical()->encode($json);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
153 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
154
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
155 sub get_json {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
156 http_get(shift) =~ /\x0d\x0a?\x0d\x0a?(.*)/ms;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
157 recode($1);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
158 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
159
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
160 sub http_post {
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
161 my ($url, %extra) = @_;
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
162
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
163 my $p = "POST $url HTTP/1.0" . CRLF .
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
164 "Host: localhost" . CRLF .
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
165 "Content-Length: 17" . CRLF .
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
166 CRLF .
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
167 "{\"a\":{\"b\":\"BAR\"}}";
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
168
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
169 return http($p, %extra);
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
170 }
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
171
a140cab489e8 Tests: added js buffer tests.
Dmitry Volyntsev <xeioex@nginx.com>
parents:
diff changeset
172 ###############################################################################