vincentchu-handlersocket 0.0.1

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test19.pl

@@ -0,0 +1,190 @@
+#!/usr/bin/perl
+
+# vim:sw=2:ai
+
+# test for filters
+
+BEGIN {
+	push @INC, "../common/";
+};
+
+use strict;
+use warnings;
+use bigint;
+use hstest;
+
+my $numeric_types = [
+        [ 'TINYINT', -128, 127 ],
+        [ 'TINYINT UNSIGNED', 0, 255 ],
+        [ 'SMALLINT', -32768, 32768 ],
+        [ 'SMALLINT UNSIGNED', 0, 65535 ],
+        [ 'MEDIUMINT', -8388608, 8388607 ],
+        [ 'MEDIUMINT UNSIGNED', 0, 16777215 ],
+        [ 'INT', -2147483648, 2147483647 ],
+        [ 'INT UNSIGNED', 0, 4294967295 ],
+        [ 'BIGINT', -9223372036854775808, 9223372036854775807 ],
+        [ 'BIGINT UNSIGNED', 0, 18446744073709551615 ],
+        [ 'FLOAT', -32768, 32768 ],
+        [ 'DOUBLE', -2147483648, 2147483647 ],
+];
+my $datetime_types = [
+        [ 'DATE', '0000-00-00', '2011-01-01', '9999-12-31' ],
+        [ 'DATETIME', 0, '2011-01-01 18:30:25' ],
+        [ 'TIME', 0, '18:30:25' ],
+        [ 'YEAR(4)', 1901, 2011, 2155 ],
+        # [ 'TIMESTAMP', 0, 999999999 ],   # DOES NOT WORK YET
+];
+my $string_types = [
+        [ 'CHAR(10)', undef, 1, 2, 5, 10 ],
+        [ 'VARCHAR(10)', undef, 1, 2, 5, 10 ],
+        [ 'BINARY(10)', undef, 1, 2, 5, 10 ],
+        [ 'VARBINARY(10)', undef, 1, 2, 5, 10 ],
+        [ 'CHAR(255)', undef, 1, 2, 5, 10, 100, 200, 255 ],
+        [ 'VARCHAR(255)', undef, 1, 2, 5, 10, 100, 200, 255 ],
+        [ 'VARCHAR(511)', undef, 1, 2, 5, 10, 100, 200, 511 ],
+        [ 'LONGTEXT', 500, 1, 2, 5, 10, 100, 200, 511 ], # NOT SUPPORTED YET
+        [ 'LONGBLOB', 500, 1, 2, 5, 10, 100, 200, 511 ], # NOT SUPPORTED YET
+#       [ 'VARCHAR(4096)', 500, 1, 2, 5, 10, 100, 200, 255, 256, 4095 ],
+#       [ 'VARCHAR(16383)', 500, 1, 2, 5, 10, 100, 200, 255, 256, 4095, 4096, 16383 ],
+#       [ 'VARBINARY(16383)', 500, 1, 2, 5, 10, 100, 200, 255, 256, 4095, 4096, 16383 ],
+];
+
+for my $rec (@$numeric_types) {
+  my ($typ, $minval, $maxval) = @$rec;
+  my @vals = ();
+  push(@vals, 0);
+  push(@vals, $maxval);
+  if ($minval != 0) {
+    push(@vals, $minval);
+  }
+  my $v1 = $minval;
+  my $v2 = $maxval;
+  for (my $i = 0; $i < 3; ++$i) {
+    $v1 /= 3;
+    $v2 /= 3;
+    push(@vals, int($v1));
+    push(@vals, int($v2));
+  }
+  my %vm = map { $_ => 1 } @vals;
+  @vals = sort { $a <=> $b } keys %vm;
+  push(@vals, undef);
+  test_one($typ, undef, \@vals);
+}
+
+for my $rec (@$datetime_types) {
+  my ($typ, @vals) = @$rec;
+  push(@vals, undef);
+  test_one($typ, undef, \@vals);
+}
+
+for my $rec (@$string_types) {
+  my ($typ, $keylen, @vs) = @$rec;
+  my @vals = ();
+  srand(999);
+  for my $len (@vs) {
+    my $s = '';
+    my @arr = ();
+    # print "$len 1\n";
+    for (my $i = 0; $i < $len; ++$i) {
+      my $v = int(rand(10));
+      $arr[$i] = chr(65 + $v);
+    }
+    # print "2\n";
+    push(@vals, join('', @arr));
+  }
+  push(@vals, undef);
+  test_one($typ, $keylen, \@vals);
+}
+
+my $hs;
+
+sub test_one {
+  my ($typ, $keylen, $values) = @_;
+  print "\n$typ -------------------------------------------------\n\n";
+  my $keylen_str = '';
+  if (defined($keylen)) {
+    $keylen_str = "($keylen)";
+  }
+  my $dbh = hstest::init_testdb();
+  my $table = 'hstesttbl';
+  my $tablesize = 3;
+  $dbh->do(
+    "create table $table " .
+    "(k1 int not null, k2 int not null, " .
+    "v1 int not null, v2 $typ default null, " .
+    "primary key (k1, k2) ) engine = innodb");
+  my $sth = $dbh->prepare("insert into $table values (?,?,?,?)");
+  for (my $i = 0; $i < $tablesize; ++$i) {
+    my $j = 0;
+    for my $v (@$values) {
+      $sth->execute($i, $j, $i, $v);
+      ++$j;
+    }
+  }
+  $hs = hstest::get_hs_connection(undef, 9999);
+  my $dbname = $hstest::conf{dbname};
+  $hs->open_index(1, $dbname, $table, '', 'k1,k2,v1,v2', 'v2');
+  my $minval = $values->[0];
+  # select * ... where (k1, k2) >= ('', $minval)
+  exec_multi(
+    4, "FILTER($typ) NO FILTER",
+    [ 1, '>=', [ '', $minval ], 1000, 0 ]
+  );
+  for my $v (@$values) {
+    my $vstr = defined($v) ? $v : 'NULL';
+    # select * ... where (k1, k2) >= ('', $minval) and v2 = $v
+    exec_multi(
+      4, "FILTER($typ) v2 = $vstr",
+      [ 1, '>=', [ '', $minval ], 1000, 0, undef, undef, [ [ 'F', '=', 0, $v ] ] ]
+    );
+    # select * ... where (k1, k2) >= ('', $minval) and v2 != $v
+    exec_multi(
+      4, "FILTER($typ) v2 != $vstr",
+      [ 1, '>=', [ '', $minval ], 1000, 0, undef, undef, [ [ 'F', '!=', 0, $v ] ] ]
+    );
+    # select * ... where (k1, k2) >= ('', $minval) and v2 >= $v
+    exec_multi(
+      4, "FILTER($typ) v2 >= $vstr",
+      [ 1, '>=', [ '', $minval ], 1000, 0, undef, undef, [ [ 'F', '>=', 0, $v ] ] ]
+    );
+    # select * ... where (k1, k2) >= ('', $minval) and v2 < $v
+    exec_multi(
+      4, "FILTER($typ) v2 < $vstr",
+      [ 1, '>=', [ '', $minval ], 1000, 0, undef, undef, [ [ 'F', '<', 0, $v ] ] ]
+    );
+    # select * ... where (k1, k2) >= ('', $minval) and v2 > $v
+    exec_multi(
+      4, "FILTER($typ) v2 > $vstr",
+      [ 1, '>=', [ '', $minval ], 1000, 0, undef, undef, [ [ 'F', '>', 0, $v ] ] ]
+    );
+    # select * ... where (k1, k2) >= ('', $minval) and v2 <= $v
+    exec_multi(
+      4, "FILTER($typ) v2 <= $vstr",
+      [ 1, '>=', [ '', $minval ], 1000, 0, undef, undef, [ [ 'F', '<=', 0, $v ] ] ]
+    );
+  }
+  undef $hs;
+}
+
+sub exec_multi {
+  my $width = shift(@_);
+  my $mess = shift(@_);
+  print "$mess\n";
+  my $mres = $hs->execute_multi(\@_);
+  for my $res (@$mres) {
+    my $code = shift(@$res);
+    my $nrows = $code == 0 ? scalar(@$res) / $width : 0;
+    print "code=$code rows=$nrows\n";
+    my $i = 0;
+    for my $fld (@$res) {
+      $fld = 'NULL' if !defined($fld);
+      print "[$fld]";
+      if (++$i >= $width) {
+	print "\n";
+	$i = 0;
+      }
+    }
+    print "\n";
+  }
+}
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test20.expected

@@ -0,0 +1,2 @@
+open_index 1st r=1
+open_index 2nd r=0

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test20.pl

@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+# vim:sw=2:ai
+
+# test for a bug that table mdl is not released when open_index is failed
+
+BEGIN {
+	push @INC, "../common/";
+};
+
+use strict;
+use warnings;
+use hstest;
+
+my $dbh = hstest::init_testdb();
+my $dbname = $hstest::conf{dbname};
+my $table = 'hstesttbl';
+
+$dbh->do("drop table if exists $table");
+
+my $hs = hstest::get_hs_connection();
+my $r = $hs->open_index(1, $dbname, $table, '', 'k,v'); # fails
+print "open_index 1st r=$r\n";
+undef $hs;
+
+$dbh->do(
+  "create table $table (k varchar(30) primary key, v varchar(30) not null) " .
+  "engine = innodb");
+
+$hs = hstest::get_hs_connection();
+$r = $hs->open_index(1, $dbname, $table, '', 'k,v'); # success
+print "open_index 2nd r=$r\n";
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test21.expected

@@ -0,0 +1,11 @@
+HS
+k10 v704-10
+k30 v52-30
+k40 v878-40
+k50 v682-50
+SQL
+k10 v704-10
+k30 v52-30
+k40 v878-40
+k50 v682-50
+END

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test21.pl

@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+
+# vim:sw=2:ai
+
+# test for 'IN'
+
+BEGIN {
+	push @INC, "../common/";
+};
+
+use strict;
+use warnings;
+use hstest;
+
+my $dbh = hstest::init_testdb();
+my $table = 'hstesttbl';
+my $tablesize = 100;
+$dbh->do(
+  "create table $table (k varchar(30) primary key, v varchar(30) not null) " .
+  "engine = innodb");
+srand(999);
+
+my %valmap = ();
+
+my $sth = $dbh->prepare("insert into $table values (?,?)");
+for (my $i = 0; $i < $tablesize; ++$i) {
+  my $k = "k" . $i;
+  my $v = "v" . int(rand(1000)) . "-" . $i;
+  $sth->execute($k, $v);
+  $valmap{$k} = $v;
+}
+
+my $hs = hstest::get_hs_connection();
+my $dbname = $hstest::conf{dbname};
+$hs->open_index(1, $dbname, $table, '', 'k,v');
+my $vs = [ 'k10', 'k20x', 'k30', 'k40', 'k50' ];
+# select k,v from $table where k in $vs
+my $r = $hs->execute_single(1, '=', [ '' ], 10000, 0, undef, undef, undef,
+  0, $vs);
+shift(@$r);
+print "HS\n";
+my $len = scalar(@$r) / 2;
+for (my $i = 0; $i < $len; ++$i) {
+  my $k = $r->[$i * 2];
+  my $v = $r->[$i * 2 + 1];
+  print "$k $v\n";
+}
+
+print "SQL\n";
+my $aref = $dbh->selectall_arrayref(
+  "select k,v from $table where k in ('k10', 'k20x', 'k30', 'k40', 'k50') "
+  . "order by k");
+for my $row (@$aref) {
+  my ($k, $v) = @$row;
+  print "$k $v\n";
+}
+print "END\n";
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test22.expected

@@ -0,0 +1,9 @@
+HS
+k10 v704-10 1
+k30 v52-30 1
+k50 v682-50 1
+SQL
+k10 v704-10 1
+k30 v52-30 1
+k50 v682-50 1
+END

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test22.pl

@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+
+# vim:sw=2:ai
+
+# test for 'IN' and filters
+
+BEGIN {
+	push @INC, "../common/";
+};
+
+use strict;
+use warnings;
+use hstest;
+
+my $dbh = hstest::init_testdb();
+my $table = 'hstesttbl';
+my $tablesize = 100;
+$dbh->do(
+  "create table $table (k varchar(30) primary key, " .
+  "v varchar(30) not null, v2 int not null) " .
+  "engine = innodb");
+srand(999);
+
+my %valmap = ();
+
+my $sth = $dbh->prepare("insert into $table values (?,?,?)");
+for (my $i = 0; $i < $tablesize; ++$i) {
+  my $k = "k" . $i;
+  my $v = "v" . int(rand(1000)) . "-" . $i;
+  my $v2 = ($i / 10) % 2;
+  $sth->execute($k, $v, $v2);
+  $valmap{$k} = $v;
+}
+
+my $hs = hstest::get_hs_connection();
+my $dbname = $hstest::conf{dbname};
+$hs->open_index(1, $dbname, $table, '', 'k,v,v2', 'v2');
+my $vs = [ 'k10', 'k20x', 'k30', 'k40', 'k50' ];
+# select k,v,v2 from $table where k in $vs
+my $r = $hs->execute_single(1, '=', [ '' ], 10000, 0, undef, undef,
+  [['F', '=', 0, '1']], 0, $vs);
+shift(@$r);
+print "HS\n";
+my $len = scalar(@$r) / 3;
+for (my $i = 0; $i < $len; ++$i) {
+  my $k = $r->[$i * 3];
+  my $v = $r->[$i * 3 + 1];
+  my $v2 = $r->[$i * 3 + 2];
+  print "$k $v $v2\n";
+}
+
+print "SQL\n";
+my $aref = $dbh->selectall_arrayref(
+  "select k,v,v2 from $table where k in ('k10', 'k20x', 'k30', 'k40', 'k50') "
+  . "and v2 = '1' order by k");
+for my $row (@$aref) {
+  my ($k, $v, $v2) = @$row;
+  print "$k $v $v2\n";
+}
+print "END\n";
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/test23.expected

@@ -0,0 +1,101 @@
+HS
+k0 v102-0 0
+k1 v635-1 0
+k10 MOD 1
+k11 v751-11 1
+k12 v367-12 1
+k13 v400-13 1
+k14 v397-14 1
+k15 v170-15 1
+k16 v719-16 1
+k17 v734-17 1
+k18 v587-18 1
+k19 v494-19 1
+k2 v803-2 0
+k20 v523-20 0
+k21 v954-21 0
+k22 v433-22 0
+k23 v820-23 0
+k24 v283-24 0
+k25 v837-25 0
+k26 v205-26 0
+k27 v415-27 0
+k28 v545-28 0
+k29 v583-29 0
+k3 v925-3 0
+k30 MOD 1
+k31 v323-31 1
+k32 v614-32 1
+k33 v679-33 1
+k34 v805-34 1
+k35 v451-35 1
+k36 v115-36 1
+k37 v269-37 1
+k38 v218-38 1
+k39 v617-39 1
+k4 v775-4 0
+k40 v878-40 0
+k41 v345-41 0
+k42 v512-42 0
+k43 v969-43 0
+k44 v408-44 0
+k45 v291-45 0
+k46 v858-46 0
+k47 v953-47 0
+k48 v710-48 0
+k49 v142-49 0
+k5 v537-5 0
+k50 MOD 1
+k51 v934-51 1
+k52 v621-52 1
+k53 v965-53 1
+k54 v574-54 1
+k55 v204-55 1
+k56 v298-56 1
+k57 v134-57 1
+k58 v983-58 1
+k59 v444-59 1
+k6 v592-6 0
+k60 v144-60 0
+k61 v152-61 0
+k62 v187-62 0
+k63 v215-63 0
+k64 v8-64 0
+k65 v697-65 0
+k66 v651-66 0
+k67 v280-67 0
+k68 v701-68 0
+k69 v537-69 0
+k7 v414-7 0
+k70 v413-70 1
+k71 v69-71 1
+k72 v86-72 1
+k73 v822-73 1
+k74 v670-74 1
+k75 v370-75 1
+k76 v806-76 1
+k77 v688-77 1
+k78 v26-78 1
+k79 v66-79 1
+k8 v590-8 0
+k80 v802-80 0
+k81 v171-81 0
+k82 v557-82 0
+k83 v847-83 0
+k84 v777-84 0
+k85 v730-85 0
+k86 v987-86 0
+k87 v115-87 0
+k88 v646-88 0
+k89 v496-89 0
+k9 v302-9 0
+k90 v120-90 1
+k91 v684-91 1
+k92 v374-92 1
+k93 v65-93 1
+k94 v370-94 1
+k95 v174-95 1
+k96 v828-96 1
+k97 v867-97 1
+k98 v759-98 1
+k99 v703-99 1