31 lines
693 B
Plaintext
31 lines
693 B
Plaintext
--source include/have_ndb.inc
|
|
|
|
# Test the fundamental ability to connect to a memcached server,
|
|
# wait for it to become ready, set a value, and then retreive that
|
|
# value using mysql
|
|
|
|
--source suite/ndb_memcache/include/have_memcache.inc
|
|
--echo NDB_MEMCACHED_STARTED=$NDB_MEMCACHED_STARTED
|
|
|
|
--perl
|
|
|
|
use strict;
|
|
use lib "lib/";
|
|
use My::Memcache;
|
|
|
|
my $port = $ENV{NDB_MEMCACHED_1_PORT} or die "Need NDB_MEMCACHED_1_PORT";
|
|
|
|
my $mc = My::Memcache->new();
|
|
my $r = $mc->connect("localhost",$port);
|
|
|
|
if($r == 0) {
|
|
print STDERR "DID NOT CONNECT TO MEMCACHE AT PORT $port \n";
|
|
}
|
|
else {
|
|
$mc->set("test_key_1", 1511);
|
|
}
|
|
|
|
EOF
|
|
|
|
SELECT string_value from ndbmemcache.demo_table where mkey='test_key_1';
|