Replaced complex tests with small ones.

src/interfaces/ecpg/preproc/preproc.y

-/* $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/preproc.y,v 1.337 2006/09/05 10:00:52 meskes Exp $ */
+/* $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/preproc.y,v 1.338 2006/09/08 13:32:26 meskes Exp $ */
 
 /* Copyright comment */
 %{
@@ -6038,7 +6038,7 @@ action : SQL_CONTINUE
 		| SQL_CALL name
 		{
 			$<action>$.code = W_DO;
-			$<action>$.command = cat_str(3, $2, make_str("("), make_str(")"));
+			$<action>$.command = cat2_str($2, make_str("()"));
 			$<action>$.str = cat2_str(make_str("call"), mm_strdup($<action>$.command));
 		}
 		;

src/interfaces/ecpg/test/Makefile

-# $PostgreSQL: pgsql/src/interfaces/ecpg/test/Makefile,v 1.61 2006/09/05 12:11:01 meskes Exp $
+# $PostgreSQL: pgsql/src/interfaces/ecpg/test/Makefile,v 1.62 2006/09/08 13:32:26 meskes Exp $
 
 subdir = src/interfaces/ecpg/test
 top_builddir = ../../../..
@@ -29,7 +29,6 @@ all install installdirs uninstall dep depend distprep:
 	$(MAKE) -C pgtypeslib $@
 	$(MAKE) -C preproc $@
 	$(MAKE) -C compat_informix $@
-	$(MAKE) -C complex $@
 	$(MAKE) -C thread $@
 
 clean distclean maintainer-clean:
@@ -39,7 +38,6 @@ clean distclean maintainer-clean:
 	$(MAKE) -C pgtypeslib $@
 	$(MAKE) -C preproc $@
 	$(MAKE) -C compat_informix $@
-	$(MAKE) -C complex $@
 	$(MAKE) -C thread $@
 	rm -rf tmp_check results log
 	rm -f pg_regress regression.diffs

src/interfaces/ecpg/test/complex/Makefile

-subdir = src/interfaces/ecpg/test/complex
-top_builddir = ../../../../..
-include $(top_builddir)/src/Makefile.global
-include $(top_srcdir)/$(subdir)/../Makefile.regress
-
-
-TESTS = test1 test1.c \
-        test2 test2.c \
-        test3 test3.c 
-
-all: $(TESTS)
-

src/interfaces/ecpg/test/complex/header_test.h

-#include "stdlib.h"
-
-static void
-Finish(char *msg)
-{
-	fprintf(stderr, "Error in statement '%s':\n", msg);
-	sqlprint();
-
-	/* finish transaction */
-	exec sql	rollback;
-
-	/* and remove test table */
-	exec sql drop table meskes;
-	exec sql	commit;
-
-	exec sql	disconnect;
-
-	exit(-1);
-}
-
-static void
-warn(void)
-{
-	fprintf(stderr, "Warning: At least one column was truncated\n");
-}
-
-exec sql whenever sqlerror
-do
-				Finish(msg);
-exec sql whenever sqlwarning
-do
-				warn();

src/interfaces/ecpg/test/complex/test1.pgc

-#include <stdlib.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdio.h>
-
-exec sql include ../regression;
-
-/* just a test comment */ exec sql whenever sqlerror do PrintAndStop(msg);
-exec sql whenever sqlwarning do warn();
-
-static void PrintAndStop(char *msg)
-{
-	fprintf(stderr, "Error in statement '%s':\n", msg);
-	sqlprint();
-	exit(-1);
-}
-
-static void warn(void)
-{
-	fprintf(stderr, "Warning: At least one column was truncated\n");
-}
-
-/* comment */
-exec sql define AMOUNT 6;
-exec sql define NAMELEN 8;
-
-exec sql type intarray is int[AMOUNT];
-
-typedef int intarray[AMOUNT];
-
-int
-main(void)
-{
-exec sql begin declare section;
-exec sql ifdef NAMELEN;
-	typedef char string[NAMELEN];
-	intarray amount;
-	int increment=100;
-	char name[AMOUNT][NAMELEN];
-	char letter[AMOUNT][1];
-	struct name_letter_struct
-	{
-		char name[NAMELEN];
-		int amount;
-		char letter;
-	} name_letter[AMOUNT];
-#if 0
-	int not_used;
-#endif
-exec sql endif;
-	struct ind_struct
-	{
-		short a;
-		short b;
-		short c;
-	} ind[AMOUNT];
-	char command[128];
-	char *connection="pm";
-	int how_many;
-	char *user="regressuser1";
-exec sql end declare section;
-	exec sql var name is string[AMOUNT];
-	char msg[128];
-	int i,j;
-
-	ECPGdebug(1, stderr);
-
-	strcpy(msg, "connect");
-	exec sql connect to REGRESSDB1 as main;
-
-	strcpy(msg, "connect");
-	exec sql connect to REGRESSDB2 as pm user :user;
-
-	strcpy(msg, "create");
-	exec sql at main create table "Test" (name char(NAMELEN), amount int, letter char(1));
-	exec sql create table "Test" (name char(NAMELEN), amount int, letter char(1));
-
-	strcpy(msg, "commit");
-	exec sql at main commit;
-	exec sql commit;
-
-	strcpy(msg, "set connection");
-	exec sql set connection to main;
-
-	strcpy(msg, "execute insert 1");
-	sprintf(command, "insert into \"Test\" (name, amount, letter) values ('db: ''r1''', 1, 'f')");
-	exec sql execute immediate :command;
-	printf("New tuple got OID = %ld\n", sqlca.sqlerrd[1]);
-
-	sprintf(command, "insert into \"Test\" (name, amount, letter) values ('db: ''r1''', 2, 't')");
-	exec sql execute immediate :command;
-
-	strcpy(msg, "execute insert 2");
-	sprintf(command, "insert into \"Test\" (name, amount, letter) values ('db: ''pm''', 1, 'f')");
-	exec sql at pm execute immediate :command;
-
-	strcpy(msg, "execute insert 3");
-	sprintf(command, "insert into \"Test\" (name, amount, letter) select name, amount+10, letter from \"Test\"");
-	exec sql execute immediate :command;
-
-	printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
-
-	strcpy(msg, "execute insert 4");
-	sprintf(command, "insert into \"Test\" (name, amount, letter) select name, amount+?, letter from \"Test\"");
-	exec sql prepare I from :command;
-	exec sql at pm execute I using :increment;
-
-	printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
-
-	strcpy(msg, "commit");
-	exec sql commit;
-
-	/* Start automatic transactioning for connection pm. */
-	exec sql at pm set autocommit to on;
-	exec sql at pm begin transaction;
-
-	strcpy(msg, "select");
-	exec sql select * into :name, :amount, :letter from "Test";
-
-	printf("Database: main\n");
-	for (i=0, how_many=j=sqlca.sqlerrd[2]; i<j; i++)
-	{
-		exec sql begin declare section;
-		char n[8], l = letter[i][0];
-		int a = amount[i];
-		exec sql end declare section;
-
-		strncpy(n, name[i], NAMELEN);
-		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
-		amount[i]+=1000;
-
-		strcpy(msg, "insert");
-		exec sql at pm insert into "Test" (name, amount, letter) values (:n, :amount[i], :l);
-	}
-
-	strcpy(msg, "commit");
-	exec sql at pm commit;
-
-	sprintf (command, "select * from \"Test\"");
-
-	exec sql prepare F from :command;
-	exec sql declare CUR cursor for F;
-
-	strcpy(msg, "open");
-	exec sql open CUR;
-
-	strcpy(msg, "fetch");
-	exec sql fetch :how_many in CUR into :name, :amount, :letter;
-
-	printf("Database: main\n");
-	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
-	{
-		exec sql begin declare section;
-		char n[8], l = letter[i][0];
-		int a = amount[i];
-		exec sql end declare section;
-
-		strncpy(n, name[i], 8);
-		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
-	}
-
-	exec sql close CUR;
-
-	strcpy(msg, "select");
-	exec sql at :connection select name, amount, letter into :name, :amount, :letter from "Test";
-
-	printf("Database: %s\n", connection);
-	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
-		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name[i], i, amount[i],i, letter[i][0]);
-
-	strcpy(msg, "commit");
-	exec sql commit;
-
-	strcpy(msg, "select");
-	exec sql at pm select name, amount, letter into :name_letter:ind from "Test";
-
-	printf("Database: pm\n");
-	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
-		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name_letter[i].name, i, name_letter[i].amount,i, name_letter[i].letter);
-
-	name_letter[4].amount=1407;
-	strcpy(msg, "insert");
-	exec sql insert into "Test" (name, amount, letter) values (:name_letter[4]);
-
-	strcpy(msg, "select");
-	exec sql select name, amount, letter into :name_letter[2] from "Test" where amount = 1407;
-
-	printf("Database: main\n");
-	printf("name[2]=%8.8s\tamount[2]=%d\tletter[2]=%c\n", name_letter[2].name, name_letter[2].amount, name_letter[2].letter);
-
-	/* Start automatic transactioning for connection main. */
-	exec sql set autocommit to on;
-
-	strcpy(msg, "drop");
-	exec sql drop table "Test";
-	exec sql at pm drop table "Test";
-
-	strcpy(msg, "disconnect");
-	exec sql disconnect main;
-	exec sql disconnect pm;
-
-	return (0);
-}

src/interfaces/ecpg/test/complex/test2.pgc

-#include <stdlib.h>
-#include <string.h>
-
-exec sql include header_test;
-exec sql include ../regression;
-
-exec sql type c is char reference;
-typedef char* c;
-
-exec sql type ind is union { int integer; short smallint; };
-typedef union { int integer; short smallint; } ind;
-
-#define BUFFERSIZ 8
-exec sql type str is varchar[BUFFERSIZ];
-
-exec sql declare cur cursor for
-       select name, born, age, married, children from meskes;
-
-int
-main (void)
-{
-	exec sql struct birthinfo { long born; short age; };
-exec sql begin declare section;
-	struct personal_struct	{	str name;
-					struct birthinfo birth;
-				} personal, *p;
-	struct personal_indicator {	int ind_name;
-					struct birthinfo ind_birth;
-				  } ind_personal, *i;
-	ind ind_children;
-	char *query="select name, born, age, married, children from meskes where name = :var1";
-exec sql end declare section;
-
-	exec sql char *married = NULL;
-	exec sql long ind_married;
-	exec sql ind children;
-
-	char msg[128];
-
-        ECPGdebug(1, stderr);
-
-	strcpy(msg, "connect");
-	exec sql connect to REGRESSDB1;
-
-	strcpy(msg, "create");
-	exec sql create table meskes(name char(8), born integer, age smallint, married date, children integer);
-
-	strcpy(msg, "insert");
-	exec sql insert into meskes(name, married, children) values ('Petra', '19900404', 3);
-	exec sql insert into meskes(name, born, age, married, children) values ('Michael', 19660117, 35, '19900404', 3);
-	exec sql insert into meskes(name, born, age) values ('Carsten', 19910103,10);
-	exec sql insert into meskes(name, born, age) values ('Marc', 19930907, 8);
-	exec sql insert into meskes(name, born, age) values ('Chris', 19970923, 4);
-
-	strcpy(msg, "commit");
-	exec sql commit;
-
-	strcpy(msg, "open");
-	exec sql open cur;
-
-	exec sql whenever not found do break;
-
-	p=&personal;
-	i=&ind_personal;
-	memset(i, 0, sizeof(ind_personal));
-	while (1) {
-		strcpy(msg, "fetch");
-		exec sql fetch cur into :p:i, :married:ind_married, :children.integer:ind_children.smallint;
-		printf("%8.8s", personal.name.arr);
-		if (i->ind_birth.born >= 0)
-			printf(", born %ld", personal.birth.born);
-		if (i->ind_birth.age >= 0)
-			printf(", age = %d", personal.birth.age);
-		if (ind_married >= 0)
-			printf(", married %s", married);
-		if (ind_children.smallint >= 0)
-			printf(", children = %d", children.integer);
-		putchar('\n');
-
-		free(married);
-		married = NULL;
-	}
-
-	strcpy(msg, "close");
-	exec sql close cur;
-
-	/* and now a same query with prepare */
-	exec sql prepare MM from :query;
-	exec sql declare prep cursor for MM;
-
-	strcpy(msg, "open");
-	exec sql open prep using 'Petra';
-
-	exec sql whenever not found do break;
-
-	while (1) {
-		strcpy(msg, "fetch");
-		exec sql fetch in prep into :personal:ind_personal, :married:ind_married, :children.integer:ind_children.smallint;
-		printf("%8.8s", personal.name.arr);
-		if (ind_personal.ind_birth.born >= 0)
-			printf(", born %ld", personal.birth.born);
-		if (ind_personal.ind_birth.age >= 0)
-			printf(", age = %d", personal.birth.age);
-		if (ind_married >= 0)
-			printf(", married %s", married);
-		if (ind_children.smallint >= 0)
-			printf(", children = %d", children.integer);
-		putchar('\n');
-	}
-
-	free(married);
-
-	strcpy(msg, "close");
-	exec sql close prep;
-
-	strcpy(msg, "drop");
-	exec sql drop table meskes;
-
-	strcpy(msg, "commit");
-	exec sql commit;
-
-	strcpy(msg, "disconnect"); 
-	exec sql disconnect;
-
-	return (0);
-}

src/interfaces/ecpg/test/complex/test3.pgc

-/****************************************************************************/
-/* Test comment                                                             */
-/*--------------------------------------------------------------------------*/
-exec sql include header_test;
-exec sql include ../regression;
-
-exec sql type str is varchar[10];
-
-#include <stdlib.h>
-#include <string.h>
-
-int
-main (void)
-{
-exec sql begin declare section;
-	typedef struct { long born; short age; } birthinfo;
-	struct personal_struct	{	str name;
-					birthinfo birth;
-				} personal;
-	struct personal_indicator {	int ind_name;
-					birthinfo ind_birth;
-				  } ind_personal;
-	int *ind_married = NULL;
-	int children, movevalue = 2;
-	int ind_children;
-	str *married = NULL;
-	char *wifesname="Petra";
-	char *query="select * from meskes where name = ?";
-exec sql end declare section;
-
-	exec sql declare cur cursor for
-	       select name, born, age, married, children from meskes;
-
-	char msg[128];
-
-	ECPGdebug(1, stderr);
-
-	strcpy(msg, "connect");
-	exec sql connect to REGRESSDB1;
-
-	strcpy(msg, "create");
-	exec sql create table meskes(name char(8), born integer, age smallint, married date, children integer);
-
-	strcpy(msg, "insert");
-	exec sql insert into meskes(name, married, children) values (:wifesname, '19900404', 3);
-	exec sql insert into meskes(name, born, age, married, children) values ('Michael', 19660117, 35, '19900404', 3);
-	exec sql insert into meskes(name, born, age) values ('Carsten', 19910103, 10);
-	exec sql insert into meskes(name, born, age) values ('Marc', 19930907, 8);
-	exec sql insert into meskes(name, born, age) values ('Chris', 19970923, 4);
-
-	strcpy(msg, "commit");
-	exec sql commit;
-
-	strcpy(msg, "open");
-	exec sql open cur;
-
-	strcpy(msg, "move");
-	exec sql move :movevalue in cur;
-
-	exec sql whenever not found do break;
-
-	while (1) {
-		strcpy(msg, "fetch");
-		exec sql fetch from cur into :personal:ind_personal, :married:ind_married, :children:ind_children;
-		printf("%8.8s", personal.name.arr);
-		if (ind_personal.ind_birth.born >= 0)
-			printf(", born %ld", personal.birth.born);
-		if (ind_personal.ind_birth.age >= 0)
-			printf(", age = %d", personal.birth.age);
-		if (*ind_married >= 0)
-			printf(", married %10.10s", married->arr);
-		if (ind_children >= 0)
-			printf(", children = %d", children);
-		putchar('\n');
-
-		free(married);
-		married = NULL;
-	}
-
-	strcpy(msg, "close");
-	exec sql close cur;
-
-	/* and now a query with prepare */
-	exec sql prepare MM from :query;
-	exec sql declare prep cursor for MM;
-
-	strcpy(msg, "open");
-	exec sql open prep using :wifesname;
-
-	exec sql whenever not found do break;
-
-	while (1) {
-		strcpy(msg, "fetch");
-		exec sql fetch in prep into :personal:ind_personal, :married:ind_married, :children:ind_children;
-		printf("%8.8s", personal.name.arr);
-		if (ind_personal.ind_birth.born >= 0)
-			printf(", born %ld", personal.birth.born);
-		if (ind_personal.ind_birth.age >= 0)
-			printf(", age = %d", personal.birth.age);
-		if (*ind_married >= 0)
-			printf(", married %10.10s", married->arr);
-		if (ind_children >= 0)
-			printf(", children = %d", children);
-		putchar('\n');
-	}
-
-	free(married);
-
-	strcpy(msg, "close");
-	exec sql close prep;
-
-	strcpy(msg, "drop");
-	exec sql drop table meskes;
-
-	strcpy(msg, "commit");
-	exec sql commit;
-
-	strcpy(msg, "disconnect"); 
-	exec sql disconnect;
-
-	return (0);
-}

src/interfaces/ecpg/test/errors/Makefile

-subdir = src/interfaces/ecpg/test/errors
-top_builddir = ../../../../..
-include $(top_builddir)/src/Makefile.global
-include $(top_srcdir)/$(subdir)/../Makefile.regress
-
-
-TESTS = init init.c
-
-all: $(TESTS)
-

src/interfaces/ecpg/test/errors/init.pgc

-exec sql include sqlca;
-
-enum e { ENUM0, ENUM1 };
-struct sa { int member; };
-
-static int fa(void)
-{
-	printf("in fa\n");
-	return 2;
-}
-
-static int
-fb(int x)
-{
-	printf("in fb (%d)\n", x);
-	return x;
-}
-
-static int
-fc(const char *x)
-{
-	printf("in fc (%s)\n", x);
-	return *x;
-}
-
-static int fd(const char *x,int i)
-{
-	printf("in fd (%s, %d)\n", x, i);
-	return (*x)*i;
-}
-
-static int fe(enum e x)
-{
-	printf("in fe (%d)\n", (int) x);
-	return (int)x;
-}
-
-static void sqlnotice(char *notice, short trans)
-{
-	if (!notice)
-		notice = "-empty-";
-	printf("in sqlnotice (%s, %d)\n", notice, trans);
-}
-
-exec sql define NONO 0;
-
-#define YES 1
-
-#ifdef _cplusplus
-namespace N
-{
-	static const int i=2;
-};
-#endif
-
-int main(void)
-{
-	struct sa x = { 14 },*y = &x;
-	exec sql begin declare section;
-		int a=(int)2;
-		int b=2+2;
-		int b2=(14*7);
-		int d=x.member;
-		int g=fb(2);
-		int i=3^1;
-		int j=1?1:2;
-
-		int e=y->member;
-		int c=10>>2;
-		bool h=2||1; 
-		long iay /* = 1L */ ;
-	exec sql end declare section;
-
-	int f=fa();
-
-#ifdef _cplusplus
-	exec sql begin declare section;
-	int k=N::i; /* compile error */
-	exec sql end declare section;
-#endif
-
-	ECPGdebug(1, stderr);
-
-	printf("%d %d %d %d %d %d %d %d %d %d %d\n", a, b, b2, c, d, e, f, g, h, i, j);
-	iay = 0;
-	printf("%ld\n", iay);
-	exec sql whenever sqlerror do fa();
-	exec sql select now();
-	exec sql whenever sqlerror do fb(20);
-	exec sql select now();
-	exec sql whenever sqlerror do fc("50");
-	exec sql select now();
-	exec sql whenever sqlerror do fd("50",1);
-	exec sql select now();
-	exec sql whenever sqlerror do fe(ENUM0);
-	exec sql select now();
-	exec sql whenever sqlerror do sqlnotice(NULL, NONO); 
-	exec sql select now();
-	return 0;
-}

src/interfaces/ecpg/test/expected/complex-test1.stdout

-New tuple got OID = 0
-Inserted 2 tuples via execute immediate
-Inserted 1 tuples via prepared execute
-Database: main
-name[0]=db: 'r1'	amount[0]=1	letter[0]=f
-name[1]=db: 'r1'	amount[1]=2	letter[1]=t
-name[2]=db: 'r1'	amount[2]=11	letter[2]=f
-name[3]=db: 'r1'	amount[3]=12	letter[3]=t
-Database: main
-name[0]=db: 'r1'	amount[0]=1	letter[0]=f
-name[1]=db: 'r1'	amount[1]=2	letter[1]=t
-name[2]=db: 'r1'	amount[2]=11	letter[2]=f
-name[3]=db: 'r1'	amount[3]=12	letter[3]=t
-Database: pm
-name[0]=db: 'pm'	amount[0]=1	letter[0]=f
-name[1]=db: 'pm'	amount[1]=101	letter[1]=f
-name[2]=db: 'r1'	amount[2]=1001	letter[2]=f
-name[3]=db: 'r1'	amount[3]=1002	letter[3]=t
-name[4]=db: 'r1'	amount[4]=1011	letter[4]=f
-name[5]=db: 'r1'	amount[5]=1012	letter[5]=t
-Database: pm
-name[0]=db: 'pm'	amount[0]=1	letter[0]=f
-name[1]=db: 'pm'	amount[1]=101	letter[1]=f
-name[2]=db: 'r1'	amount[2]=1001	letter[2]=f
-name[3]=db: 'r1'	amount[3]=1002	letter[3]=t
-name[4]=db: 'r1'	amount[4]=1011	letter[4]=f
-name[5]=db: 'r1'	amount[5]=1012	letter[5]=t
-Database: main
-name[2]=db: 'r1'	amount[2]=1407	letter[2]=f

src/interfaces/ecpg/test/expected/complex-test2.stderr

-[NO_PID]: ECPGdebug: set to 1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT> 
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 46: QUERY: create  table meskes ( name char  ( 8 )    , born integer   , age smallint   , married date   , children integer   )     on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 46 Ok: CREATE TABLE
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 49: QUERY: insert into meskes ( name  , married  , children  ) values ( 'Petra' , '19900404' , 3 )  on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 49 Ok: INSERT 0 1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 50: QUERY: insert into meskes ( name  , born  , age  , married  , children  ) values ( 'Michael' , 19660117 , 35 , '19900404' , 3 )  on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 50 Ok: INSERT 0 1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 51: QUERY: insert into meskes ( name  , born  , age  ) values ( 'Carsten' , 19910103 , 10 )  on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 51 Ok: INSERT 0 1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 52: QUERY: insert into meskes ( name  , born  , age  ) values ( 'Marc' , 19930907 , 8 )  on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 52 Ok: INSERT 0 1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 53: QUERY: insert into meskes ( name  , born  , age  ) values ( 'Chris' , 19970923 , 4 )  on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 53 Ok: INSERT 0 1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGtrans line 56 action = commit connection = regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 59: QUERY: declare cur  cursor  for select  name , born , age , married , children  from meskes    on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 59 Ok: DECLARE CURSOR
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: QUERY: fetch cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: Correctly got 1 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: Petra    offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGstore_result: line 68: allocating memory for 1 tuples
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 04-04-1990 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 3 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: QUERY: fetch cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: Correctly got 1 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: Michael  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 19660117 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 35 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGstore_result: line 68: allocating memory for 1 tuples
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 04-04-1990 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 3 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: QUERY: fetch cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: Correctly got 1 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: Carsten  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 19910103 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 10 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGstore_result: line 68: allocating memory for 1 tuples
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: QUERY: fetch cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: Correctly got 1 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: Marc     offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 19930907 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 8 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGstore_result: line 68: allocating memory for 1 tuples
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: QUERY: fetch cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: Correctly got 1 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: Chris    offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 19970923 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT: 4 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGstore_result: line 68: allocating memory for 1 tuples
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 68: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: QUERY: fetch cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 68: Correctly got 0 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: raising sqlcode 100 in line 68, 'No data found in line 68.'.
-[NO_PID]: sqlca: code: 100, state: 02000
-[NO_PID]: ECPGexecute line 85: QUERY: close cur on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 85 Ok: CLOSE CURSOR
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGprepare line 88: QUERY: select name, born, age, married, children from meskes where name = ?    
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 92: QUERY: declare prep  cursor  for select name, born, age, married, children from meskes where name = 'Petra'     on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 92 Ok: DECLARE CURSOR
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 98: QUERY: fetch in prep on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 98: Correctly got 1 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 98: RESULT: Petra    offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 98: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 98: RESULT:  offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGstore_result: line 98: allocating memory for 1 tuples
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 98: RESULT: 04-04-1990 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGget_data line 98: RESULT: 3 offset: -1 array: Yes
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 98: QUERY: fetch in prep on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 98: Correctly got 0 tuples with 5 fields
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: raising sqlcode 100 in line 98, 'No data found in line 98.'.
-[NO_PID]: sqlca: code: 100, state: 02000
-[NO_PID]: ECPGexecute line 114: QUERY: close prep on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 114 Ok: CLOSE CURSOR
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 117: QUERY: drop table meskes  on connection regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 117 Ok: DROP TABLE
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGtrans line 120 action = commit connection = regress1
-[NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ecpg_finish: Connection regress1 closed.
-[NO_PID]: sqlca: code: 0, state: 00000

src/interfaces/ecpg/test/expected/complex-test2.stdout

-Petra   , married 04-04-1990, children = 3
-Michael , born 19660117, age = 35, married 04-04-1990, children = 3
-Carsten , born 19910103, age = 10
-Marc    , born 19930907, age = 8
-Chris   , born 19970923, age = 4
-Petra   , married 04-04-1990, children = 3

src/interfaces/ecpg/test/expected/complex-test3.stdout

-Carsten , born 19910103, age = 10
-Marc    , born 19930907, age = 8
-Chris   , born 19970923, age = 4
-Petra   , married 04-04-1990, children = 3

src/interfaces/ecpg/test/expected/preproc-comment.c

+/* Processed by ecpg (4.2.1) */
+/* These include files are added by the preprocessor */
+#include <ecpgtype.h>
+#include <ecpglib.h>
+#include <ecpgerrno.h>
+#include <sqlca.h>
+/* End of automatic include section */
+
+#line 1 "comment.pgc"
+#include <stdlib.h>
+
+
+#line 1 "regression.h"
+
+
+
+
+
+
+#line 3 "comment.pgc"
+
+
+/* just a test comment */ int i;
+/* just a test comment int j*/;
+
+/****************************************************************************/
+/* Test comment                                                             */
+/*--------------------------------------------------------------------------*/
+
+// we also understand this style
+int k;
+
+int main(void)
+{
+  ECPGdebug(1, stderr);
+
+  { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
+#line 20 "comment.pgc"
+
+
+  { ECPGdisconnect(__LINE__, "CURRENT");}
+#line 22 "comment.pgc"
+
+  exit (0);
+}
+

src/interfaces/ecpg/test/expected/preproc-comment.stderr

+[NO_PID]: ECPGdebug: set to 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT> 
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ecpg_finish: Connection regress1 closed.
+[NO_PID]: sqlca: code: 0, state: 00000

src/interfaces/ecpg/test/expected/preproc-type.c

@@ -164,5 +164,7 @@ main (void)
   { ECPGdisconnect(__LINE__, "CURRENT");}
 #line 76 "type.pgc"
 
+
+  free(ptr);
   exit (0);
 }

src/interfaces/ecpg/test/expected/preproc-whenever.c

+/* Processed by ecpg (4.2.1) */
+/* These include files are added by the preprocessor */
+#include <ecpgtype.h>
+#include <ecpglib.h>
+#include <ecpgerrno.h>
+#include <sqlca.h>
+/* End of automatic include section */
+
+#line 1 "whenever.pgc"
+#include <stdlib.h>
+
+
+#line 1 "regression.h"
+
+
+
+
+
+
+#line 3 "whenever.pgc"
+
+
+/* exec sql whenever sqlerror  sqlprint ; */
+#line 5 "whenever.pgc"
+
+
+static void print(char *msg)
+{
+        fprintf(stderr, "Error in statement '%s':\n", msg);
+        sqlprint();
+}
+
+static void print2(void)
+{
+        fprintf(stderr, "Found another error\n");
+        sqlprint();
+}
+
+static void warn(void)
+{
+        fprintf(stderr, "Warning: At least one column was truncated\n");
+}
+
+int main(void)
+{
+	
+#line 26 "whenever.pgc"
+ int  i    ;
+
+#line 26 "whenever.pgc"
+
+	
+#line 27 "whenever.pgc"
+ char  c [ 6 ]    ;
+
+#line 27 "whenever.pgc"
+
+
+	ECPGdebug(1, stderr);
+
+	{ ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); 
+#line 31 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 31 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "create  table test ( i int   , c char  ( 10 )    )    ", ECPGt_EOIT, ECPGt_EORT);
+#line 32 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 32 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 1 , 'abcdefghij' ) ", ECPGt_EOIT, ECPGt_EORT);
+#line 33 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 33 "whenever.pgc"
+
+
+	/* exec sql whenever sql_warning  do warn (  ) ; */
+#line 35 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from test   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_char,(c),(long)6,(long)1,(6)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 36 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 36 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 36 "whenever.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 37 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 37 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 37 "whenever.pgc"
+
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from nonexistant   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 39 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 39 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 39 "whenever.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 40 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 40 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 40 "whenever.pgc"
+
+
+	/* exec sql whenever sqlerror  do print ( \"select\" ) ; */
+#line 42 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from nonexistant   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 43 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 43 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) print ( "select" );}
+#line 43 "whenever.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 44 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 44 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) print ( "select" );}
+#line 44 "whenever.pgc"
+
+
+	/* exec sql whenever sqlerror  call print2 (  ) ; */
+#line 46 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from nonexistant   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 47 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 47 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) print2 (  );}
+#line 47 "whenever.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 48 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 48 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) print2 (  );}
+#line 48 "whenever.pgc"
+
+
+	/* exec sql whenever sqlerror  continue ; */
+#line 50 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from nonexistant   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 51 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );}
+#line 51 "whenever.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 52 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );}
+#line 52 "whenever.pgc"
+
+
+	/* exec sql whenever sqlerror  goto  error ; */
+#line 54 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from nonexistant   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 55 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 55 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) goto error;}
+#line 55 "whenever.pgc"
+
+	printf("Should not be reachable\n");
+
+	error:
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 59 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 59 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) goto error;}
+#line 59 "whenever.pgc"
+
+
+	/* exec sql whenever sqlerror  stop ; */
+#line 61 "whenever.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "select  *  from nonexistant   ", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 62 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 62 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) exit (1);}
+#line 62 "whenever.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "rollback");
+#line 63 "whenever.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') warn (  );
+#line 63 "whenever.pgc"
+
+if (sqlca.sqlcode < 0) exit (1);}
+#line 63 "whenever.pgc"
+
+	exit (0);
+}	

src/interfaces/ecpg/test/expected/preproc-whenever.stderr

+[NO_PID]: ECPGdebug: set to 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT> 
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: QUERY: create  table test ( i int   , c char  ( 10 )    )     on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32 Ok: CREATE TABLE
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 33: QUERY: insert into test values ( 1 , 'abcdefghij' )  on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 33 Ok: INSERT 0 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 36: QUERY: select  *  from test    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 36: Correctly got 1 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 36: RESULT: 1 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 36: RESULT: abcdefghij offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+Warning: At least one column was truncated
+[NO_PID]: ECPGtrans line 37 action = rollback connection = regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 39: QUERY: select  *  from nonexistant    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 39: Error: ERROR:  relation "nonexistant" does not exist
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlstate 42P01 (sqlcode: -400) in line 39, ''relation "nonexistant" does not exist' in line 39.'.
+[NO_PID]: sqlca: code: -400, state: 42P01
+sql error 'relation "nonexistant" does not exist' in line 39.
+[NO_PID]: ECPGtrans line 40 action = rollback connection = regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 43: QUERY: select  *  from nonexistant    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 43: Error: ERROR:  relation "nonexistant" does not exist
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlstate 42P01 (sqlcode: -400) in line 43, ''relation "nonexistant" does not exist' in line 43.'.
+[NO_PID]: sqlca: code: -400, state: 42P01
+Error in statement 'select':
+sql error 'relation "nonexistant" does not exist' in line 43.
+[NO_PID]: ECPGtrans line 44 action = rollback connection = regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 47: QUERY: select  *  from nonexistant    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 47: Error: ERROR:  relation "nonexistant" does not exist
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlstate 42P01 (sqlcode: -400) in line 47, ''relation "nonexistant" does not exist' in line 47.'.
+[NO_PID]: sqlca: code: -400, state: 42P01
+Found another error
+sql error 'relation "nonexistant" does not exist' in line 47.
+[NO_PID]: ECPGtrans line 48 action = rollback connection = regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 51: QUERY: select  *  from nonexistant    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 51: Error: ERROR:  relation "nonexistant" does not exist
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlstate 42P01 (sqlcode: -400) in line 51, ''relation "nonexistant" does not exist' in line 51.'.
+[NO_PID]: sqlca: code: -400, state: 42P01
+[NO_PID]: ECPGtrans line 52 action = rollback connection = regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 55: QUERY: select  *  from nonexistant    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 55: Error: ERROR:  relation "nonexistant" does not exist
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlstate 42P01 (sqlcode: -400) in line 55, ''relation "nonexistant" does not exist' in line 55.'.
+[NO_PID]: sqlca: code: -400, state: 42P01
+[NO_PID]: ECPGtrans line 59 action = rollback connection = regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 62: QUERY: select  *  from nonexistant    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 62: Error: ERROR:  relation "nonexistant" does not exist
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlstate 42P01 (sqlcode: -400) in line 62, ''relation "nonexistant" does not exist' in line 62.'.
+[NO_PID]: sqlca: code: -400, state: 42P01

src/interfaces/ecpg/test/expected/sql-execute.c

+/* Processed by ecpg (4.2.1) */
+/* These include files are added by the preprocessor */
+#include <ecpgtype.h>
+#include <ecpglib.h>
+#include <ecpgerrno.h>
+#include <sqlca.h>
+/* End of automatic include section */
+
+#line 1 "execute.pgc"
+#include <stdlib.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+
+#line 1 "regression.h"
+
+
+
+
+
+
+#line 6 "execute.pgc"
+
+
+/* exec sql whenever sqlerror  sqlprint ; */
+#line 8 "execute.pgc"
+
+
+int
+main(void)
+{
+/* exec sql begin declare section */
+	 
+	 
+	 
+	 
+	 
+
+#line 14 "execute.pgc"
+ int  amount [ 8 ]    ;
+ 
+#line 15 "execute.pgc"
+ int  increment   = 100 ;
+ 
+#line 16 "execute.pgc"
+ char  name [ 8 ] [ 8 ]    ;
+ 
+#line 17 "execute.pgc"
+ char  letter [ 8 ] [ 1 ]    ;
+ 
+#line 18 "execute.pgc"
+ char  command [ 128 ]    ;
+/* exec sql end declare section */
+#line 19 "execute.pgc"
+
+	int i,j;
+
+	ECPGdebug(1, stderr);
+
+	{ ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , "main", 0); 
+#line 24 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 24 "execute.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "create  table test ( name char  ( 8 )    , amount int   , letter char  ( 1 )    )    ", ECPGt_EOIT, ECPGt_EORT);
+#line 25 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 25 "execute.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "commit");
+#line 26 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 26 "execute.pgc"
+
+
+	sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 1, 'f')");
+	{ ECPGdo(__LINE__, 0, 1, NULL, "?", 
+	ECPGt_char_variable,(command),(long)1,(long)1,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
+#line 29 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 29 "execute.pgc"
+
+
+	sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')");
+	{ ECPGdo(__LINE__, 0, 1, NULL, "?", 
+	ECPGt_char_variable,(command),(long)1,(long)1,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
+#line 32 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 32 "execute.pgc"
+
+
+	sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test");
+	{ ECPGdo(__LINE__, 0, 1, NULL, "?", 
+	ECPGt_char_variable,(command),(long)1,(long)1,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
+#line 35 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 35 "execute.pgc"
+
+
+	printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
+
+	sprintf(command, "insert into test (name, amount, letter) select name, amount+?, letter from test");
+	{ ECPGprepare(__LINE__, "I" , command);
+#line 40 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 40 "execute.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "?", 
+	ECPGt_char_variable,(ECPGprepared_statement("I")),(long)1,(long)1,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_int,&(increment),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
+#line 41 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 41 "execute.pgc"
+
+
+	printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
+
+	{ ECPGtrans(__LINE__, NULL, "commit");
+#line 45 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 45 "execute.pgc"
+
+
+	sprintf (command, "select * from test");
+
+	{ ECPGprepare(__LINE__, "F" , command);
+#line 49 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 49 "execute.pgc"
+
+	/* declare CUR  cursor  for ? */
+#line 50 "execute.pgc"
+
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "declare CUR  cursor  for ?", 
+	ECPGt_char_variable,(ECPGprepared_statement("F")),(long)1,(long)1,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
+#line 52 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 52 "execute.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "fetch 8 in CUR", ECPGt_EOIT, 
+	ECPGt_char,(name),(long)8,(long)8,(8)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_int,(amount),(long)1,(long)8,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_char,(letter),(long)1,(long)8,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 53 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 53 "execute.pgc"
+
+
+	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
+	{
+		/* exec sql begin declare section */
+		    
+		   
+		
+#line 58 "execute.pgc"
+ char  n [ 8 ]    ,  l   = letter [ i ] [ 0 ] ;
+ 
+#line 59 "execute.pgc"
+ int  a   = amount [ i ] ;
+/* exec sql end declare section */
+#line 60 "execute.pgc"
+
+
+		strncpy(n, name[i], 8);
+		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
+	}
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "close CUR", ECPGt_EOIT, ECPGt_EORT);
+#line 66 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 66 "execute.pgc"
+
+
+	sprintf (command, "select * from test where amount = ?");
+
+	{ ECPGprepare(__LINE__, "F" , command);
+#line 70 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 70 "execute.pgc"
+
+	/* declare CUR2  cursor  for ? */
+#line 71 "execute.pgc"
+
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "declare CUR2  cursor  for ?", 
+	ECPGt_char_variable,(ECPGprepared_statement("F")),(long)1,(long)1,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_const,"1",(long)1,(long)1,strlen("1"), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
+#line 73 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 73 "execute.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "fetch in CUR2", ECPGt_EOIT, 
+	ECPGt_char,(name),(long)8,(long)8,(8)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_int,(amount),(long)1,(long)8,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_char,(letter),(long)1,(long)8,(1)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 74 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 74 "execute.pgc"
+
+
+	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
+	{
+		/* exec sql begin declare section */
+		    
+		   
+		
+#line 79 "execute.pgc"
+ char  n [ 8 ]    ,  l   = letter [ i ] [ 0 ] ;
+ 
+#line 80 "execute.pgc"
+ int  a   = amount [ i ] ;
+/* exec sql end declare section */
+#line 81 "execute.pgc"
+
+
+		strncpy(n, name[i], 8);
+		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
+	}
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "close CUR2", ECPGt_EOIT, ECPGt_EORT);
+#line 87 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 87 "execute.pgc"
+
+	{ ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
+#line 88 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 88 "execute.pgc"
+
+	{ ECPGtrans(__LINE__, NULL, "commit");
+#line 89 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 89 "execute.pgc"
+
+	{ ECPGdisconnect(__LINE__, "CURRENT");
+#line 90 "execute.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 90 "execute.pgc"
+
+
+	return (0);
+}

src/interfaces/ecpg/test/expected/sql-execute.stdout

+Inserted 2 tuples via execute immediate
+Inserted 4 tuples via prepared execute
+name[0]=db: 'r1'	amount[0]=1	letter[0]=f
+name[1]=db: 'r1'	amount[1]=2	letter[1]=t
+name[2]=db: 'r1'	amount[2]=11	letter[2]=f
+name[3]=db: 'r1'	amount[3]=12	letter[3]=t
+name[4]=db: 'r1'	amount[4]=101	letter[4]=f
+name[5]=db: 'r1'	amount[5]=102	letter[5]=t
+name[6]=db: 'r1'	amount[6]=111	letter[6]=f
+name[7]=db: 'r1'	amount[7]=112	letter[7]=t
+name[0]=db: 'r1'	amount[0]=1	letter[0]=f

src/interfaces/ecpg/test/expected/sql-fetch.c

+/* Processed by ecpg (4.2.1) */
+/* These include files are added by the preprocessor */
+#include <ecpgtype.h>
+#include <ecpglib.h>
+#include <ecpgerrno.h>
+#include <sqlca.h>
+/* End of automatic include section */
+
+#line 1 "fetch.pgc"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+
+#line 1 "regression.h"
+
+
+
+
+
+
+#line 5 "fetch.pgc"
+
+
+int main(int argc, char* argv[]) {
+  /* exec sql begin declare section */
+     
+        
+  
+#line 9 "fetch.pgc"
+ char  str [ 25 ]    ;
+ 
+#line 10 "fetch.pgc"
+ int  i    ,  how_many   = 1 ;
+/* exec sql end declare section */
+#line 11 "fetch.pgc"
+
+
+  ECPGdebug(1, stderr);
+  { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
+#line 14 "fetch.pgc"
+
+
+  /* exec sql whenever sql_warning  sqlprint ; */
+#line 16 "fetch.pgc"
+
+  /* exec sql whenever sqlerror  sqlprint ; */
+#line 17 "fetch.pgc"
+
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "create  table My_Table ( Item1 int   , Item2 text   )    ", ECPGt_EOIT, ECPGt_EORT);
+#line 19 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 19 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 19 "fetch.pgc"
+
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 1 , 'text1' ) ", ECPGt_EOIT, ECPGt_EORT);
+#line 21 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 21 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 21 "fetch.pgc"
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 2 , 'text2' ) ", ECPGt_EOIT, ECPGt_EORT);
+#line 22 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 22 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 22 "fetch.pgc"
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 3 , 'text3' ) ", ECPGt_EOIT, ECPGt_EORT);
+#line 23 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 23 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 23 "fetch.pgc"
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 4 , 'text4' ) ", ECPGt_EOIT, ECPGt_EORT);
+#line 24 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 24 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 24 "fetch.pgc"
+
+
+  /* declare C  cursor  for select  *  from My_Table    */
+#line 26 "fetch.pgc"
+
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "declare C  cursor  for select  *  from My_Table   ", ECPGt_EOIT, ECPGt_EORT);
+#line 28 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 28 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 28 "fetch.pgc"
+
+
+  /* exec sql whenever not found  break ; */
+#line 30 "fetch.pgc"
+
+  while (1) {
+  	{ ECPGdo(__LINE__, 0, 1, NULL, "fetch 1 in C", ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_char,(str),(long)25,(long)1,(25)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 32 "fetch.pgc"
+
+if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
+#line 32 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 32 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 32 "fetch.pgc"
+
+	printf("%d: %s\n", i, str);
+  }
+
+  /* exec sql whenever not found  continue ; */
+#line 36 "fetch.pgc"
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "move backward 2 in C", ECPGt_EOIT, ECPGt_EORT);
+#line 37 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 37 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 37 "fetch.pgc"
+
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "fetch  ? in C", 
+	ECPGt_int,&(how_many),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, 
+	ECPGt_int,&(i),(long)1,(long)1,sizeof(int), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_char,(str),(long)25,(long)1,(25)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
+#line 39 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 39 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 39 "fetch.pgc"
+
+  printf("%d: %s\n", i, str);
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "close C", ECPGt_EOIT, ECPGt_EORT);
+#line 42 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 42 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 42 "fetch.pgc"
+
+
+  { ECPGdo(__LINE__, 0, 1, NULL, "drop table My_Table ", ECPGt_EOIT, ECPGt_EORT);
+#line 44 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 44 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 44 "fetch.pgc"
+
+
+  { ECPGdisconnect(__LINE__, "ALL");
+#line 46 "fetch.pgc"
+
+if (sqlca.sqlwarn[0] == 'W') sqlprint();
+#line 46 "fetch.pgc"
+
+if (sqlca.sqlcode < 0) sqlprint();}
+#line 46 "fetch.pgc"
+
+
+  return 0;
+}

src/interfaces/ecpg/test/expected/sql-fetch.stderr

+[NO_PID]: ECPGdebug: set to 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT> 
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 19: QUERY: create  table My_Table ( Item1 int   , Item2 text   )     on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 19 Ok: CREATE TABLE
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 21: QUERY: insert into My_Table values ( 1 , 'text1' )  on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 21 Ok: INSERT 0 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 22: QUERY: insert into My_Table values ( 2 , 'text2' )  on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 22 Ok: INSERT 0 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 23: QUERY: insert into My_Table values ( 3 , 'text3' )  on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 23 Ok: INSERT 0 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 24: QUERY: insert into My_Table values ( 4 , 'text4' )  on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 24 Ok: INSERT 0 1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 28: QUERY: declare C  cursor  for select  *  from My_Table    on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 28 Ok: DECLARE CURSOR
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: QUERY: fetch 1 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: Correctly got 1 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: 1 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: text1 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: QUERY: fetch 1 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: Correctly got 1 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: 2 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: text2 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: QUERY: fetch 1 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: Correctly got 1 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: 3 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: text3 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: QUERY: fetch 1 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: Correctly got 1 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: 4 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 32: RESULT: text4 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: QUERY: fetch 1 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 32: Correctly got 0 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: raising sqlcode 100 in line 32, 'No data found in line 32.'.
+[NO_PID]: sqlca: code: 100, state: 02000
+[NO_PID]: ECPGexecute line 37: QUERY: move backward 2 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 37 Ok: MOVE 2
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 39: QUERY: fetch  1 in C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 39: Correctly got 1 tuples with 2 fields
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 39: RESULT: 4 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGget_data line 39: RESULT: text4 offset: -1 array: Yes
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 42: QUERY: close C on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 42 Ok: CLOSE CURSOR
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 44: QUERY: drop table My_Table  on connection regress1
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ECPGexecute line 44 Ok: DROP TABLE
+[NO_PID]: sqlca: code: 0, state: 00000
+[NO_PID]: ecpg_finish: Connection regress1 closed.
+[NO_PID]: sqlca: code: 0, state: 00000

src/interfaces/ecpg/test/expected/sql-fetch.stdout

+1: text1
+2: text2
+3: text3
+4: text4
+4: text4

src/interfaces/ecpg/test/expected/sql-quote.c

@@ -47,7 +47,7 @@ int main(int argc, char* argv[]) {
 #line 17 "quote.pgc"
 
 
-  { ECPGdo(__LINE__, 0, 1, NULL, "create  table My_Table ( Item1 int   , Item2 text   )    ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "create  table \"My_Table\" ( Item1 int   , Item2 text   )    ", ECPGt_EOIT, ECPGt_EORT);
 #line 19 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();
@@ -71,7 +71,7 @@ if (sqlca.sqlcode < 0) sqlprint();}
   printf("Standard conforming strings: %s\n", var);
 
   /* this is a\\b actually */
-  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
 #line 25 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();
@@ -81,7 +81,7 @@ if (sqlca.sqlcode < 0) sqlprint();}
 #line 25 "quote.pgc"
 
   /* this is a\b */
-  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
 #line 27 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();
@@ -102,7 +102,7 @@ if (sqlca.sqlcode < 0) sqlprint();}
 
 
   /* this is a\\b actually */
-  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
 #line 32 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();
@@ -112,7 +112,7 @@ if (sqlca.sqlcode < 0) sqlprint();}
 #line 32 "quote.pgc"
 
   /* this is a\b */
-  { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
 #line 34 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();
@@ -122,7 +122,7 @@ if (sqlca.sqlcode < 0) sqlprint();}
 #line 34 "quote.pgc"
 
 
-  { ECPGdo(__LINE__, 0, 1, NULL, "select  *  from My_Table   ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "select  *  from \"My_Table\"   ", ECPGt_EOIT, ECPGt_EORT);
 #line 36 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();
@@ -132,7 +132,7 @@ if (sqlca.sqlcode < 0) sqlprint();}
 #line 36 "quote.pgc"
 
 
-  { ECPGdo(__LINE__, 0, 1, NULL, "drop table My_Table ", ECPGt_EOIT, ECPGt_EORT);
+  { ECPGdo(__LINE__, 0, 1, NULL, "drop table \"My_Table\" ", ECPGt_EOIT, ECPGt_EORT);
 #line 38 "quote.pgc"
 
 if (sqlca.sqlwarn[0] == 'W') sqlprint();

src/interfaces/ecpg/test/expected/sql-quote.stderr

@@ -4,7 +4,7 @@
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGsetcommit line 15 action = on connection = regress1
 [NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 19: QUERY: create  table My_Table ( Item1 int   , Item2 text   )     on connection regress1
+[NO_PID]: ECPGexecute line 19: QUERY: create  table "My_Table" ( Item1 int   , Item2 text   )     on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGexecute line 19 Ok: CREATE TABLE
 [NO_PID]: sqlca: code: 0, state: 00000
@@ -14,7 +14,7 @@
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGget_data line 21: RESULT: off offset: -1 array: Yes
 [NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 25: QUERY: insert into My_Table values( 1 , 'a\\b' ) on connection regress1
+[NO_PID]: ECPGexecute line 25: QUERY: insert into "My_Table" values ( 1 , 'a\\b' )  on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: nonstandard use of \\ in a string literal[NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: raising sqlcode 0
@@ -22,7 +22,7 @@
 [NO_PID]: ECPGexecute line 25 Ok: INSERT 0 1
 [NO_PID]: sqlca: code: 0, state: 22P06
 sql error nonstandard use of \\ in a string literal
-[NO_PID]: ECPGexecute line 27: QUERY: insert into My_Table values( 1 , 'a\\b' ) on connection regress1
+[NO_PID]: ECPGexecute line 27: QUERY: insert into "My_Table" values ( 1 , 'a\\b' )  on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: nonstandard use of \\ in a string literal[NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: raising sqlcode 0
@@ -34,22 +34,22 @@ sql error nonstandard use of \\ in a string literal
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGexecute line 29 Ok: SET
 [NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 32: QUERY: insert into My_Table values( 1 , 'a\\b' ) on connection regress1
+[NO_PID]: ECPGexecute line 32: QUERY: insert into "My_Table" values ( 1 , 'a\\b' )  on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGexecute line 32 Ok: INSERT 0 1
 [NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 34: QUERY: insert into My_Table values( 1 , 'a\\b' ) on connection regress1
+[NO_PID]: ECPGexecute line 34: QUERY: insert into "My_Table" values ( 1 , 'a\\b' )  on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGexecute line 34 Ok: INSERT 0 1
 [NO_PID]: sqlca: code: 0, state: 00000
-[NO_PID]: ECPGexecute line 36: QUERY: select  *  from My_Table    on connection regress1
+[NO_PID]: ECPGexecute line 36: QUERY: select  *  from "My_Table"    on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGexecute line 36: Correctly got 4 tuples with 2 fields
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: raising sqlcode -202 in line 36, 'Too few arguments in line 36.'.
 [NO_PID]: sqlca: code: -202, state: 07002
 sql error Too few arguments in line 36.
-[NO_PID]: ECPGexecute line 38: QUERY: drop table My_Table  on connection regress1
+[NO_PID]: ECPGexecute line 38: QUERY: drop table "My_Table"  on connection regress1
 [NO_PID]: sqlca: code: 0, state: 00000
 [NO_PID]: ECPGexecute line 38 Ok: DROP TABLE
 [NO_PID]: sqlca: code: 0, state: 00000

src/interfaces/ecpg/test/pg_regress.sh

 #! /bin/sh
-# $PostgreSQL: pgsql/src/interfaces/ecpg/test/pg_regress.sh,v 1.12 2006/09/05 12:17:09 meskes Exp $
+# $PostgreSQL: pgsql/src/interfaces/ecpg/test/pg_regress.sh,v 1.13 2006/09/08 13:32:27 meskes Exp $
 
 me=`basename $0`
 
@@ -710,7 +710,6 @@ rm -f regression.diffs
 for i in \
          connect/*.pgc \
          compat_informix/*.pgc \
-         complex/*.pgc \
          preproc/*.pgc \
          pgtypeslib/*.pgc \
          sql/*.pgc \

src/interfaces/ecpg/test/preproc/Makefile

@@ -4,10 +4,12 @@ include $(top_builddir)/src/Makefile.global
 include $(top_srcdir)/$(subdir)/../Makefile.regress
 
 
-TESTS = define define.c \
+TESTS = comment comment.c \
+	define define.c \
 	init init.c \
 	type type.c \
-	variable variable.c
+	variable variable.c \
+	whenever whenever.c
 
 all: $(TESTS)
 

src/interfaces/ecpg/test/preproc/comment.pgc

+#include <stdlib.h>
+
+exec sql include ../regression;
+
+/* just a test comment */ int i;
+/* just a test comment int j*/;
+
+/****************************************************************************/
+/* Test comment                                                             */
+/*--------------------------------------------------------------------------*/
+
+// we also understand this style
+int k;
+
+int main(void)
+{
+  ECPGdebug(1, stderr);
+
+  exec sql --this is a comment too
+  connect to REGRESSDB1;
+
+  exec sql disconnect;
+  exit (0);
+}
+

src/interfaces/ecpg/test/preproc/type.pgc

@@ -74,5 +74,7 @@ main (void)
   printf ("id=%ld name='%s' accs=%d str='%s' ptr='%s' vc='%10.10s'\n", empl.idnum, empl.name, empl.accs, str, ptr, vc.text);
 
   EXEC SQL disconnect;
+
+  free(ptr);
   exit (0);
 }

src/interfaces/ecpg/test/preproc/whenever.pgc

+#include <stdlib.h>
+
+exec sql include ../regression;
+
+exec sql whenever sqlerror sqlprint;
+
+static void print(char *msg)
+{
+        fprintf(stderr, "Error in statement '%s':\n", msg);
+        sqlprint();
+}
+
+static void print2(void)
+{
+        fprintf(stderr, "Found another error\n");
+        sqlprint();
+}
+
+static void warn(void)
+{
+        fprintf(stderr, "Warning: At least one column was truncated\n");
+}
+
+int main(void)
+{
+	exec sql int i;
+	exec sql char c[6];
+
+	ECPGdebug(1, stderr);
+
+	exec sql connect to REGRESSDB1;
+	exec sql create table test(i int, c char(10));
+	exec sql insert into test values(1, 'abcdefghij');
+
+	exec sql whenever sqlwarning do warn();
+	exec sql select * into :i, :c from test;
+	exec sql rollback;
+
+	exec sql select * into :i from nonexistant;
+	exec sql rollback;
+
+	exec sql whenever sqlerror do print("select");
+	exec sql select * into :i from nonexistant;
+	exec sql rollback;
+
+	exec sql whenever sqlerror call print2();
+	exec sql select * into :i from nonexistant;
+	exec sql rollback;
+
+	exec sql whenever sqlerror continue;
+	exec sql select * into :i from nonexistant;
+	exec sql rollback;
+
+	exec sql whenever sqlerror goto error;
+	exec sql select * into :i from nonexistant;
+	printf("Should not be reachable\n");
+
+	error:
+	exec sql rollback;
+
+	exec sql whenever sqlerror stop;
+	exec sql select * into :i from nonexistant;
+	exec sql rollback;
+	exit (0);
+}	

src/interfaces/ecpg/test/sql/Makefile

@@ -12,6 +12,8 @@ TESTS = array array.c \
         dyntest dyntest.c \
         dynalloc dynalloc.c \
         dynalloc2 dynalloc2.c \
+        execute execute.c \
+        fetch fetch.c \
         func func.c \
         indicators indicators.c \
         quote quote.c \

src/interfaces/ecpg/test/sql/execute.pgc

+#include <stdlib.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+exec sql include ../regression;
+
+exec sql whenever sqlerror sqlprint;
+
+int
+main(void)
+{
+exec sql begin declare section;
+	int amount[8];
+	int increment=100;
+	char name[8][8];
+	char letter[8][1];
+	char command[128];
+exec sql end declare section;
+	int i,j;
+
+	ECPGdebug(1, stderr);
+
+	exec sql connect to REGRESSDB1 as main;
+	exec sql create table test (name char(8), amount int, letter char(1));
+	exec sql commit;
+
+	sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 1, 'f')");
+	exec sql execute immediate :command;
+
+	sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')");
+	exec sql execute immediate :command;
+
+	sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test");
+	exec sql execute immediate :command;
+
+	printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
+
+	sprintf(command, "insert into test (name, amount, letter) select name, amount+?, letter from test");
+	exec sql prepare I from :command;
+	exec sql execute I using :increment;
+
+	printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
+
+	exec sql commit;
+
+	sprintf (command, "select * from test");
+
+	exec sql prepare F from :command;
+	exec sql declare CUR cursor for F;
+
+	exec sql open CUR;
+	exec sql fetch 8 in CUR into :name, :amount, :letter;
+
+	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
+	{
+		exec sql begin declare section;
+		char n[8], l = letter[i][0];
+		int a = amount[i];
+		exec sql end declare section;
+
+		strncpy(n, name[i], 8);
+		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
+	}
+
+	exec sql close CUR;
+
+	sprintf (command, "select * from test where amount = ?");
+
+	exec sql prepare F from :command;
+	exec sql declare CUR2 cursor for F;
+
+	exec sql open CUR2 using 1;
+	exec sql fetch in CUR2 into :name, :amount, :letter;
+
+	for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
+	{
+		exec sql begin declare section;
+		char n[8], l = letter[i][0];
+		int a = amount[i];
+		exec sql end declare section;
+
+		strncpy(n, name[i], 8);
+		printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
+	}
+
+	exec sql close CUR2;
+	exec sql drop table test;
+	exec sql commit;
+	exec sql disconnect;
+
+	return (0);
+}

src/interfaces/ecpg/test/sql/fetch.pgc

+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+EXEC SQL INCLUDE ../regression;
+
+int main(int argc, char* argv[]) {
+  EXEC SQL BEGIN DECLARE SECTION;
+    char str[25];
+    int i, how_many = 1;
+  EXEC SQL END DECLARE SECTION;
+
+  ECPGdebug(1, stderr);
+  EXEC SQL CONNECT TO REGRESSDB1;
+
+  EXEC SQL WHENEVER SQLWARNING SQLPRINT;
+  EXEC SQL WHENEVER SQLERROR SQLPRINT;
+
+  EXEC SQL CREATE TABLE My_Table ( Item1 int, Item2 text );
+
+  EXEC SQL INSERT INTO My_Table VALUES ( 1, 'text1');
+  EXEC SQL INSERT INTO My_Table VALUES ( 2, 'text2');
+  EXEC SQL INSERT INTO My_Table VALUES ( 3, 'text3');
+  EXEC SQL INSERT INTO My_Table VALUES ( 4, 'text4');
+
+  EXEC SQL DECLARE C CURSOR FOR SELECT * FROM My_Table;
+
+  EXEC SQL OPEN C;
+
+  EXEC SQL WHENEVER NOT FOUND DO BREAK;
+  while (1) {
+  	EXEC SQL FETCH 1 IN C INTO :i, :str;
+	printf("%d: %s\n", i, str);
+  }
+
+  EXEC SQL WHENEVER NOT FOUND CONTINUE;
+  EXEC SQL MOVE BACKWARD 2 IN C;
+
+  EXEC SQL FETCH :how_many IN C INTO :i, :str;
+  printf("%d: %s\n", i, str);
+
+  EXEC SQL CLOSE C;
+
+  EXEC SQL DROP TABLE My_Table;
+
+  EXEC SQL DISCONNECT ALL;
+
+  return 0;
+}

src/interfaces/ecpg/test/sql/quote.pgc

@@ -16,26 +16,26 @@ int main(int argc, char* argv[]) {
   EXEC SQL WHENEVER SQLWARNING SQLPRINT;
   EXEC SQL WHENEVER SQLERROR SQLPRINT;
 
-  EXEC SQL CREATE TABLE My_Table ( Item1 int, Item2 text );
+  EXEC SQL CREATE TABLE "My_Table" ( Item1 int, Item2 text );
 
   EXEC SQL SHOW standard_conforming_strings INTO :var;
   printf("Standard conforming strings: %s\n", var);
 
   /* this is a\\b actually */
-  EXEC SQL INSERT INTO My_Table VALUES ( 1, 'a\\\\b' );
+  EXEC SQL INSERT INTO "My_Table" VALUES ( 1, 'a\\\\b' );
   /* this is a\b */
-  EXEC SQL INSERT INTO My_Table VALUES ( 1, E'a\\\\b' );
+  EXEC SQL INSERT INTO "My_Table" VALUES ( 1, E'a\\\\b' );
 
   EXEC SQL SET standard_conforming_strings TO on;
 
   /* this is a\\b actually */
-  EXEC SQL INSERT INTO My_Table VALUES ( 1, 'a\\\\b' );
+  EXEC SQL INSERT INTO "My_Table" VALUES ( 1, 'a\\\\b' );
   /* this is a\b */
-  EXEC SQL INSERT INTO My_Table VALUES ( 1, E'a\\\\b' );
+  EXEC SQL INSERT INTO "My_Table" VALUES ( 1, E'a\\\\b' );
 
-  EXEC SQL SELECT * FROM My_Table;
+  EXEC SQL SELECT * FROM "My_Table";
 
-  EXEC SQL DROP TABLE My_Table;
+  EXEC SQL DROP TABLE "My_Table";
 
   EXEC SQL DISCONNECT ALL;