head	1.7;
access;
symbols
	REL7_4_29:1.4
	REL8_0_25:1.5
	REL7_4_28:1.4
	REL8_0_24:1.5
	REL7_4_27:1.4
	REL8_0_23:1.5
	REL7_4_26:1.4
	REL8_0_22:1.5
	REL7_4_25:1.4
	REL8_0_21:1.5
	REL7_4_24:1.4
	REL8_0_20:1.5
	REL7_4_23:1.4
	REL8_0_19:1.5
	REL7_4_22:1.4
	REL8_0_18:1.5
	REL7_4_21:1.4
	REL8_0_17:1.5
	REL7_4_20:1.4
	REL8_0_16:1.5
	REL7_3_21:1.4
	REL7_4_19:1.4
	REL8_0_15:1.5
	REL7_3_20:1.4
	REL7_4_18:1.4
	REL8_0_14:1.5
	REL7_3_19:1.4
	REL7_4_17:1.4
	REL8_0_13:1.5
	REL8_0_12:1.5
	REL7_3_18:1.4
	REL7_4_16:1.4
	REL8_0_11:1.5
	REL8_0_10:1.5
	REL7_4_15:1.4
	REL7_3_17:1.4
	REL8_0_9:1.5
	REL7_4_14:1.4
	REL7_3_16:1.4
	REL7_3_15:1.4
	REL7_4_13:1.4
	REL8_0_8:1.5
	REL7_3_14:1.4
	REL7_4_12:1.4
	REL8_0_7:1.5
	REL7_3_13:1.4
	REL7_4_11:1.4
	REL8_0_6:1.5
	REL7_3_12:1.4
	REL7_4_10:1.4
	REL8_0_5:1.5
	REL7_3_11:1.4
	REL7_4_9:1.4
	REL8_0_4:1.5
	REL7_2_8:1.3
	REL7_3_10:1.4
	REL7_4_8:1.4
	REL8_0_3:1.5
	REL8_0_2:1.5
	REL7_2_7:1.3
	REL7_3_9:1.4
	REL7_4_7:1.4
	REL8_0_1:1.5
	REL8_0_STABLE:1.5.0.4
	REL8_0_0:1.5.0.2
	REL8_0_0RC5:1.5
	REL8_0_0RC4:1.5
	REL8_0_0RC3:1.5
	REL8_0_0RC2:1.5
	REL8_0_0RC1:1.5
	REL8_0_0BETA5:1.5
	REL8_0_0BETA4:1.4
	REL7_4_6:1.4
	REL7_3_8:1.4
	REL7_2_6:1.3
	REL8_0_0BETA3:1.4
	REL8_0_0BETA2:1.4
	REL7_2_5:1.3
	REL7_4_5:1.4
	REL7_3_7:1.4
	REL7_4_4:1.4
	REL8_0_0BETA1:1.4
	REL7_4_3:1.4
	REL7_4_2:1.4
	REL7_3_6:1.4
	REL7_4_1:1.4
	REL7_3_5:1.4
	REL7_4:1.4
	REL7_4_RC2:1.4
	REL7_4_STABLE:1.4.0.6
	REL7_4_RC1:1.4
	REL7_4_BETA5:1.4
	REL7_4_BETA4:1.4
	REL7_4_BETA3:1.4
	REL7_4_BETA2:1.4
	WIN32_DEV:1.4.0.4
	REL7_4_BETA1:1.4
	REL7_3_4:1.4
	REL7_3_2:1.4
	REL7_2_4:1.3
	REL7_3_STABLE:1.4.0.2
	REL7_2_3:1.3
	REL7_2_STABLE:1.3.0.4
	REL7_2:1.3
	REL7_2_RC2:1.3
	REL7_2_RC1:1.3
	REL7_2_BETA5:1.3
	REL7_2_BETA4:1.3
	REL7_2_BETA3:1.3
	REL7_2_BETA2:1.3
	REL7_2_BETA1:1.3
	REL7_1_2:1.3
	REL7_1_STABLE:1.3.0.2
	REL7_1_BETA:1.3
	REL7_1_BETA3:1.3
	REL7_1_BETA2:1.3
	REL7_1:1.3
	REL7_0_PATCHES:1.1.0.6
	REL7_0:1.1
	REL6_5_PATCHES:1.1.0.4
	REL6_5:1.1
	REL6_4:1.1.0.2
	release-6-3:1.1;
locks; strict;
comment	@# @;


1.7
date	2005.05.14.17.55.22;	author tgl;	state dead;
branches;
next	1.6;

1.6
date	2005.04.01.19.32.51;	author tgl;	state Exp;
branches;
next	1.5;

1.5
date	2004.11.21.21.17.07;	author tgl;	state Exp;
branches;
next	1.4;

1.4
date	2002.10.19.22.01.45;	author tgl;	state Exp;
branches;
next	1.3;

1.3
date	2000.10.17.21.23.09;	author tgl;	state Exp;
branches;
next	1.2;

1.2
date	2000.07.17.02.22.50;	author tgl;	state Exp;
branches;
next	1.1;

1.1
date	98.02.11.14.38.24;	author scrappy;	state Exp;
branches;
next	;


desc
@@


1.7
log
@Convert the existing regression test scripts for the various optional
PLs to use the standard pg_regress infrastructure.  No changes in the
tests themselves.  Andrew Dunstan
@
text
@#!/bin/sh

DBNAME=pltcl_test
export DBNAME

echo "**** Destroy old database $DBNAME ****"
dropdb $DBNAME

sleep 1

echo "**** Create test database $DBNAME ****"
createdb $DBNAME || exit 1

echo "**** Create procedural language pltcl ****"
createlang pltcl $DBNAME || exit 1

echo "**** Create tables, functions and triggers ****"
psql -q -n $DBNAME <test_setup.sql

echo "**** Running test queries ****"
psql -q -n -e $DBNAME <test_queries.sql > test.out 2>&1

if diff test.expected test.out >/dev/null 2>&1 ; then
    echo "    Tests passed O.K."
    rm test.out
else
    echo "    Tests failed - look at diffs between"
    echo "    test.expected and test.out"
fi

@


1.6
log
@Minor improvements in the really-pretty-ad-hoc test scripts for the
PL languages.
@
text
@@


1.5
log
@Fix plperl and pltcl error handling per my previous proposal.  SPI
operations are now run as subtransactions, so that errors in them
can be reported as ordinary Perl or Tcl errors and caught by the
normal error handling convention of those languages.  Also do some
minor code cleanup in pltcl.c: extract a large chunk of duplicated
code in pltcl_SPI_execute and pltcl_SPI_execute_plan into a shared
subroutine.
@
text
@d12 1
a12 1
createdb $DBNAME
d15 1
a15 1
createlang pltcl $DBNAME
@


1.4
log
@Fix pltcl self-test for recent changes to elog.
@
text
@d9 2
@


1.3
log
@Update pltcl regress test to exercise return_null; also make use of
the fact that CREATE FUNCTION and CREATE AGGREGATE now allow array
types to be named like int4[] rather than _int4.
@
text
@d23 1
@


1.2
log
@update pltcl test to have at least some chance of running ... still
seems to be busted though ...
@
text
@d24 1
a24 1
    echo "    Tests faild - look at diffs between"
@


1.1
log
@From: Jan Wieck <jwieck@@debis.com>

    A few minutes ago I sent down the PL/Tcl  directory  to  this
    list.  Look at it and reuse anything that might help to build
    PL/perl.  I really hope that PL/perl and PL/Tcl appear in the
    6.3 distribution. I'll do whatever I can to make this happen.
@
text
@d7 1
a7 1
destroydb $DBNAME
d13 1
a13 1
psql -q -n $DBNAME <test_mklang.sql
@
