File: noreply.t

package info (click to toggle)
libcache-memcached-fast-perl 0.28-3
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 664 kB
  • sloc: ansic: 8,001; perl: 671; makefile: 13; sh: 6
file content (24 lines) | stat: -rw-r--r-- 503 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use lib 't';

use Memd;
use Test2::V0 -target => 'Cache::Memcached::Fast';

plan skip_all => 'memcached 1.2.5 is required' if $memd_version < v1.2.5;

use constant count => 100;

my %params = %Memd::params;
for ( @{ $params{servers} } ) {
    $_->{noreply} = 1 if ref eq 'HASH';
}

my $memd = CLASS->new( \%params );

my @keys = map "noreply-$_", 1 .. count;
$memd->set_multi( map [ $_, $_ ], @keys );

is $memd->get_multi(@keys), { map { $_ => $_ } @keys };

$memd->delete_multi(@keys);

done_testing;