Added stats for delete commands.

This includes both misses and per-slab hits.

1 files changed, 19 insertions, 2 deletions

diff --git a/t/stats.t b/t/stats.t
index 222ebc8..1cbc788 100755
--- a/t/stats.t
+++ b/t/stats.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 18;
+use Test::More tests => 26;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use MemcachedTest;
@@ -29,6 +29,8 @@ my $sock = $server->sock;
 ## STAT cmd_set 0
 ## STAT get_hits 0
 ## STAT get_misses 0
+## STAT delete_misses 0
+## STAT delete_hits 4
 ## STAT evictions 0
 ## STAT bytes_read 7
 ## STAT bytes_written 0
@@ -37,7 +39,7 @@ my $sock = $server->sock;
 my $stats = mem_stats($sock);
 
 # Test number of keys
-is(scalar(keys(%$stats)), 22, "22 stats values");
+is(scalar(keys(%$stats)), 24, "24 stats values");
 
 # Test initial state
 foreach my $key (qw(curr_items total_items bytes cmd_get cmd_set get_hits evictions get_misses bytes_written)) {
@@ -55,7 +57,22 @@ my $stats = mem_stats($sock);
 foreach my $key (qw(total_items curr_items cmd_get cmd_set get_hits)) {
     is($stats->{$key}, 1, "after one set/one get $key is 1");
 }
+is($stats->{delete_hits}, 0);
+is($stats->{delete_misses}, 0);
 
 my $cache_dump = mem_stats($sock, " cachedump 1 100");
 ok(defined $cache_dump->{'foo'}, "got foo from cachedump");
 
+print $sock "delete foo\r\n";
+is(scalar <$sock>, "DELETED\r\n", "deleted foo");
+
+my $stats = mem_stats($sock);
+is($stats->{delete_hits}, 1);
+is($stats->{delete_misses}, 0);
+
+print $sock "delete foo\r\n";
+is(scalar <$sock>, "NOT_FOUND\r\n", "shouldn't delete foo again");
+
+my $stats = mem_stats($sock);
+is($stats->{delete_hits}, 1);
+is($stats->{delete_misses}, 1);