Mercurial > hg > memcached

comparison t/stats.t @ 0:30782bb1fc04 MEMCACHED_1_2_3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
memcached-1.2.3
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 23 Sep 2007 03:58:34 +0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:30782bb1fc04
1 #!/usr/bin/perl
2
3 use strict;
4 use Test::More tests => 17;
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 evictions 0
33 ## STAT bytes_read 7
34 ## STAT bytes_written 0
35 ## STAT limit_maxbytes 67108864
36
37 my $stats = mem_stats($sock);
38
39 # Test number of keys
40 is(scalar(keys(%$stats)), 22, "22 stats values");
41
42 # Test initial state
43 foreach my $key (qw(curr_items total_items bytes cmd_get cmd_set get_hits evictions get_misses bytes_written)) {
44 is($stats->{$key}, 0, "initial $key is zero");
45 }
46
47 # Do some operations
48
49 print $sock "set foo 0 0 6\r\nfooval\r\n";
50 is(scalar <$sock>, "STORED\r\n", "stored foo");
51 mem_get_is($sock, "foo", "fooval");
52
53 my $stats = mem_stats($sock);
54
55 foreach my $key (qw(total_items curr_items cmd_get cmd_set get_hits)) {
56 is($stats->{$key}, 1, "after one set/one get $key is 1");
57 }