Mercurial > hg > nginx-tests
view stream_js_variables.t @ 1491:c2bbf805388d
Tests: more perl request body tests.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 12 Jul 2019 18:27:11 +0300 |
parents | 4281225b0c52 |
children | 53ed2231403b |
line wrap: on
line source
#!/usr/bin/perl # (C) Dmitry Volyntsev # (C) Nginx, Inc. # Tests for stream njs module, setting nginx variables. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; use Test::Nginx::Stream qw/ stream /; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/http stream stream_return/) ->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% js_include test.js; server { listen 127.0.0.1:8080; server_name localhost; location /njs { js_content test_njs; } } } stream { js_set $test_var test_var; js_set $test_not_found test_not_found; js_include test.js; server { listen 127.0.0.1:8081; return $test_var$status; } server { listen 127.0.0.1:8082; return $test_not_found; } } EOF $t->write_file('test.js', <<EOF); function test_njs(r) { r.return(200, njs.version); } function test_var(s) { s.variables.status = 400; return 'test_var'; } function test_not_found(s) { try { s.variables.unknown = 1; } catch (e) { return 'not_found'; } } EOF $t->try_run('no stream njs available')->plan(2); ############################################################################### TODO: { local $TODO = 'not yet' unless get('/njs') =~ /^([.0-9]+)$/m && $1 ge '0.2.8'; is(stream('127.0.0.1:' . port(8081))->read(), 'test_var400', 'var set'); is(stream('127.0.0.1:' . port(8082))->read(), 'not_found', 'not found set'); } $t->stop(); ############################################################################### # sub get { my ($url, %extra) = @_; my $s = IO::Socket::INET->new( Proto => 'tcp', PeerAddr => '127.0.0.1:' . port(8080) ) or die "Can't connect to nginx: $!\n"; return http_get($url, socket => $s); } ###############################################################################