1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5use Test::More;
6use FindBin qw($Bin);
7use lib "$Bin/lib";
8use Carp qw(croak);
9use MemcachedTest;
10use IO::Socket qw(AF_INET SOCK_STREAM);
11use IO::Select;
12use Data::Dumper qw/Dumper/;
13
14if (!supports_proxy()) {
15    plan skip_all => 'proxy not enabled';
16    exit 0;
17}
18
19my $p_srv = new_memcached('-o proxy_config=./t/proxyintstats.lua -t 1');
20my $ps = $p_srv->sock;
21$ps->autoflush(1);
22
23my $w = $p_srv->new_sock;
24print $w "watch proxyuser\n";
25is(<$w>, "OK\r\n", "watcher enabled");
26
27# store one value so items/slabs has data.
28print $ps "set foo 0 0 2\r\nhi\r\n";
29is(scalar <$ps>, "STORED\r\n", "test value stored");
30
31my @stats = qw/basic settings conns extstore proxy proxyfuncs proxybe items slabs/;
32
33for my $st (@stats) {
34    like(<$w>, qr/SUCCESS: $st/, "successfully ran $st");
35}
36
37pass("didn't crash");
38
39done_testing();
40