1#!/usr/bin/perl
2
3use strict;
4use Test::More tests => 4;
5use FindBin qw($Bin);
6use lib "$Bin/lib";
7use MemcachedTest;
8
9my $server = new_memcached();
10my $sock = $server->sock;
11
12print $sock "set issue29 0 0 0\r\n\r\n";
13is (scalar <$sock>, "STORED\r\n", "stored issue29");
14
15my $first_stats  = mem_stats($sock, "slabs");
16my $first_used = $first_stats->{"1:used_chunks"};
17
18is(1, $first_used, "Used one");
19
20print $sock "set issue29_b 0 0 0\r\n\r\n";
21is (scalar <$sock>, "STORED\r\n", "stored issue29_b");
22
23my $second_stats  = mem_stats($sock, "slabs");
24my $second_used = $second_stats->{"1:used_chunks"};
25
26is(2, $second_used, "Used two")
27