35 lines
1.0 KiB
Plaintext
35 lines
1.0 KiB
Plaintext
--source include/have_ndb.inc
|
|
--source suite/ndb_memcache/include/have_memcache.inc
|
|
--source suite/ndb_memcache/include/misc_tables.inc
|
|
|
|
--perl
|
|
|
|
use strict;
|
|
use Carp;
|
|
use lib "lib";
|
|
use My::Memcache;
|
|
|
|
my $port = $ENV{NDB_MEMCACHED_1_PORT} or die "Need NDB_MEMCACHED_1_PORT";
|
|
|
|
# Use a binary protocol connection (so keys can contain spaces)
|
|
my $mc = My::Memcache::Binary->new();
|
|
my $r = $mc->connect("localhost",$port);
|
|
|
|
$mc->delete("hashtag:oscon\t1");
|
|
$mc->delete("hashtag:mysql\t1");
|
|
$mc->delete("hashtag:oscon\t2");
|
|
|
|
$mc->set("hashtag:oscon\t1","fred") || $mc->fail("t01 (SET)");
|
|
$mc->add("hashtag:mysql\t1","frederick") || $mc->fail("t02 (SET)");
|
|
$mc->set("hashtag:oscon\t2","freddy") || $mc->fail("t03 (SET)");
|
|
|
|
($mc->get("hashtag:oscon\t1") == "fred") || $mc->fail("t04 (expected fred)");
|
|
($mc->get("hashtag:mysql\t1") == "frederick") || $mc->fail("t05 (expected frederick)");
|
|
($mc->get("hashtag:oscon\t2") == "freddy") || $mc->fail("t06 (expected freddy)");
|
|
|
|
EOF
|
|
|
|
|
|
--sorted_result
|
|
SELECT * FROM ndbmemcache.hashtags;
|