Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Skip to content

Commit 1f0a6cd

Browse files
author
Michael Meskes
committed
Hopefully that's it. The remaining files for ecpg regression tests.
1 parent 6392518 commit 1f0a6cd

File tree

126 files changed

+30557
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

126 files changed

+30557
-0
lines changed

‎src/interfaces/ecpg/test/compat_informix/Makefile

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
subdir = src/interfaces/ecpg/test/compat_informix
2+
top_builddir = ../../../../..
3+
include $(top_builddir)/src/Makefile.global
4+
include ../Makefile.regress
5+
6+
# special informix compatiblity switches
7+
ECPG += -C INFORMIX
8+
ECPG_NOIND = $(ECPG) -r no_indicator
9+
override LDFLAGS += -L../../compatlib
10+
override LIBS += $(LIBS) -lecpg_compat
11+
12+
TESTS = test_informix test_informix.c \
13+
test_informix2 test_informix2.c
14+
15+
all: $(TESTS)
16+
17+
test_informix.c: test_informix.pgc ../regression.h
18+
$(ECPG) -o $@ -I$(srcdir) $<
19+
20+
test_informix2.c: test_informix2.pgc ../regression.h
21+
$(ECPG_NOIND) -o $@ -I$(srcdir) $<
22+

‎src/interfaces/ecpg/test/compat_informix/test_informix.pgc

Lines changed: 92 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,92 @@
1+
#include "sqltypes.h"
2+
3+
$include ../regression;
4+
$define NUMBER 12;
5+
6+
static void openit(void);
7+
static void dosqlprint(void) {
8+
printf("doSQLprint: Error: %s\n", sqlca.sqlerrm.sqlerrmc);
9+
}
10+
11+
int main(void)
12+
{
13+
$int i = 14;
14+
$decimal j, m, n;
15+
16+
ECPGdebug(1, stderr);
17+
$whenever sqlerror do dosqlprint();
18+
19+
$connect to REGRESSDB1;
20+
if (sqlca.sqlcode != 0) exit(1);
21+
22+
$create table test(i int primary key, j int);
23+
24+
/* this INSERT works */
25+
rsetnull(CDECIMALTYPE, (char *)&j);
26+
$insert into test (i, j) values (7, :j);
27+
$commit;
28+
29+
/* this INSERT should fail because i is a unique column */
30+
$insert into test (i, j) values (7, NUMBER);
31+
printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
32+
if (sqlca.sqlcode != 0) $rollback;
33+
34+
$insert into test (i, j) values (:i, 1);
35+
$commit;
36+
37+
/* this will fail (more than one row in subquery) */
38+
$select i from test where j=(select j from test);
39+
40+
/* this however should be ok */
41+
$select i from test where j=(select j from test limit 1);
42+
printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
43+
if (sqlca.sqlcode != 0) $rollback;
44+
45+
$declare c cursor for select * from test where i <= :i;
46+
openit();
47+
48+
deccvint(0, &j);
49+
50+
while (1)
51+
{
52+
$fetch forward c into :i, :j;
53+
if (sqlca.sqlcode == 100) break;
54+
else if (sqlca.sqlcode != 0) printf ("Error: %ld\n", sqlca.sqlcode);
55+
56+
if (risnull(CDECIMALTYPE, (char *)&j))
57+
printf("%d NULL\n", i);
58+
else
59+
{
60+
int a;
61+
62+
dectoint(&j, &a);
63+
printf("%d %d\n", i, a);
64+
}
65+
}
66+
67+
deccvint(7, &j);
68+
deccvint(14, &m);
69+
decadd(&j, &m, &n);
70+
$delete from test where i=:n;
71+
printf("DELETE: %ld\n", sqlca.sqlcode);
72+
73+
$select 1 from test where i=14;
74+
printf("Exists: %ld\n", sqlca.sqlcode);
75+
76+
$select 1 from test where i=147;
77+
printf("Does not exist: %ld\n", sqlca.sqlcode);
78+
79+
$commit;
80+
$drop table test;
81+
$commit;
82+
83+
$close database;
84+
85+
return 0;
86+
}
87+
88+
static void openit(void)
89+
{
90+
$open c;
91+
}
92+

‎src/interfaces/ecpg/test/compat_informix/test_informix2.pgc

Lines changed: 131 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,131 @@
1+
#include <stdio.h>
2+
#include <stdlib.h>
3+
#include "sqltypes.h"
4+
5+
EXEC SQL include sqlca.h;
6+
EXEC SQL include ../regression;
7+
EXEC SQL DEFINE MAXDBLEN 30;
8+
9+
/* Check SQLCODE, and produce a "standard error" if it's wrong! */
10+
static void sql_check(char *fn, char *caller, int ignore)
11+
{
12+
char errorstring[255];
13+
14+
if (SQLCODE == ignore)
15+
return;
16+
else
17+
{
18+
if (SQLCODE != 0)
19+
{
20+
21+
sprintf(errorstring, "**SQL error %ld doing '%s' in function '%s'. [%s]",
22+
SQLCODE, caller, fn, sqlca.sqlerrm.sqlerrmc);
23+
fprintf(stderr, "%s", errorstring);
24+
printf("%s\n", errorstring);
25+
26+
/* attempt a ROLLBACK */
27+
EXEC SQL rollback;
28+
29+
if (SQLCODE == 0)
30+
{
31+
sprintf(errorstring, "Rollback successful.\n");
32+
} else {
33+
sprintf(errorstring, "Rollback failed with code %ld.\n", SQLCODE);
34+
}
35+
36+
fprintf(stderr, "%s", errorstring);
37+
printf("%s\n", errorstring);
38+
39+
exit(1);
40+
}
41+
}
42+
}
43+
44+
45+
46+
int main(void)
47+
{
48+
EXEC SQL BEGIN DECLARE SECTION;
49+
int c;
50+
timestamp d;
51+
timestamp maxd;
52+
char dbname[30];
53+
EXEC SQL END DECLARE SECTION;
54+
55+
EXEC SQL whenever sqlerror sqlprint;
56+
57+
ECPGdebug(1, stderr);
58+
59+
/* if (strlen(REGRESSDB1) > MAXDBLEN) {
60+
exit(1);
61+
}
62+
*/
63+
strcpy(dbname, "regress1");
64+
EXEC SQL connect to :dbname;
65+
sql_check("main", "connect", 0);
66+
67+
EXEC SQL create table history (customerid integer, timestamp timestamp without time zone, action_taken char(5), narrative varchar(100));
68+
sql_check("main", "create", 0);
69+
70+
EXEC SQL insert into history
71+
(customerid, timestamp, action_taken, narrative)
72+
values(1, '2003-05-07 13:28:34 CEST', 'test', 'test');
73+
sql_check("main", "insert", 0);
74+
75+
EXEC SQL select max(timestamp)
76+
into :maxd
77+
from history;
78+
sql_check("main", "select max", 100);
79+
80+
if (risnull(CDTIMETYPE, (char *) &maxd))
81+
{
82+
printf("Nothing on the history table\n\n");
83+
exit(0);
84+
}
85+
86+
EXEC SQL select customerid, timestamp
87+
into :c, :d
88+
from history
89+
where timestamp = :maxd
90+
limit 1;
91+
sql_check("main", "select", 0);
92+
93+
printf("Read in customer %d\n", c);
94+
95+
/* Adding 1 to d adds 1 second. So:
96+
60 1 minute
97+
3600 1 hour
98+
86400 1 day */
99+
d=d+86400;
100+
c++;
101+
102+
EXEC SQL insert into history
103+
(customerid, timestamp, action_taken, narrative)
104+
values(:c, :d, 'test', 'test');
105+
sql_check("main", "update", 0);
106+
107+
EXEC SQL commit;
108+
109+
EXEC SQL drop table history;
110+
sql_check("main", "drop", 0);
111+
112+
EXEC SQL commit;
113+
114+
EXEC SQL disconnect;
115+
sql_check("main", "disconnect", 0);
116+
117+
printf("All OK!\n");
118+
119+
exit(0);
120+
121+
/*
122+
Table "public.history"
123+
Column | Type | Modifiers
124+
--------------+-----------------------------+-----------
125+
customerid | integer | not null
126+
timestamp | timestamp without time zone | not null
127+
action_taken | character(5) | not null
128+
narrative | character varying(100) |
129+
*/
130+
131+
}

‎src/interfaces/ecpg/test/complex/Makefile

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
subdir = src/interfaces/ecpg/test/complex
2+
top_builddir = ../../../../..
3+
include $(top_builddir)/src/Makefile.global
4+
include ../Makefile.regress
5+
6+
7+
TESTS = test1 test1.c \
8+
test2 test2.c \
9+
test3 test3.c \
10+
test4 test4.c \
11+
test5 test5.c
12+
13+
all: $(TESTS)
14+
15+
# test4 needs the -c option for the "EXEC SQL TYPE" construct
16+
test4.c: test4.pgc ../regression.h
17+
$(ECPG) -c -o $@ -I$(srcdir) $<

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

Lines changed: 34 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
/* $PostgreSQL: pgsql/src/interfaces/ecpg/test/complex/header_test.h,v 1.1 2006/08/02 14:14:02 meskes Exp $ */
2+
3+
#include "stdlib.h"
4+
5+
static void
6+
Finish(char *msg)
7+
{
8+
fprintf(stderr, "Error in statement '%s':\n", msg);
9+
sqlprint();
10+
11+
/* finish transaction */
12+
exec sql rollback;
13+
14+
/* and remove test table */
15+
exec sql drop table meskes;
16+
exec sql commit;
17+
18+
exec sql disconnect;
19+
20+
exit(-1);
21+
}
22+
23+
static void
24+
warn(void)
25+
{
26+
fprintf(stderr, "Warning: At least one column was truncated\n");
27+
}
28+
29+
exec sql whenever sqlerror
30+
do
31+
Finish(msg);
32+
exec sql whenever sqlwarning
33+
do
34+
warn();

0 commit comments

Comments
 (0)