Minor improvements in the really-pretty-ad-hoc test scripts for the

PL languages.

diff --git a/src/pl/plperl/test/runtest b/src/pl/plperl/test/runtest
index a7c1d0ede9b5f509e811681436a32fd93ab2d05b..2d0e487670f77f0d844d6e0344af2f5348e36225 100755 (executable)
--- a/src/pl/plperl/test/runtest
+++ b/src/pl/plperl/test/runtest
@@ -9,10 +9,10 @@ dropdb $DBNAME
 sleep 1
 
 echo "**** Create test database $DBNAME ****"
-createdb $DBNAME
+createdb $DBNAME || exit 1
 
 echo "**** Create procedural language plperl ****"
-createlang plperl $DBNAME
+createlang plperl $DBNAME || exit 1
 
 echo "**** Running test queries ****"
 psql -q -n -e $DBNAME <test_queries.sql > test.out 2>&1

diff --git a/src/pl/plpython/test.sh b/src/pl/plpython/test.sh
index facf29e2680fd52fe0227687461e38f0f048eb1c..9ed3c07662a19f59a8b82a370939f59a0e6aad1c 100755 (executable)
--- a/src/pl/plpython/test.sh
+++ b/src/pl/plpython/test.sh
@@ -7,6 +7,8 @@ dropdb $DBNAME > test.log 2>&1
 # drop failure is ok...
 echo " Done. ***"
 
+sleep 1
+
 echo -n "*** Create $DBNAME."
 if createdb $DBNAME >> test.log 2>&1 ; then
   echo " Done. ***"

diff --git a/src/pl/tcl/test/runtest b/src/pl/tcl/test/runtest
index 50b2be07751b0c8f5bafd055f7d479376cfe712d..b46604bd3f2ef1809d1ded05d13c3d6945e6f6fd 100755 (executable)
--- a/src/pl/tcl/test/runtest
+++ b/src/pl/tcl/test/runtest
@@ -9,10 +9,10 @@ dropdb $DBNAME
 sleep 1
 
 echo "**** Create test database $DBNAME ****"
-createdb $DBNAME
+createdb $DBNAME || exit 1
 
 echo "**** Create procedural language pltcl ****"
-createlang pltcl $DBNAME
+createlang pltcl $DBNAME || exit 1
 
 echo "**** Create tables, functions and triggers ****"
 psql -q -n $DBNAME <test_setup.sql