Gecko [ www.jdcpatala.org ]

Name	Size	Permission
memc212_2_cols-master.opt	130 B	-rw-r--r--
memc212_2_cols.test	5.86 KB	-rw-r--r--
memc213_2_intcols-master.opt	124 B	-rw-r--r--
memc213_2_intcols.test	12.48 KB	-rw-r--r--
memc214_5_cols-master.opt	124 B	-rw-r--r--
memc214_5_cols.test	5.03 KB	-rw-r--r--
memc215_50_cols-master.opt	124 B	-rw-r--r--
memc215_50_cols.test	8.96 KB	-rw-r--r--
memc216_5_utf8-master.opt	124 B	-rw-r--r--
memc216_5_utf8.test	7.18 KB	-rw-r--r--
memc217_add-master.opt	124 B	-rw-r--r--
memc217_add.test	3.18 KB	-rw-r--r--
memc218_decr-master.opt	124 B	-rw-r--r--
memc218_decr.test	2.55 KB	-rw-r--r--
memc219_delete-master.opt	124 B	-rw-r--r--
memc219_delete.test	4.02 KB	-rw-r--r--
memc220_fkey_1-master.opt	124 B	-rw-r--r--
memc220_fkey_1.test	5.65 KB	-rw-r--r--
memc221_get-master.opt	124 B	-rw-r--r--
memc221_get.test	2.84 KB	-rw-r--r--
memc222_incr-master.opt	124 B	-rw-r--r--
memc222_incr.test	2.49 KB	-rw-r--r--
memc223_index_1-master.opt	124 B	-rw-r--r--
memc223_index_1.test	5.83 KB	-rw-r--r--
memc224_index_2-master.opt	124 B	-rw-r--r--
memc224_index_2.test	7.22 KB	-rw-r--r--
memc225_index_3-master.opt	124 B	-rw-r--r--
memc225_index_3.test	7.5 KB	-rw-r--r--
memc226_index_4-master.opt	124 B	-rw-r--r--
memc226_index_4.test	6.39 KB	-rw-r--r--
memc227_lock-master.opt	124 B	-rw-r--r--
memc227_lock.test	5.96 KB	-rw-r--r--
memc228_mdl_1-master.opt	124 B	-rw-r--r--
memc228_mdl_1.test	5.66 KB	-rw-r--r--
memc229_mdl_2-master.opt	124 B	-rw-r--r--
memc229_mdl_2.test	5.5 KB	-rw-r--r--
memc230_mdl_3-master.opt	124 B	-rw-r--r--
memc230_mdl_3.test	5.57 KB	-rw-r--r--
memc231_mdl_4-master.opt	124 B	-rw-r--r--
memc231_mdl_4.test	5.35 KB	-rw-r--r--
memc232_NULL_cols-master.opt	124 B	-rw-r--r--
memc232_NULL_cols.test	4.12 KB	-rw-r--r--
memc233_option-master.opt	124 B	-rw-r--r--
memc233_option.test	2.4 KB	-rw-r--r--
memc234_r_batch_1-master.opt	165 B	-rw-r--r--
memc234_r_batch_1.test	2.47 KB	-rw-r--r--
memc235_r_batch_2-master.opt	164 B	-rw-r--r--
memc235_r_batch_2.test	2.3 KB	-rw-r--r--
memc236_r_batch_3-master.opt	164 B	-rw-r--r--
memc236_r_batch_3.test	2.3 KB	-rw-r--r--
memc237_sep_1-master.opt	124 B	-rw-r--r--
memc237_sep_1.test	3.11 KB	-rw-r--r--
memc238_sep_2-master.opt	124 B	-rw-r--r--
memc238_sep_2.test	3.04 KB	-rw-r--r--
memc239_sep_3-master.opt	124 B	-rw-r--r--
memc239_sep_3.test	3.06 KB	-rw-r--r--
memc240_sep_4-master.opt	124 B	-rw-r--r--
memc240_sep_4.test	3.48 KB	-rw-r--r--
memc241_replace-master.opt	124 B	-rw-r--r--
memc241_replace.test	3.06 KB	-rw-r--r--
memc242_set-master.opt	124 B	-rw-r--r--
memc242_set.test	2.73 KB	-rw-r--r--
memc243_view-master.opt	124 B	-rw-r--r--
memc243_view.test	5.35 KB	-rw-r--r--
memc244_w_batch_1-master.opt	164 B	-rw-r--r--
memc244_w_batch_1.test	4.95 KB	-rw-r--r--
memc245_w_batch_2-master.opt	165 B	-rw-r--r--
memc245_w_batch_2.test	4.86 KB	-rw-r--r--
memc246_w_batch_3-master.opt	164 B	-rw-r--r--
memc246_w_batch_3.test	4.86 KB	-rw-r--r--
memc247_cache_policy-master.op...	124 B	-rw-r--r--
memc247_cache_policy.test	20.1 KB	-rw-r--r--
memc248_fkey_2-master.opt	124 B	-rw-r--r--
memc248_fkey_2.test	5.18 KB	-rw-r--r--
memc250_container-master.opt	124 B	-rw-r--r--
memc250_container.test	15.58 KB	-rw-r--r--
memc251_w_batch_6-master.opt	216 B	-rw-r--r--
memc251_w_batch_6.test	5.39 KB	-rw-r--r--
memc255_change_containers_and_...	124 B	-rw-r--r--
memc255_change_containers_and_...	2.16 KB	-rw-r--r--
memc261_container_errs-master....	124 B	-rw-r--r--
memc261_container_errs.test	20.33 KB	-rw-r--r--
memc263_r_batch_4-master.opt	164 B	-rw-r--r--
memc263_r_batch_4.test	4.38 KB	-rw-r--r--
memc265_r_batch_5-master.opt	164 B	-rw-r--r--
memc265_r_batch_5.test	4.86 KB	-rw-r--r--
memc266_w_batch_4-master.opt	164 B	-rw-r--r--
memc266_w_batch_4.test	4.7 KB	-rw-r--r--
memc267_w_batch_5-master.opt	204 B	-rw-r--r--
memc267_w_batch_5.test	5.05 KB	-rw-r--r--
memc268_w_batch_7-master.opt	206 B	-rw-r--r--
memc268_w_batch_7.test	5.26 KB	-rw-r--r--
memc269_funcs_1-master.opt	124 B	-rw-r--r--
memc269_funcs_1.test	6.59 KB	-rw-r--r--
memc272_2_tables-master.opt	124 B	-rw-r--r--
memc272_2_tables.test	7.74 KB	-rw-r--r--
memc273_5_tables-master.opt	124 B	-rw-r--r--
memc273_5_tables.test	8.22 KB	-rw-r--r--
memc274_5_tables_uml-master.op...	124 B	-rw-r--r--
memc274_5_tables_uml.test	8.26 KB	-rw-r--r--
memc275_5_tables_index-master....	124 B	-rw-r--r--
memc275_5_tables_index.test	8.36 KB	-rw-r--r--
memc276_1_table-master.opt	124 B	-rw-r--r--
memc276_1_table.test	8.58 KB	-rw-r--r--
memc277_default_table-master.o...	124 B	-rw-r--r--
memc277_default_table.test	11.82 KB	-rw-r--r--
memc278_view-master.opt	124 B	-rw-r--r--
memc278_view.test	9.52 KB	-rw-r--r--
memc280_misc-master.opt	124 B	-rw-r--r--
memc280_misc.test	1.83 KB	-rw-r--r--
memc281_set_utf8-master.opt	124 B	-rw-r--r--
memc281_set_utf8.test	2.46 KB	-rw-r--r--
memc282_time_expire-master.opt	124 B	-rw-r--r--
memc282_time_expire.test	2.39 KB	-rw-r--r--
memc283_misc-master.opt	204 B	-rw-r--r--
memc283_misc.test	1.98 KB	-rw-r--r--
memc284_misc-master.opt	124 B	-rw-r--r--
memc284_misc.test	2.29 KB	-rw-r--r--
memc285_FTWRL-master.opt	191 B	-rw-r--r--
memc285_FTWRL.test	2.48 KB	-rw-r--r--
memc290_read_committed-master....	274 B	-rw-r--r--
memc290_read_committed.test	4.34 KB	-rw-r--r--
memc_297_crash-master.opt	189 B	-rw-r--r--
memc_297_crash.test	2.48 KB	-rw-r--r--
memc_api_disable_rowlock-maste...	119 B	-rw-r--r--
memc_api_disable_rowlock.test	2.47 KB	-rw-r--r--
memc_api_trx_level-master.opt	155 B	-rw-r--r--
memc_api_trx_level.test	1.64 KB	-rw-r--r--
memcached_alter_column-master....	124 B	-rw-r--r--
memcached_alter_column.test	2.29 KB	-rw-r--r--
memcached_virtual_block-master...	130 B	-rw-r--r--
memcached_virtual_block.test	2.45 KB	-rw-r--r--
rpl_memc270_1-master.opt	189 B	-rw-r--r--
rpl_memc270_1-slave.opt	20 B	-rw-r--r--
rpl_memc270_1.test	5.58 KB	-rw-r--r--
rpl_memc271_2-master.opt	191 B	-rw-r--r--
rpl_memc271_2-slave.opt	22 B	-rw-r--r--
rpl_memc271_2.test	5.65 KB	-rw-r--r--

Code Editor : memc213_2_intcols.test

source include/not_valgrind.inc;
source include/have_memcached_plugin.inc;
source include/not_windows.inc;
source include/have_innodb.inc;

--disable_query_log
CALL mtr.add_suppression("daemon-memcached-w-batch-size': unsigned");
CALL mtr.add_suppression("Could not obtain server's UPN to be used as target service name");
CALL mtr.add_suppression("InnoDB: Warning: MySQL is trying to drop");
--enable_query_log

--enable_connect_log
SET @tx_isolation= @@global.tx_isolation;
SET GLOBAL TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;

# Create the memcached tables
--disable_query_log
source include/memcache_config.inc;
--enable_query_log

INSERT INTO cache_policies VALUES("cache_policy", "innodb_only",
				  "innodb_only", "innodb_only", "innodb_only");

INSERT INTO config_options VALUES("separator", "|");

# describe table for memcache
INSERT INTO containers VALUES ("desc_t1", "test", "t1",
			       "c1", "c2,c21", "c3", "c4", "c5", "PRIMARY");
INSERT INTO containers VALUES ("int_test", "test", "int_test",
			       "k", "v",  "", "", "", "PRIMARY");
USE test;

--disable_warnings
DROP TABLE IF EXISTS int_test;
DROP TABLE IF EXISTS t1;
--enable_warnings
CREATE TABLE t1        (c1 VARCHAR(32),
			c2 INT,
			c21 VARCHAR(1024),
			c3 INT, c4 BIGINT UNSIGNED, c5 INT, primary key(c1))
ENGINE = INNODB;

CREATE TABLE int_test  (k varchar(32),
			v int unsigned NOT NULL, PRIMARY KEY (k)) ENGINE=InnoDB;

INSERT INTO t1 VALUES ('D', 1, 'City', 0, 0, 0);
INSERT INTO t1 VALUES ('B', 2, 'Mitte', 0, 0, 0);
INSERT INTO t1 VALUES ('C', 3, 'West', 0, 0 ,0);
INSERT INTO t1 VALUES ('H', 4, 'Norderstedt', 0, 0, 0);

# Tables must exist before plugin can be started!
INSTALL PLUGIN daemon_memcached SONAME 'libmemcached.so';

# The following select is writing all to  memcache otherwisw memcache is empty.
--sorted_result
SELECT c1,c2,c21 FROM t1;

SELECT SLEEP(2);

--sorted_result
SELECT c1,c2,c21 FROM t1;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results after set:\n";
$val = $memd->set("E","5|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set min border:\n";
$val = $memd->set("E","-2147483648|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set max border:\n";
$val = $memd->set("E","2147483647|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set over max border:\n";
$val = $memd->set("E","2147483648|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

--sorted_result
SELECT c1,c2,c21 FROM t1;

#Test incr/decr command
perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
$val = $memd->set("F","6|Sofia");
print "Here the memcached results after set:\n";
$val = $memd->get("F");
if ($val) { print "$val\n"; }
print "Here the memcached results after calling incr 10:\n";
$val = $memd->incr("F",10);
$val = $memd->get("F");
if ($val) { print "$val\n"; }
print "Here the memcached results after calling decr 4:\n";
$val = $memd->decr("F",4);
$val = $memd->get("F");
if ($val) { print "$val\n"; }
$val = $memd->delete("F",0);
$memd->disconnect_all;
EOF

--sorted_result
SELECT c1,c2,c21 FROM t1;

ALTER TABLE t1 MODIFY c2 varchar(20);

--sorted_result
SELECT c1,c2,c21 FROM t1;

# Test BIGINT
ALTER TABLE t1 MODIFY c2 BIGINT;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results with D,B,H,C:\n";
$val = $memd->get("D");
if ($val) { print "$val\n"; }
$val = $memd->get("B");
if ($val) { print "$val\n"; }
$val = $memd->get("H");
if ($val) { print "$val\n"; }
$val = $memd->get("C");
if ($val) { print "$val\n"; }
print "Here the memcached results after set:\n";
$val = $memd->set("E","5|Ost-BIGINT");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set min border:\n";
$val = $memd->set("E","-9223372036854775808|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set max border:\n";
$val = $memd->set("E","9223372036854775807|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set over max border:\n";
$val = $memd->set("E","9223372036854775808|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after add:\n";
$val = $memd->set("F","-1|Beijing-Signed-BIGINT");
$val = $memd->get("F");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

--sorted_result
SELECT c1,c2,c21 FROM t1;

SET sql_mode='NO_ENGINE_SUBSTITUTION';
# Test SMALLINT
ALTER TABLE t1 MODIFY c2 SMALLINT;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results with D,B,H,C:\n";
$val = $memd->get("D");
if ($val) { print "$val\n"; }
$val = $memd->get("B");
if ($val) { print "$val\n"; }
$val = $memd->get("H");
if ($val) { print "$val\n"; }
$val = $memd->get("C");
if ($val) { print "$val\n"; }
print "Here the memcached results after set:\n";
$val = $memd->set("E","5|Ost-SMALLINT");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set min border:\n";
$val = $memd->set("E","-32768|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set max border:\n";
$val = $memd->set("E","32767|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set over max border:\n";
$val = $memd->set("E","32768|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

--sorted_result
SELECT c1,c2,c21 FROM t1;

# Test TINYINT
ALTER TABLE t1 MODIFY c2 TINYINT;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results with D,B,H,C:\n";
$val = $memd->get("D");
if ($val) { print "$val\n"; }
$val = $memd->get("B");
if ($val) { print "$val\n"; }
$val = $memd->get("H");
if ($val) { print "$val\n"; }
$val = $memd->get("C");
if ($val) { print "$val\n"; }
print "Here the memcached results after set:\n";
$val = $memd->set("E","5|Ost-TINYINT");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set min border:\n";
$val = $memd->set("E","-128|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set max border:\n";
$val = $memd->set("E","127|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set over max border:\n";
$val = $memd->set("E","129|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

--sorted_result
SELECT c1,c2,c21 FROM t1;

# Test BIGINT UNSIGNED
ALTER TABLE t1 MODIFY c2 BIGINT UNSIGNED;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results with D,B,H,C:\n";
$val = $memd->get("D");
if ($val) { print "$val\n"; }
$val = $memd->get("B");
if ($val) { print "$val\n"; }
$val = $memd->get("H");
if ($val) { print "$val\n"; }
$val = $memd->get("C");
if ($val) { print "$val\n"; }
print "Here the memcached results after set:\n";
$val = $memd->set("E","5|Ost-BIGINT-UNSIGNED");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set max border:\n";
$val = $memd->set("E","18446744073709551615|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set over max border:\n";
$val = $memd->set("E","18446744073709551616|Ost");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

# Test MULTI INT COLUMNS
ALTER TABLE t1 MODIFY c21 BIGINT UNSIGNED;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results with D,B,H,C:\n";
$val = $memd->get("D");
if ($val) { print "$val\n"; }
$val = $memd->get("B");
if ($val) { print "$val\n"; }
$val = $memd->get("H");
if ($val) { print "$val\n"; }
$val = $memd->get("C");
if ($val) { print "$val\n"; }
print "Here the memcached results after set:\n";
$val = $memd->set("E","5|5");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set max border:\n";
$val = $memd->set("E","18446744073709551615|18446744073709551615");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after set over max border:\n";
$val = $memd->set("E","18446744073709551616|18446744073709551616");
$val = $memd->get("E");
if ($val) { print "$val\n"; }
print "Here the memcached results after append:\n";
$val = $memd->append("E"," abcde");
if ($val) { print "$val\n"; } else { print "Append to integer value is not supported.\n"; }
$val = $memd->get("E");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

--sorted_result
SELECT c1,c2,c21 FROM t1;

# Test INTEGER KEY
DELETE FROM t1;
ALTER TABLE t1 MODIFY c1 INT;
ALTER TABLE t1 MODIFY c21 VARCHAR(1024);
INSERT INTO t1 VALUES (1, 1, 'City', 0, 0, 0);
INSERT INTO t1 VALUES (2, 2, 'Mitte', 0, 0, 0);
INSERT INTO t1 VALUES (3, 3, 'West', 0, 0 ,0);
INSERT INTO t1 VALUES (4, 4, 'Norderstedt', 0, 0, 0);

--sorted_result
SELECT c1,c2,c21 FROM t1;

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};
print "Here the memcached results with 1,2,3,4:\n";
$val = $memd->get("1");
if ($val) { print "$val\n"; }
$val = $memd->get("2");
if ($val) { print "$val\n"; }
$val = $memd->get("3");
if ($val) { print "$val\n"; }
$val = $memd->get("4");
if ($val) { print "$val\n"; }
print "Here the memcached results after set:\n";
$val = $memd->set("5","5|Ost-INT-KEY");
$val = $memd->get("5");
if ($val) { print "$val\n"; }
print "Here the memcached results after add key with min border:\n";
$val = $memd->add("-2147483648", "6|Ost");
$val = $memd->get("-2147483648");
if ($val) { print "$val\n"; }
print "Here the memcached results after add key with max border:\n";
$val = $memd->add("2147483647","7|Ost");
$val = $memd->get("2147483647");
if ($val) { print "$val\n"; }
print "Here the memcached results after add key with over max border:\n";
$val = $memd->add("2147483648","8|Ost");
$val = $memd->get("2147483648");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

DROP TABLE t1;
SET sql_mode=default;

--echo #
--echo # Bug#20535517	INCORRECT HANDLING OF UNSIGNED NOT NULL INTEGERS IN INNODB_MEMCACHED
--echo #

perl;
use DBI;
use Cache::Memcached;
my $memd = new Cache::Memcached {
  'servers' => [ "127.0.0.1:11213" ],
  'connect_timeout' => 20,
  'select_timeout' => 20
};

$memd->get('@@int_test');
$memd->set("E","543");

print "Here the memcached results with E:\n";
$val = $memd->get("E");
if ($val) { print "$val\n"; }
$memd->disconnect_all;
EOF

SELECT * FROM int_test;
DROP TABLE int_test;

UNINSTALL PLUGIN daemon_memcached;
DROP DATABASE innodb_memcache;

SET @@global.tx_isolation= @tx_isolation;

${this.title}

Code Editor : memc213_2_intcols.test