# vi:filetype=

use lib 'lib';
use Test::Nginx::Socket;

repeat_each(2);

plan tests => repeat_each() * (2 * blocks() - 1);

$ENV{TEST_NGINX_MEMCACHED_PORT} ||= 11211;

our $http_config = <<'_EOC_';
    upstream foo {
        server 127.0.0.1:$TEST_NGINX_MEMCACHED_PORT;
        keepalive 1;
    }
_EOC_

#no_shuffle();

#no_diff;

log_level('warn');

run_tests();

__DATA__

=== TEST 1: set only
--- http_config eval: $::http_config
--- config
    location /memc {
        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;
        memc_pass foo;
    }
--- request
    GET /memc?key=foo&cmd=set&val=blah
--- response_body eval
"STORED\r\n"
--- error_code: 201



=== TEST 2: set and get
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'set foo blah';
        echo_location '/memc?key=foo&cmd=set&val=blah';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;
        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"set foo blah
STORED\r
get foo
blah"



=== TEST 3: set UTF-8 and get UTF-8
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'set foo 你好';
        echo_location '/memc?key=foo&cmd=set&val=你好';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;
        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"set foo 你好
STORED\r
get foo
你好"



=== TEST 4: set and get empty values
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'set foo blah';
        echo_location '/memc?key=foo&cmd=set&val=';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;
        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush all
OK\r
set foo blah
STORED\r
get foo
"



=== TEST 5: add
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'add foo blah';
        echo_location '/memc?key=foo&cmd=add&val=added';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush all
status: 200
OK\r
add foo blah
status: 201
STORED\r
get foo
status: 200
added"



=== TEST 6: set using POST
--- http_config eval: $::http_config
--- config
    location /main {
        echo_read_request_body;

        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'set foo';
        echo_subrequest POST '/memc?key=foo&cmd=set';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        #set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
POST /main
hello, world
--- response_body eval
"flush all
status: 200
OK\r
set foo
status: 201
STORED\r
get foo
status: 200
hello, world"



=== TEST 7: default REST interface when no $memc_cmd is set
--- http_config eval: $::http_config
--- config
    location /main {
        echo_read_request_body;

        echo 'set foo FOO';
        echo_subrequest PUT '/memc?key=foo' -b FOO;

        echo 'get foo';
        echo_subrequest GET '/memc?key=foo';
        echo;

        echo 'set foo BAR';
        echo_subrequest PUT '/memc?key=foo' -b BAR;

        echo 'get foo';
        echo_subrequest GET '/memc?key=foo';
        echo;
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_key $arg_key;
        #set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
GET /main
--- response_body eval
"set foo FOO
status: 201
STORED\r
get foo
status: 200
FOO
set foo BAR
status: 201
STORED\r
get foo
status: 200
BAR
"



=== TEST 8: default REST interface when no $memc_cmd is set (read client req body)
--- http_config eval: $::http_config
--- config
    location /main {
        echo_read_request_body;

        echo 'set foo <client req body>';
        echo_subrequest PUT '/memc?key=foo';

        echo 'get foo';
        echo_subrequest GET '/memc?key=foo';
        echo;

        echo 'set foo BAR';
        echo_subrequest PUT '/memc?key=foo' -b BAR;

        echo 'get foo';
        echo_subrequest GET '/memc?key=foo';
        echo;
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_key $arg_key;
        #set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
POST /main
rock
--- response_body eval
"set foo <client req body>
status: 201
STORED\r
get foo
status: 200
rock
set foo BAR
status: 201
STORED\r
get foo
status: 200
BAR
"



=== TEST 9: default REST interface when no $memc_cmd is set (read client req body)
--- http_config eval: $::http_config
--- config
    location /main {
        echo_read_request_body;

        echo 'set foo <client req body>';
        echo_subrequest PUT '/memc?key=foo';

        echo 'get foo';
        echo_subrequest GET '/memc?key=foo';
        echo;

        echo 'add foo BAR';
        echo_subrequest POST '/memc?key=foo' -b BAR;

        echo 'get foo';
        echo_subrequest GET '/memc?key=foo';
        echo;
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_key $arg_key;
        #set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
POST /main
howdy
--- response_body eval
"set foo <client req body>
status: 201
STORED\r
get foo
status: 200
howdy
add foo BAR
status: 200
NOT_STORED\r
get foo
status: 200
howdy
"



=== TEST 10: test replace (stored) (without sleep)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';
        #echo_sleep 0.001;

        echo 'add foo blah';
        echo_location '/memc?key=foo&cmd=add&val=added';

        echo 'replace foo bah';
        echo_location '/memc?key=foo&cmd=replace&val=bah';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush all
status: 200
OK\r
add foo blah
status: 201
STORED\r
replace foo bah
status: 201
STORED\r
get foo
status: 200
bah"



=== TEST 11: test replace (stored) (with sleep)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';
        echo_blocking_sleep 0.001;

        echo 'add foo blah';
        echo_location '/memc?key=foo&cmd=add&val=added';
        #echo_sleep 0.001;

        echo 'replace foo bah';
        echo_location '/memc?key=foo&cmd=replace&val=bah';
        #echo_sleep 0.001;

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush all
status: 200
OK\r
add foo blah
status: 201
STORED\r
replace foo bah
status: 201
STORED\r
get foo
status: 200
bah"



=== TEST 12: test replace (not stored)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'replace foo bah';
        echo_location '/memc?key=foo&cmd=replace&val=bah';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body_like
flush all
status: 200
OK\r
replace foo bah
status: 200
NOT_STORED\r
get foo
status: 404.*?404 Not Found.*$



=== TEST 13: test append (stored)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'add foo hello';
        echo_location '/memc?key=foo&cmd=add&val=hello';

        echo 'append foo ,world';
        echo_location '/memc?key=foo&cmd=append&val=,world';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush all
status: 200
OK\r
add foo hello
status: 201
STORED\r
append foo ,world
status: 201
STORED\r
get foo
status: 200
hello,world"



=== TEST 14: test append (not stored)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'append foo ,world';
        echo_location '/memc?key=foo&cmd=append&val=,world';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body_like
flush all
status: 200
OK\r
append foo ,world
status: 200
NOT_STORED\r
get foo
status: 404.*?404 Not Found.*$



=== TEST 15: test prepend (stored)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'add foo hello';
        echo_location '/memc?key=foo&cmd=add&val=hello';

        echo 'prepend foo world,';
        echo_location '/memc?key=foo&cmd=prepend&val=world,';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush all
status: 200
OK\r
add foo hello
status: 201
STORED\r
prepend foo world,
status: 201
STORED\r
get foo
status: 200
world,hello"



=== TEST 16: test prepend (not stored)
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush all';
        echo_location '/memc?cmd=flush_all';

        echo 'prepend foo world,';
        echo_location '/memc?key=foo&cmd=prepend&val=world,';

        echo 'get foo';
        echo_location '/memc?key=foo&cmd=get';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body_like
flush all
status: 200
OK\r
prepend foo world,
status: 200
NOT_STORED\r
get foo
status: 404.*?404 Not Found.*$



=== TEST 17: set and get big value
--- http_config eval: $::http_config
--- config
    location /big {
        echo_read_request_body;

        client_body_buffer_size 1k;
        client_max_body_size 100k;

        echo 'set big';
        echo_subrequest POST '/memc?key=big&cmd=set';

        echo 'get big';
        echo_location '/memc?key=big&cmd=get';
    }
    location /memc {
        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        memc_pass foo;
    }
--- request eval
"POST /big\n" .
 'a' x (1024 * 1) . 'efg'

--- response_body eval
"set big
STORED\r
get big
" . 'a' x (1024 * 1) . 'efg'
--- timeout: 5



=== TEST 18: set and get too big values
--- http_config eval: $::http_config
--- config
    location /big {
        client_body_buffer_size 1k;
        client_max_body_size 100k;

        echo 'set big';
        echo_subrequest POST '/memc?key=big&cmd=set';

        echo 'get big';
        echo_location '/memc?key=big&cmd=get';
    }
    location /memc {
        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        memc_pass foo;
    }
--- request eval
"POST /big\n" .
 'a' x (1024 * 100) . 'efg'
--- ignore_response
--- error_log
client intended to send too large body: 102403 bytes
--- timeout: 5



=== TEST 19: replace non-existent item
--- http_config eval: $::http_config
--- config
    location /main {
        echo 'flush_all';
        echo_location '/memc?cmd=flush_all';

        echo 'replace foo bar';
        echo_location '/memc?key=foo&cmd=replace&val=bar';
    }
    location /memc {
        echo_before_body "status: $echo_response_status";
        echo_before_body "exptime: $memc_exptime";

        set $memc_cmd $arg_cmd;
        set $memc_key $arg_key;
        set $memc_value $arg_val;
        set $memc_exptime $arg_exptime;

        memc_pass foo;
    }
--- request
    GET /main
--- response_body eval
"flush_all
status: 200
exptime: 
OK\r
replace foo bar
status: 200
exptime: 0
NOT_STORED\r
"



=== TEST 20: eval + memc
--- http_config eval: $::http_config
--- config
    location /main {
        eval $data {
            proxy_pass $scheme://127.0.0.1:$server_port/foo;
        }
        set $memc_cmd set;
        set $memc_key /foo;
        set $memc_value $data;
        memc_pass foo;
    }
    location /foo {
        echo hello;
    }
--- request
    GET /main
--- response_body
--- SKIP

