diff options
Diffstat (limited to 'src/interfaces/ecpg/test/test5.pgc')
-rw-r--r-- | src/interfaces/ecpg/test/test5.pgc | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/src/interfaces/ecpg/test/test5.pgc b/src/interfaces/ecpg/test/test5.pgc deleted file mode 100644 index 1c9289a77d5..00000000000 --- a/src/interfaces/ecpg/test/test5.pgc +++ /dev/null @@ -1,62 +0,0 @@ -#include <stdlib.h> -#include <stdio.h> - -EXEC SQL INCLUDE sqlca; - -static void ErrorExit (void); - -int main (void) - { - EXEC SQL BEGIN DECLARE SECTION; - int result; - int values[2], i; - EXEC SQL END DECLARE SECTION; - FILE *dbgs; - - if ((dbgs = fopen("log", "w")) != NULL) - ECPGdebug(1, dbgs); - - EXEC SQL WHENEVER SQLERROR DO ErrorExit(); - EXEC SQL CONNECT TO 'mm'; - EXEC SQL CREATE TABLE tab (index int); - EXEC SQL INSERT INTO tab(index) values(14); - EXEC SQL INSERT INTO tab(index) values(7); - EXEC SQL COMMIT; - - EXEC SQL CREATE FUNCTION my_fun () RETURNS int AS - '/home/postgres/pgsql/src/interfaces/ecpg.mm/test/stp.so' LANGUAGE 'C'; - EXEC SQL COMMIT; - - EXEC SQL SELECT index INTO :values FROM tab; - for (i = 0; i < 2; i++) - printf("tab[%d] = %d\n", i, values[i]); - - EXEC SQL SELECT my_fun () INTO :result; - printf ("result = %d\n", result); - - EXEC SQL DROP TABLE tab; - EXEC SQL DROP FUNCTION my_fun (); - EXEC SQL COMMIT; - EXEC SQL DISCONNECT; - - if (dbgs != NULL) - fclose(dbgs); - exit (0); - } - - -static void ErrorExit (void) - { - EXEC SQL WHENEVER SQLERROR CONTINUE; - - sqlprint(); - - EXEC SQL ROLLBACK; - - EXEC SQL DROP TABLE tab; - EXEC SQL DROP FUNCTION my_fun (); - EXEC SQL COMMIT; - - EXEC SQL DISCONNECT; - exit (-1); - } |