0
|
1 #!/usr/bin/perl
|
|
2
|
|
3 use strict;
|
|
4 use Test::More tests => 8;
|
|
5 use FindBin qw($Bin);
|
|
6 use lib "$Bin/lib";
|
|
7 use MemcachedTest;
|
|
8
|
|
9 my $server = new_memcached();
|
|
10 my $sock = $server->sock;
|
|
11
|
|
12
|
|
13 ## Output looks like this:
|
|
14 ##
|
|
15 ## STAT pid 16293
|
|
16 ## STAT uptime 7
|
|
17 ## STAT time 1174419597
|
|
18 ## STAT version 1.2.1
|
|
19 ## STAT pointer_size 32
|
|
20 ## STAT rusage_user 0.012998
|
|
21 ## STAT rusage_system 0.119981
|
|
22 ## STAT curr_items 0
|
|
23 ## STAT total_items 0
|
|
24 ## STAT bytes 0
|
|
25 ## STAT curr_connections 1
|
|
26 ## STAT total_connections 2
|
|
27 ## STAT connection_structures 2
|
|
28 ## STAT cmd_get 0
|
|
29 ## STAT cmd_set 0
|
|
30 ## STAT get_hits 0
|
|
31 ## STAT get_misses 0
|
|
32 ## STAT bytes_read 7
|
|
33 ## STAT bytes_written 0
|
|
34 ## STAT limit_maxbytes 67108864
|
|
35
|
|
36 my $stats = mem_stats($sock);
|
|
37
|
|
38 # Test number of keys
|
|
39 is(scalar(keys(%$stats)), 20, "20 stats values");
|
|
40
|
|
41 # Test initial state
|
|
42 foreach my $key (qw(curr_items total_items bytes cmd_get cmd_set get_hits get_misses bytes_written)) {
|
|
43 is($stats->{$key}, 0, "initial $key is zero");
|
|
44 }
|
|
45
|
|
46 # Do some operations
|
|
47 print $sock "get fooble\r\n";
|
|
48 print <$sock>;
|
|
49 my $stats = mem_stats($sock);
|
|
50 use Data::Dumper;
|
|
51 print Data::Dumper::Dumper($stats);
|