prestogres 0.1.0

data/pgpool2/test/regression/tests/003.failover/expected.r

@@ -0,0 +1,6 @@
+ node_id | hostname | port  | status | lb_weight |  role  
+---------+----------+-------+--------+-----------+--------
+ 0       | /tmp     | 11000 | 2      | 0.500000  | master
+ 1       | /tmp     | 11001 | 3      | 0.500000  | slave
+(2 rows)
+

data/pgpool2/test/regression/tests/003.failover/expected.s

@@ -0,0 +1,6 @@
+ node_id | hostname | port  | status | lb_weight |  role   
+---------+----------+-------+--------+-----------+---------
+ 0       | /tmp     | 11000 | 2      | 0.500000  | primary
+ 1       | /tmp     | 11001 | 3      | 0.500000  | standby
+(2 rows)
+

data/pgpool2/test/regression/tests/003.failover/test.sh

@@ -0,0 +1,45 @@
+#! /bin/sh
+#-------------------------------------------------------------------
+# test script for failover
+#
+source $TESTLIBS
+TESTDIR=testdir
+PG_CTL=$PGBIN/pg_ctl
+PSQL=$PGBIN/psql
+
+for mode in s r
+do
+	rm -fr $TESTDIR
+	mkdir $TESTDIR
+	cd $TESTDIR
+
+# create test environment
+	echo -n "creating test environment..."
+	sh $PGPOOL_SETUP -m $mode -n 2 --no-stop|| exit 1
+	echo "done."
+
+	source ./bashrc.ports
+
+	export PGPORT=$PGPOOL_PORT
+
+	$PSQL -c "show pool_nodes" test
+
+	# trrigger failover
+	$PG_CTL -D data1 -m f stop
+	wait_for_pgpool_startup
+	$PSQL -c "show pool_nodes" test > result
+
+	# check the output of "show pool_nodes".
+	cmp result ../expected.$mode > /dev/null 2>&1
+	if [ $? != 0 ];then
+		./shutdownall
+		exit 1
+	fi
+		
+	./shutdownall
+
+	cd ..
+
+done
+
+exit 0

data/pgpool2/test/regression/tests/004.watchdog/master.conf

@@ -0,0 +1,12 @@
+# master watchdog
+use_watchdog = on
+wd_hostname = 'localhost'
+wd_port = 11004
+wd_heartbeat_port = 11005
+heartbeat_destination0 = 'localhost'
+heartbeat_destination_port0 = 11005 
+heartbeat_destination1 = 'localhost'
+heartbeat_destination_port1 = 11105
+other_pgpool_hostname1 = 'localhost'
+other_pgpool_port1 = 11102
+other_wd_port1 = 11104

data/pgpool2/test/regression/tests/004.watchdog/standby.conf

@@ -0,0 +1,19 @@
+# standby watchdog
+use_watchdog = on
+wd_hostname = 'localhost'
+wd_port = 11104
+wd_heartbeat_port = 11105
+heartbeat_destination0 = 'localhost'
+heartbeat_destination_port0 = 11105 
+heartbeat_destination1 = 'localhost'
+heartbeat_destination_port1 = 11005
+other_pgpool_hostname1 = 'localhost'
+other_pgpool_port1 = 11002
+other_wd_port1 = 11004
+
+backend_hostname0 = ''
+backend_port0 = 11000
+backend_weight0 = 1
+backend_hostname1 = ''
+backend_port1 = 11001
+backend_weight1 = 1

data/pgpool2/test/regression/tests/004.watchdog/test.sh

@@ -0,0 +1,52 @@
+#! /bin/sh
+#-------------------------------------------------------------------
+# test script for watchdog
+source $TESTLIBS
+TESTDIR=master
+
+rm -fr $TESTDIR
+mkdir $TESTDIR
+cd $TESTDIR
+
+# create master environment
+echo -n "creating master pgpool..."
+sh $PGPOOL_SETUP -m s -n 2 -p 11000|| exit 1
+echo "done."
+cat ../master.conf >> etc/pgpool.conf
+
+./startall
+wait_for_pgpool_startup
+
+cd ..
+
+# create standby environment
+sdir=standby
+rm -fr $sdir
+mkdir $sdir
+cd $sdir
+echo -n "creating standby pgpool..."
+sh $PGPOOL_SETUP -m s -n 2 -p 11100|| exit 1
+echo "done."
+cat ../standby.conf >> etc/pgpool.conf
+egrep 'backend_data_directory0|backend_data_directory1|failover_command|follow_master_command' ../$TESTDIR/etc/pgpool.conf >> etc/pgpool.conf
+./startall
+wait_for_pgpool_startup
+cd ..
+
+# stop master pgpool and see if standby take over
+$PGPOOL_INSTALL_DIR/bin/pgpool -f master/etc/pgpool.conf -m f stop
+
+sleep 1
+
+RESULT=`grep "wd_escalation: escalated to master pgpool successfully" standby/log/pgpool.log`
+
+cd master
+./shutdownall
+cd ../standby
+./shutdownall
+
+if [ -z "$RESULT" ]; then
+    exit 1
+fi
+
+exit 0

data/pgpool2/test/regression/tests/050.bug58/test.sh

@@ -0,0 +1,50 @@
+#! /bin/sh
+#-------------------------------------------------------------------
+# test script for bug#58
+# 0000058: query cache invalidation does not fire for multiple DML in transaction
+WHOAMI=`whoami`
+source $TESTLIBS
+TESTDIR=testdir
+PSQL=$PGBIN/psql
+
+rm -fr $TESTDIR
+mkdir $TESTDIR
+cd $TESTDIR
+
+# create test environment
+echo -n "creating test environment..."
+sh $PGPOOL_SETUP -m s -n 1 --no-stop|| exit 1
+echo "done."
+
+source ./bashrc.ports
+
+echo "memory_cache_enabled = on" >> etc/pgpool.conf
+
+#./startall
+
+export PGPORT=$PGPOOL_PORT
+
+wait_for_pgpool_startup
+
+$PSQL test <<EOF
+CREATE TABLE t1(i INTEGER);
+CREATE TABLE t2(i INTEGER);
+SELECT * FROM t1;		-- this creates a cache entry
+BEGIN;
+DELETE FROM t2 WHERE i = 0;		-- this tries to invalidate cache entry for t2 but fails. Fine.
+INSERT INTO t1(i) VALUES(1);	-- because of the bug, this does not invalidate the cache entry for t1
+COMMIT;
+
+SELECT * FROM t1;		-- because the cache entry for t1 remains, this returns outdated result
+EOF
+
+./shutdownall
+
+#
+# check if pgpool fetches outdated cache entry
+grep "query result fetched from cache" log/pgpool.log >/dev/null 2>&1
+if [ $? = 0 ];then
+	# cache found! The bug reveals.
+	exit 1
+fi
+exit 0

data/pgpool2/test/regression/tests/051.bug60/bug.sql

@@ -0,0 +1,12 @@
+-- This script shows the problem. When run in a psql connected to
+-- pgpool with one master and one read-only replica, this will cause
+-- the pgpool process to exit because the exception found in the
+-- commit (in the master node) does not match the success code for the
+-- commit in the read-only replica.
+
+-- The expected behavior would be to continue execution normally
+-- without dropping the connection.
+
+begin;
+insert into my_table ( col1 ) values ( 'ouch' );
+commit;

data/pgpool2/test/regression/tests/051.bug60/database-clean.sql

@@ -0,0 +1,6 @@
+-- This is -*- sql -*- code that removes the test data from the
+-- database, to leave things as clean as we found them.
+
+drop trigger t1 on my_table;
+drop function p1();
+drop table my_table;

data/pgpool2/test/regression/tests/051.bug60/database-setup.sql

@@ -0,0 +1,28 @@
+-- This is a simple -*- sql -*- file that sets up a simple table to
+-- which inserts cannot happen. This is enforced by a deferred
+-- trigger, which allows for the easy reproduction of an issue
+-- observed with commit raises an exception.
+
+create table my_table (
+  col1 text not null primary key
+);
+
+-- The p1() function simply takes the place of a trigger that would
+-- perform semantic or integrity validations that must occur at the
+-- end of the transaction. In our case, it simply raises an exception
+-- (ie, always fails).
+
+create function p1() returns trigger as
+$$
+begin
+        raise exception 'some integrity violation';
+end;
+$$
+language plpgsql;
+
+-- A simple delayed constraint that insures that the p1() function is
+-- invoked at the commit stage.
+
+create constraint trigger t1 after insert on my_table 
+deferrable initially deferred 
+for each row execute procedure p1();

data/pgpool2/test/regression/tests/051.bug60/test.sh

@@ -0,0 +1,79 @@
+#! /bin/sh
+#-------------------------------------------------------------------
+# test script for bug reported in bug track #60
+# The bug occurs when all of conditions below are met:
+#
+# - streaming replication mode
+# - run in an explicit transaction
+# - primary fails on commit
+#
+# Note that pgpool disconnects the session as expected but the
+# reporter thinks pgpool should not disconnects the session, just
+# report an error. If the script is executed under native replication
+# mode, session is not disconnect.  So I think the complain is fair
+# enough.
+#
+# Fixed in: http://git.postgresql.org/gitweb/?p=pgpool2.git;a=commit;h=e7e350465a6f33562322304b56f02cdbb1492641
+#
+WHOAMI=`whoami`
+source $TESTLIBS
+TESTDIR=testdir
+PSQL=$PGBIN/psql
+
+rm -fr $TESTDIR
+mkdir $TESTDIR
+cd $TESTDIR
+
+# create test environment
+echo -n "creating test environment..."
+sh $PGPOOL_SETUP -m s -n 2 --no-stop || exit 1
+echo "done."
+
+source ./bashrc.ports
+
+#./startall
+wait_for_pgpool_startup
+
+export PGPORT=$PGPOOL_PORT
+
+# set up trigger
+$PSQL -f ../database-setup.sql test
+
+# trigger the bug
+$PSQL -f ../bug.sql test
+
+# trigger the bug in extended protocol mode
+perl <<EOF
+use strict;
+use DBI;
+my \$dbh;
+my \$sth;
+\$dbh = DBI->connect("DBI:Pg:dbname=test;host=localhost;port=$PGPOOL_PORT","$WHOAMI",'');
+if (\$dbh)
+{
+  \$dbh->{AutoCommit} = 0;
+  \$sth = \$dbh->prepare("insert into my_table ( col1 ) values (?)");
+  \$sth->execute('ouch');
+#  \$sth = \$dbh->prepare("insert into t1 ( i ) values (?)");
+#  \$sth->execute(1);
+
+  \$sth->finish;
+  \$dbh->commit;
+}
+\$dbh->disconnect();
+EOF
+
+# clean up
+#psql -f ../database-clean.sql test
+
+./shutdownall
+
+#
+# check if kind mismatch error occurs
+#
+grep "kind mismatch among backends." log/pgpool.log >/dev/null 2>&1
+if [ $? = 0 ];then
+	# cache found! The bug reveals.
+	exit 1
+fi
+exit 0

data/pgpool2/test/regression/tests/052.do_query/test.sh

@@ -0,0 +1,44 @@
+#! /bin/sh
+#-------------------------------------------------------------------
+# test script for do_query.
+#
+# If do_query failed while executing in extended query mode, pgpool hangs.
+# precondition to trigger the error: remove pgpool_regclass.so or some such.
+#
+BUG="do_query"
+WHOAMI=`whoami`
+source $TESTLIBS
+TESTDIR=testdir
+PGBENCH=$PGBENCH_PATH
+
+rm -fr $TESTDIR
+mkdir $TESTDIR
+cd $TESTDIR
+
+# create test environment
+echo -n "creating test environment..."
+sh $PGPOOL_SETUP -m s -n 1 --no-stop|| exit 1
+echo "done."
+
+source ./bashrc.ports
+
+#./startall
+
+export PGPORT=$PGPOOL_PORT
+
+wait_for_pgpool_startup
+
+echo "SELECT 1" > select.pgbench
+$PGBENCH -i test
+
+# run test. This will hung if the bug is remained.
+($PGBENCH -c 10 -t 10 -M extended -f select.pgbench test)&
+sleep 5
+kill $!
+
+if [ $? = 0 ];then
+	./shutdownall
+	exit 1
+fi
+
+./shutdownall

data/pgpool2/test/regression/tests/053.insert_lock_hangs/test.sh

@@ -0,0 +1,81 @@
+#! /bin/sh
+#-------------------------------------------------------------------
+# test script for bug reported in [pgpool-general: 1684].
+# The bug occurs when all of conditions below are met:
+# - replication mode
+# - pgpool_catalog.insert_lock is created
+# - extended protocol is used
+# - number of DB nodes does not matter
+#
+# Fixed in: http://git.postgresql.org/gitweb/?p=pgpool2.git;a=commit;h=9dd90f45ef4194473c04099e6332af0a8c0d8411
+# Note: to run the test DBD:Pg is required.
+WHOAMI=`whoami`
+source $TESTLIBS
+TESTDIR=testdir
+PSQL=$PGBIN/psql
+
+rm -fr $TESTDIR
+mkdir $TESTDIR
+cd $TESTDIR
+
+# create test environment
+echo -n "creating test environment..."
+sh $PGPOOL_SETUP -m r -n 1 --no-stop|| exit 1
+echo "done."
+
+source ./bashrc.ports
+
+#./startall
+wait_for_pgpool_startup
+
+export PGPORT=$PGPOOL_PORT
+
+# create insert_lock table
+
+$PSQL  test <<EOF
+DROP TABLE IF EXISTS pgpool_catalog.insert_lock;
+CREATE SCHEMA pgpool_catalog;
+CREATE TABLE pgpool_catalog.insert_lock(reloid OID PRIMARY KEY);
+ 
+-- this row is used as the row lock target when pgpool inserts new oid
+INSERT INTO pgpool_catalog.insert_lock VALUES (0);
+
+-- allow "SELECT ... FOR UPDATE" and "INSERT ..." to all roles
+GRANT SELECT ON pgpool_catalog.insert_lock TO PUBLIC;
+GRANT UPDATE ON pgpool_catalog.insert_lock TO PUBLIC;
+GRANT INSERT ON pgpool_catalog.insert_lock TO PUBLIC;
+EOF
+
+# create test table
+
+$PSQL  test <<EOF
+DROP TABLE IF EXISTS kd_test_serial_pgpool;
+CREATE TABLE kd_test_serial_pgpool(id SERIAL, content TEXT);
+EOF
+
+cat > test.perl  <<EOF
+use strict;
+use DBI;
+my \$dbh;
+my \$sth;
+\$dbh = DBI->connect("DBI:Pg:dbname=test;host=localhost;port=$PGPOOL_PORT","$WHOAMI",'');
+if (\$dbh)
+{
+  \$sth = \$dbh->prepare("insert into kd_test_serial_pgpool(content)values (?)");      # hangs
+  \$sth->execute('perl lkhzfjktfjktf');
+  \$sth->finish;
+}
+\$dbh->disconnect();
+EOF
+
+# run test. This will hung if the bug is remained.
+(perl test.perl)&
+sleep 5
+kill $!
+
+if [ $? = 0 ];then
+	./shutdownall
+	exit 1
+fi
+
+./shutdownall