Mercurial > hg > memcached
diff t/stats.t~ @ 0:30782bb1fc04 MEMCACHED_1_2_3
memcached-1.2.3
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sun, 23 Sep 2007 03:58:34 +0400 |
parents | |
children |
line wrap: on
line diff
new file mode 100755 --- /dev/null +++ b/t/stats.t~ @@ -0,0 +1,51 @@ +#!/usr/bin/perl + +use strict; +use Test::More tests => 8; +use FindBin qw($Bin); +use lib "$Bin/lib"; +use MemcachedTest; + +my $server = new_memcached(); +my $sock = $server->sock; + + +## Output looks like this: +## +## STAT pid 16293 +## STAT uptime 7 +## STAT time 1174419597 +## STAT version 1.2.1 +## STAT pointer_size 32 +## STAT rusage_user 0.012998 +## STAT rusage_system 0.119981 +## STAT curr_items 0 +## STAT total_items 0 +## STAT bytes 0 +## STAT curr_connections 1 +## STAT total_connections 2 +## STAT connection_structures 2 +## STAT cmd_get 0 +## STAT cmd_set 0 +## STAT get_hits 0 +## STAT get_misses 0 +## STAT bytes_read 7 +## STAT bytes_written 0 +## STAT limit_maxbytes 67108864 + +my $stats = mem_stats($sock); + +# Test number of keys +is(scalar(keys(%$stats)), 20, "20 stats values"); + +# Test initial state +foreach my $key (qw(curr_items total_items bytes cmd_get cmd_set get_hits get_misses bytes_written)) { + is($stats->{$key}, 0, "initial $key is zero"); +} + +# Do some operations +print $sock "get fooble\r\n"; +print <$sock>; +my $stats = mem_stats($sock); +use Data::Dumper; +print Data::Dumper::Dumper($stats);