35 lines
730 B
Plaintext
35 lines
730 B
Plaintext
--source include/have_ndb.inc
|
|
--source suite/ndb_memcache/include/have_memcache.inc
|
|
|
|
# Test reading & writing tab-separated values
|
|
|
|
--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("t:1", "One\tTwo\t3");
|
|
|
|
$r = $mc->get("t:1");
|
|
if($r == "One\tTwo\t3") {
|
|
print ("Read TSV result OK.\n");
|
|
} else {
|
|
$mc->fail("Expected One\tTwo\t3");
|
|
}
|
|
}
|
|
|
|
EOF
|
|
|
|
SELECT mkey, val1, val2, val3 FROM ndbmemcache.demo_table_tabs where mkey = 1;
|
|
DELETE FROM ndbmemcache.demo_table_tabs;
|