Age Owner TLA Line data Source code
1 : /*-------------------------------------------------------------------------
2 : *
3 : * pg_regress_ecpg --- regression test driver for ecpg
4 : *
5 : * This is a C implementation of the previous shell script for running
6 : * the regression tests, and should be mostly compatible with it.
7 : * Initial author of C translation: Magnus Hagander
8 : *
9 : * This code is released under the terms of the PostgreSQL License.
10 : *
11 : * Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
12 : * Portions Copyright (c) 1994, Regents of the University of California
13 : *
14 : * src/interfaces/ecpg/test/pg_regress_ecpg.c
15 : *
16 : *-------------------------------------------------------------------------
17 : */
18 :
19 : #include "postgres_fe.h"
20 :
21 : #include "pg_regress.h"
22 : #include "common/string.h"
23 : #include "lib/stringinfo.h"
24 :
25 :
26 : /*
27 : * Create a filtered copy of sourcefile, removing any path
28 : * appearing in #line directives; for example, replace
29 : * #line x "./../bla/foo.h" with #line x "foo.h".
30 : * This is needed because the path part can vary depending
31 : * on compiler, platform, build options, etc.
32 : */
33 : static void
818 tgl 34 CBC 63 : ecpg_filter_source(const char *sourcefile, const char *outfile)
35 : {
36 : FILE *s,
37 : *t;
38 : StringInfoData linebuf;
39 :
5780 magnus 40 63 : s = fopen(sourcefile, "r");
41 63 : if (!s)
42 : {
5780 magnus 43 UBC 0 : fprintf(stderr, "Could not open file %s for reading\n", sourcefile);
4115 peter_e 44 0 : exit(2);
45 : }
5780 magnus 46 CBC 63 : t = fopen(outfile, "w");
47 63 : if (!t)
48 : {
5780 magnus 49 UBC 0 : fprintf(stderr, "Could not open file %s for writing\n", outfile);
4115 peter_e 50 0 : exit(2);
51 : }
52 :
945 tgl 53 CBC 63 : initStringInfo(&linebuf);
54 :
929 55 16730 : while (pg_get_line_buf(s, &linebuf))
56 : {
57 : /* check for "#line " in the beginning */
945 58 16667 : if (strstr(linebuf.data, "#line ") == linebuf.data)
59 : {
60 2768 : char *p = strchr(linebuf.data, '"');
5624 bruce 61 2768 : int plen = 1;
62 :
5780 magnus 63 169413 : while (*p && (*(p + plen) == '.' || strchr(p + plen, '/') != NULL))
64 : {
65 166645 : plen++;
66 : }
67 : /* plen is one more than the number of . and / characters */
68 2768 : if (plen > 1)
69 : {
945 tgl 70 2768 : memmove(p + 1, p + plen, strlen(p + plen) + 1);
71 : /* we don't bother to fix up linebuf.len */
72 : }
73 : }
74 16667 : fputs(linebuf.data, t);
75 : }
76 :
77 63 : pfree(linebuf.data);
5780 magnus 78 63 : fclose(s);
79 63 : fclose(t);
80 63 : }
81 :
82 : /*
83 : * Remove the details of connection failure error messages
84 : * in a test result file, since the target host/pathname and/or port
85 : * can vary. Rewrite the result file in-place.
86 : *
87 : * At some point it might be interesting to unify this with
88 : * ecpg_filter_source, but building a general pattern matcher
89 : * is no fun, nor does it seem desirable to introduce a
90 : * dependency on an external one.
91 : */
92 : static void
818 tgl 93 63 : ecpg_filter_stderr(const char *resultfile, const char *tmpfile)
94 : {
95 : FILE *s,
96 : *t;
97 : StringInfoData linebuf;
98 :
99 63 : s = fopen(resultfile, "r");
100 63 : if (!s)
101 : {
818 tgl 102 UBC 0 : fprintf(stderr, "Could not open file %s for reading\n", resultfile);
103 0 : exit(2);
104 : }
818 tgl 105 CBC 63 : t = fopen(tmpfile, "w");
106 63 : if (!t)
107 : {
818 tgl 108 UBC 0 : fprintf(stderr, "Could not open file %s for writing\n", tmpfile);
109 0 : exit(2);
110 : }
111 :
818 tgl 112 CBC 63 : initStringInfo(&linebuf);
113 :
114 6542 : while (pg_get_line_buf(s, &linebuf))
115 : {
808 116 6479 : char *p1 = strstr(linebuf.data, "connection to server ");
117 :
818 118 6479 : if (p1)
119 : {
808 120 1 : char *p2 = strstr(p1, "failed: ");
121 :
818 122 1 : if (p2)
123 : {
808 124 1 : memmove(p1 + 21, p2, strlen(p2) + 1);
125 : /* we don't bother to fix up linebuf.len */
126 : }
127 : }
818 128 6479 : fputs(linebuf.data, t);
129 : }
130 :
131 63 : pfree(linebuf.data);
132 63 : fclose(s);
133 63 : fclose(t);
134 63 : if (rename(tmpfile, resultfile) != 0)
135 : {
818 tgl 136 UBC 0 : fprintf(stderr, "Could not overwrite file %s with %s\n",
137 : resultfile, tmpfile);
138 0 : exit(2);
139 : }
818 tgl 140 CBC 63 : }
141 :
142 : /*
143 : * start an ecpg test process for specified file (including redirection),
144 : * and return process ID
145 : */
146 :
147 : static PID_TYPE
5780 magnus 148 63 : ecpg_start_test(const char *testname,
149 : _stringlist **resultfiles,
150 : _stringlist **expectfiles,
151 : _stringlist **tags)
152 : {
153 : PID_TYPE pid;
154 : char inprg[MAXPGPATH];
155 : char insource[MAXPGPATH];
156 : StringInfoData testname_dash;
157 : char outfile_stdout[MAXPGPATH],
158 : expectfile_stdout[MAXPGPATH];
159 : char outfile_stderr[MAXPGPATH],
160 : expectfile_stderr[MAXPGPATH];
161 : char outfile_source[MAXPGPATH],
162 : expectfile_source[MAXPGPATH];
163 : char cmd[MAXPGPATH * 3];
164 : char *appnameenv;
165 :
166 63 : snprintf(inprg, sizeof(inprg), "%s/%s", inputdir, testname);
232 andres 167 GNC 63 : snprintf(insource, sizeof(insource), "%s/%s.c", inputdir, testname);
168 :
169 : /* make a version of the test name that has dashes in place of slashes */
945 tgl 170 CBC 63 : initStringInfo(&testname_dash);
171 63 : appendStringInfoString(&testname_dash, testname);
475 172 1037 : for (char *c = testname_dash.data; *c != '\0'; c++)
173 : {
174 974 : if (*c == '/')
175 63 : *c = '-';
176 : }
177 :
5780 magnus 178 63 : snprintf(expectfile_stdout, sizeof(expectfile_stdout),
179 : "%s/expected/%s.stdout",
180 : expecteddir, testname_dash.data);
181 63 : snprintf(expectfile_stderr, sizeof(expectfile_stderr),
182 : "%s/expected/%s.stderr",
183 : expecteddir, testname_dash.data);
184 63 : snprintf(expectfile_source, sizeof(expectfile_source),
185 : "%s/expected/%s.c",
186 : expecteddir, testname_dash.data);
187 :
945 tgl 188 63 : snprintf(outfile_stdout, sizeof(outfile_stdout),
189 : "%s/results/%s.stdout",
190 : outputdir, testname_dash.data);
191 63 : snprintf(outfile_stderr, sizeof(outfile_stderr),
192 : "%s/results/%s.stderr",
193 : outputdir, testname_dash.data);
194 63 : snprintf(outfile_source, sizeof(outfile_source),
195 : "%s/results/%s.c",
196 : outputdir, testname_dash.data);
197 :
5780 magnus 198 63 : add_stringlist_item(resultfiles, outfile_stdout);
199 63 : add_stringlist_item(expectfiles, expectfile_stdout);
200 63 : add_stringlist_item(tags, "stdout");
201 :
202 63 : add_stringlist_item(resultfiles, outfile_stderr);
203 63 : add_stringlist_item(expectfiles, expectfile_stderr);
204 63 : add_stringlist_item(tags, "stderr");
205 :
206 63 : add_stringlist_item(resultfiles, outfile_source);
207 63 : add_stringlist_item(expectfiles, expectfile_source);
208 63 : add_stringlist_item(tags, "source");
209 :
818 tgl 210 63 : ecpg_filter_source(insource, outfile_source);
211 :
5780 magnus 212 63 : snprintf(cmd, sizeof(cmd),
213 : "\"%s\" >\"%s\" 2>\"%s\"",
214 : inprg,
215 : outfile_stdout,
216 : outfile_stderr);
217 :
830 tgl 218 63 : appnameenv = psprintf("ecpg/%s", testname_dash.data);
219 63 : setenv("PGAPPNAME", appnameenv, 1);
220 63 : free(appnameenv);
221 :
5780 magnus 222 63 : pid = spawn_process(cmd);
223 :
224 63 : if (pid == INVALID_PID)
225 : {
5780 magnus 226 UBC 0 : fprintf(stderr, _("could not start process for test %s\n"),
227 : testname);
4115 peter_e 228 0 : exit(2);
229 : }
230 :
1321 tgl 231 CBC 63 : unsetenv("PGAPPNAME");
232 :
945 233 63 : free(testname_dash.data);
234 :
5780 magnus 235 63 : return pid;
236 : }
237 :
238 : static void
818 tgl 239 189 : ecpg_postprocess_result(const char *filename)
240 : {
241 189 : int nlen = strlen(filename);
242 :
243 : /* Only stderr files require filtering, at the moment */
244 189 : if (nlen > 7 && strcmp(filename + nlen - 7, ".stderr") == 0)
245 : {
246 63 : char *tmpfile = psprintf("%s.tmp", filename);
247 :
248 63 : ecpg_filter_stderr(filename, tmpfile);
249 63 : pfree(tmpfile);
250 : }
251 189 : }
252 :
253 : static void
3438 rhaas 254 1 : ecpg_init(int argc, char *argv[])
255 : {
256 : /* nothing to do here at the moment */
5780 magnus 257 1 : }
258 :
259 : int
260 1 : main(int argc, char *argv[])
261 : {
818 tgl 262 1 : return regression_main(argc, argv,
263 : ecpg_init,
264 : ecpg_start_test,
265 : ecpg_postprocess_result);
266 : }
|
