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 => 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);