blob: 01700c458a3d7bbd271650581712e17862e76717 [file] [log] [blame]
#!/usr/bin/perl
# (C) Maxim Dounin
# Tests for embedded perl module.
###############################################################################
use warnings;
use strict;
use Test::More;
BEGIN { use FindBin; chdir($FindBin::Bin); }
use lib 'lib';
use Test::Nginx qw/ :DEFAULT :gzip /;
###############################################################################
select STDERR; $| = 1;
select STDOUT; $| = 1;
eval { require IO::Compress::Gzip; };
plan(skip_all => "IO::Compress::Gzip not found") if $@;
my $t = Test::Nginx->new()->has(qw/http perl gzip/)->plan(2)
->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;
gzip on;
gzip_types text/plain;
location / {
perl 'sub {
my $r = shift;
$r->send_http_header("text/plain");
return OK if $r->header_only;
$r->print("TEST");
return OK;
}';
}
location /gz {
perl 'sub {
my $r = shift;
$r->header_out("Content-Encoding", "gzip");
$r->send_http_header("text/plain");
return OK if $r->header_only;
use IO::Compress::Gzip;
my $in = "TEST";
my $out;
IO::Compress::Gzip::gzip(\\$in => \\$out);
$r->print($out);
return OK;
}';
}
}
}
EOF
$t->run();
###############################################################################
http_gzip_like(http_gzip_request('/'), qr/TEST/, 'perl response gzipped');
http_gzip_like(http_gzip_request('/gz'), qr/TEST/, 'not doublegzipped');
###############################################################################