vincentchu-handlersocket 0.0.1

data/ext/HandlerSocket-Plugin-for-MySQL/perl-Net-HandlerSocket/t/Net-HandlerSocket.t

@@ -0,0 +1,15 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl HandlerSocket.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 1;
+BEGIN { use_ok('Net::HandlerSocket') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/Makefile

@@ -0,0 +1,79 @@
+
+SHELL=/bin/bash
+
+all:
+	if [ "`uname -o`" = "Cygwin" ]; then \
+	  ../../scripts/vsenv90.bat -c 'make test'; \
+	else \
+	  $(MAKE) test; \
+	fi
+
+force:
+	export CXX="$(CXX)"; \
+	export SUNJDK="$(SUNJDK)"; \
+	for i in test_*; do \
+	  pushd $$i > /dev/null; \
+	  echo -n "$$i ... "; \
+	  if [ -f ./DONE ]; then \
+	    echo "skip"; \
+	  elif ! ./run.sh > test.log; then \
+	    echo -n "FORCE ... "; \
+	    $(MAKE) accept; \
+	    if ! ./run.sh > test.log; then \
+	      echo "FAILED"; \
+	      exit 1; \
+	    fi; \
+	  else \
+	    echo "success"; \
+	  fi; \
+	  touch ./DONE; \
+	  popd > /dev/null; \
+	done; \
+	exit 0;
+
+test:
+	export CXX="$(CXX)"; \
+	export SUNJDK="$(SUNJDK)"; \
+	for i in test_*; do \
+	  pushd $$i > /dev/null; \
+	  echo -n "$$i ... "; \
+	  if [ -f ./DONE ]; then \
+	    echo "skip"; \
+	  elif ! ./run.sh > test.log; then \
+	    echo "FAILED"; \
+	    exit 1; \
+	  else \
+	    echo "success"; \
+	  fi; \
+	  touch ./DONE; \
+	  popd > /dev/null; \
+	done; \
+	exit 0;
+
+retest: clean test
+
+clean:
+	for i in test_*; do \
+	  pushd $$i > /dev/null; \
+	  if [ -f Makefile ]; then \
+	    $(MAKE) clean; \
+	  fi; \
+	  rm -rf ./GWS_db; \
+	  rm -f ./DONE; \
+	  popd > /dev/null; \
+	done; \
+	exit 0;
+	rm -f test_*/*.log
+	rm -f test_*/*.out
+	rm -rf test_*/*_db
+	rm -f test_*/*.dll
+	rm -f test_*/*.idb
+	rm -f test_*/*.obj
+	rm -f test_*/*.manifest
+	rm -f test_*/*.so
+
+cleanprepare:
+	rm -f ../run/*.exe
+	rm -f ../run/poi.jar
+	rm -f ../run/*.dll
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/common/binary_my.cnf

@@ -0,0 +1,4 @@
+
+[perl]
+default-character-set-name = binary
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/common/compat.sh

@@ -0,0 +1,29 @@
+#!/bin/sh
+
+if [ "`uname -o`" = "Cygwin" ]; then
+  export DIFF='diff --ignore-space --strip-trailing-cr'
+elif [ "`uname`" = "Darwin" ]; then
+  export DIFF='diff'
+else
+  export DIFF='diff --ignore-space --strip-trailing-cr'
+fi
+
+compile_c() {
+  if [ "`uname -o`" = "Cygwin" ]; then
+    cl /W3 /I../.. /EHsc /FD /MD "$1" /link /DLL "/OUT:$2.dll" \
+      ../../libase.lib 2> cl.log
+  else
+    $CXX -I../.. -O3 -g -Wall -fPIC -shared "$1" -o "$2.so"
+  fi
+}
+
+compile_j() {
+  if [ "`uname -o`" = "Cygwin" ]; then
+    jdk="`echo /cygdrive/c/Program\ Files/Java/jdk* | head -1`"
+  else
+    jdk="$SUNJDK"
+  fi
+  "$jdk/bin/javac" -g "$1"/*.java
+  "$jdk/bin/jar" -cf "$1.jar" "$1"/*.class
+}
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/common/hstest.pm

@@ -0,0 +1,66 @@
+
+# vim:sw=2:ai
+
+package hstest;
+
+use DBI;
+use Net::HandlerSocket;
+
+our %conf = ();
+
+sub get_conf_env {
+  my ($key, $defval) = @_;
+  return $ENV{$key} || $defval;
+}
+
+sub init_conf {
+  $conf{host} = get_conf_env("MYHOST", "localhost");
+  $conf{myport} = get_conf_env("MYPORT", 3306);
+  $conf{dbname} = get_conf_env("MYDBNAME", "hstestdb");
+  $conf{ssps} = get_conf_env("MYSSPS");
+  $conf{user} = get_conf_env("MYSQLUSER", "root");
+  $conf{pass} = get_conf_env("MYSQLPASS", "");
+  $conf{hsport} = get_conf_env("HSPORT", 9998);
+  $conf{hspass} = get_conf_env("HSPASS", undef);
+}
+
+sub get_dbi_connection {
+  my ($dbname, $host, $myport, $ssps, $user, $pass)
+    = ($conf{dbname}, $conf{host}, $conf{myport}, $conf{ssps},
+      $conf{user}, $conf{pass});
+  my $mycnf = "binary_my.cnf";
+  my $dsn = "DBI:mysql:database=;host=$host;port=$myport"
+    . ";mysql_server_prepare=$ssps"
+    . ";mysql_read_default_group=perl"
+    . ";mysql_read_default_file=../common/$mycnf";
+  my $dbh = DBI->connect($dsn, $user, $pass, { RaiseError => 1 });
+  return $dbh;
+}
+
+sub init_testdb {
+  my $charset = $_[0] || "binary";
+  my $dbh = get_dbi_connection();
+  my $dbname = $conf{dbname};
+  $dbh->do("drop database if exists $dbname");
+  $dbh->do("create database $dbname default character set $charset");
+  $dbh->do("use $dbname");
+  return $dbh;
+}
+
+sub get_hs_connection {
+  my ($host, $port) = @_;
+  $host ||= $conf{host};
+  $port ||= $conf{hsport};
+  my $hsargs = { 'host' => $host, 'port' => $port };
+  my $conn = new Net::HandlerSocket($hsargs);
+  if (defined($conn) && defined($conf{hspass})) {
+    $conn->auth($conf{hspass});
+  }
+  return $conn;
+}
+
+
+init_conf();
+
+1;
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/Makefile

@@ -0,0 +1,4 @@
+
+clean:
+	rm -f *.log *.log2 *.log2h
+

data/ext/HandlerSocket-Plugin-for-MySQL/regtest/test_01_lib/run.sh

@@ -0,0 +1,27 @@
+#!/bin/bash
+
+TESTS="01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23";
+
+source ../common/compat.sh
+
+for i in $TESTS; do
+  perl "test$i.pl" > test$i.log 2> test$i.log2
+done
+for i in $TESTS; do
+  if ! $DIFF -u test$i.log test$i.expected; then
+    echo "test$i failed";
+    exit 1
+  fi
+  if [ -f "test$i.expect2" ]; then
+    lines="`wc -l < test$i.expect2`"
+    head -$lines test$i.log2 > test$i.log2h
+    if ! $DIFF -u test$i.log2h test$i.expect2 && \
+       ! $DIFF -u test$i.log2h test$i.expect2ef; then
+      echo "test$i failed";
+      exit 1
+    fi
+  fi
+done
+echo "OK."
+exit 0
+

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

@@ -0,0 +1,100 @@
+k0 v1020
+k1 v6351
+k10 v70410
+k11 v75111
+k12 v36712
+k13 v40013
+k14 v39714
+k15 v17015
+k16 v71916
+k17 v73417
+k18 v58718
+k19 v49419
+k2 v8032
+k20 v52320
+k21 v95421
+k22 v43322
+k23 v82023
+k24 v28324
+k25 v83725
+k26 v20526
+k27 v41527
+k28 v54528
+k29 v58329
+k3 v9253
+k30 v5230
+k31 v32331
+k32 v61432
+k33 v67933
+k34 v80534
+k35 v45135
+k36 v11536
+k37 v26937
+k38 v21838
+k39 v61739
+k4 v7754
+k40 v87840
+k41 v34541
+k42 v51242
+k43 v96943
+k44 v40844
+k45 v29145
+k46 v85846
+k47 v95347
+k48 v71048
+k49 v14249
+k5 v5375
+k50 v68250
+k51 v93451
+k52 v62152
+k53 v96553
+k54 v57454
+k55 v20455
+k56 v29856
+k57 v13457
+k58 v98358
+k59 v44459
+k6 v5926
+k60 v14460
+k61 v15261
+k62 v18762
+k63 v21563
+k64 v864
+k65 v69765
+k66 v65166
+k67 v28067
+k68 v70168
+k69 v53769
+k7 v4147
+k70 v41370
+k71 v6971
+k72 v8672
+k73 v82273
+k74 v67074
+k75 v37075
+k76 v80676
+k77 v68877
+k78 v2678
+k79 v6679
+k8 v5908
+k80 v80280
+k81 v17181
+k82 v55782
+k83 v84783
+k84 v77784
+k85 v73085
+k86 v98786
+k87 v11587
+k88 v64688
+k89 v49689
+k9 v3029
+k90 v12090
+k91 v68491
+k92 v37492
+k93 v6593
+k94 v37094
+k95 v17495
+k96 v82896
+k97 v86797
+k98 v75998
+k99 v70399

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

@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+# vim:sw=2:ai
+
+# test for libmysql
+
+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 $aref = $dbh->selectall_arrayref("select k,v from $table order by k");
+for my $row (@$aref) {
+  my ($k, $v) = @$row;
+  print "$k $v\n";
+}
+

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

@@ -0,0 +1,100 @@
+k0 v1020
+k1 v6351
+k10 v70410
+k11 v75111
+k12 v36712
+k13 v40013
+k14 v39714
+k15 v17015
+k16 v71916
+k17 v73417
+k18 v58718
+k19 v49419
+k2 v8032
+k20 v52320
+k21 v95421
+k22 v43322
+k23 v82023
+k24 v28324
+k25 v83725
+k26 v20526
+k27 v41527
+k28 v54528
+k29 v58329
+k3 v9253
+k30 v5230
+k31 v32331
+k32 v61432
+k33 v67933
+k34 v80534
+k35 v45135
+k36 v11536
+k37 v26937
+k38 v21838
+k39 v61739
+k4 v7754
+k40 v87840
+k41 v34541
+k42 v51242
+k43 v96943
+k44 v40844
+k45 v29145
+k46 v85846
+k47 v95347
+k48 v71048
+k49 v14249
+k5 v5375
+k50 v68250
+k51 v93451
+k52 v62152
+k53 v96553
+k54 v57454
+k55 v20455
+k56 v29856
+k57 v13457
+k58 v98358
+k59 v44459
+k6 v5926
+k60 v14460
+k61 v15261
+k62 v18762
+k63 v21563
+k64 v864
+k65 v69765
+k66 v65166
+k67 v28067
+k68 v70168
+k69 v53769
+k7 v4147
+k70 v41370
+k71 v6971
+k72 v8672
+k73 v82273
+k74 v67074
+k75 v37075
+k76 v80676
+k77 v68877
+k78 v2678
+k79 v6679
+k8 v5908
+k80 v80280
+k81 v17181
+k82 v55782
+k83 v84783
+k84 v77784
+k85 v73085
+k86 v98786
+k87 v11587
+k88 v64688
+k89 v49689
+k9 v3029
+k90 v12090
+k91 v68491
+k92 v37492
+k93 v6593
+k94 v37094
+k95 v17495
+k96 v82896
+k97 v86797
+k98 v75998
+k99 v70399