Mercurial > hg > nginx-tests
diff perl_ssi.t @ 1074:a2b6997b4d48
Tests: perl ssi tests.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sat, 29 Oct 2016 23:35:13 +0300 |
parents | |
children | 3a3a7f68c6d7 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/perl_ssi.t Sat Oct 29 23:35:13 2016 +0300 @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +# (C) Maxim Dounin + +# Tests for embedded perl module. + +############################################################################### + +use warnings; +use strict; + +use Test::More; + +use Socket qw/ CRLF /; + +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 perl ssi/)->plan(3) + ->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; + + location / { + ssi on; + } + + location /dummy { + perl 'sub foo { my $r = shift; $r->print(join ",", @_); }'; + } + } +} + +EOF + +$t->write_file('t1.html', 'X<!--#perl sub="foo" arg="arg1" -->X'); +$t->write_file('t2.html', 'X<!--#perl sub="foo" arg="arg1" arg="arg2" -->X'); +$t->write_file('noargs.html', 'X<!--#perl sub="foo" -->X'); + +$t->run(); + +############################################################################### + +like(http_get('/t1.html'), qr/Xarg1X/, 'perl ssi response'); +like(http_get('/t2.html'), qr/Xarg1,arg2X/, 'perl ssi two args'); +like(http_get('/noargs.html'), qr/XX/, 'perl ssi noargs'); + +###############################################################################