1#!/usr/bin/perl 2 3use strict; 4use Test::More tests => 8; 5use FindBin qw($Bin); 6use lib "$Bin/lib"; 7use MemcachedTest; 8 9my $server = new_memcached(); 10my $sock = $server->sock; 11 12# set foo (and should get it) 13for my $flags (0, 123, 2**16-1, 2**31) { 14 print $sock "set foo $flags 0 6\r\nfooval\r\n"; 15 is(scalar <$sock>, "STORED\r\n", "stored foo"); 16 mem_get_is({ sock => $sock, 17 flags => $flags }, "foo", "fooval", "got flags $flags back"); 18} 19