Mercurial > hg > nginx-tests

comparison gunzip_memcached.t @ 590:dc2f8aac0553

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespace fixes.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 26 May 2015 13:22:45 +0300
parents c0b4ae82fd9d
children adc32621fb09
comparison
equal deleted inserted replaced
589:a9569f57da98 590:dc2f8aac0553
80 # set and compressed value to be at least 20% less than original one. 80 # set and compressed value to be at least 20% less than original one.
81 81
82 my $memd = Cache::Memcached->new(servers => [ '127.0.0.1:8081' ], 82 my $memd = Cache::Memcached->new(servers => [ '127.0.0.1:8081' ],
83 compress_threshold => 1, connect_timeout => 1.0); 83 compress_threshold => 1, connect_timeout => 1.0);
84 $memd->set('/', 'TEST' x 10) 84 $memd->set('/', 'TEST' x 10)
85 or die "can't put value into memcached: $!"; 85 or die "can't put value into memcached: $!";
86 86
87 ############################################################################### 87 ###############################################################################
88 88
89 http_gzip_like(http_gzip_request('/'), qr/TEST/, 'memcached response gzipped'); 89 http_gzip_like(http_gzip_request('/'), qr/TEST/, 'memcached response gzipped');
90 like(http_get('/'), qr/TEST/, 'memcached response gunzipped'); 90 like(http_get('/'), qr/TEST/, 'memcached response gunzipped');