diff options
Diffstat (limited to 'src/regress/lib/libc/db')
-rw-r--r-- | src/regress/lib/libc/db/Makefile | 22 | ||||
-rw-r--r-- | src/regress/lib/libc/db/README | 69 | ||||
-rw-r--r-- | src/regress/lib/libc/db/dbtest.c | 733 | ||||
-rw-r--r-- | src/regress/lib/libc/db/run.test | 707 |
4 files changed, 0 insertions, 1531 deletions
diff --git a/src/regress/lib/libc/db/Makefile b/src/regress/lib/libc/db/Makefile deleted file mode 100644 index 7d2882594d..0000000000 --- a/src/regress/lib/libc/db/Makefile +++ /dev/null | |||
@@ -1,22 +0,0 @@ | |||
1 | # $OpenBSD: Makefile,v 1.10 2002/09/02 20:01:43 avsm Exp $ | ||
2 | # $NetBSD: Makefile,v 1.11 1995/12/12 01:54:15 cgd Exp $ | ||
3 | |||
4 | PROG= dbtest | ||
5 | |||
6 | # add -DSTATISTICS to CFLAGS to get usage statistics. Note that | ||
7 | # for this to work, libc must be compiled with -DSTATISTICS as well | ||
8 | CFLAGS+= -g -D__DBINTERFACE_PRIVATE -DDEBUG | ||
9 | CLEANFILES+= t1 t2 t3 log | ||
10 | |||
11 | DBTARGETS=1 2 3 4 5 6 7 8 9 10 11 12 13 20 | ||
12 | |||
13 | .for DT in ${DBTARGETS} | ||
14 | db-${DT}: ${PROG} | ||
15 | sh ${.CURDIR}/run.test ${DT} | ||
16 | REGRESS_TARGETS+=db-${DT} | ||
17 | .PHONY: db-${DT} | ||
18 | .endfor | ||
19 | |||
20 | REGRESS_SLOW_TARGETS+=db-3 db-12 db-20 | ||
21 | |||
22 | .include <bsd.regress.mk> | ||
diff --git a/src/regress/lib/libc/db/README b/src/regress/lib/libc/db/README deleted file mode 100644 index 23a1b77221..0000000000 --- a/src/regress/lib/libc/db/README +++ /dev/null | |||
@@ -1,69 +0,0 @@ | |||
1 | # $OpenBSD: README,v 1.3 2001/01/29 02:05:40 niklas Exp $ | ||
2 | # $NetBSD: README,v 1.5 1996/05/03 21:54:19 cgd Exp $ | ||
3 | # @(#)README 8.8 (Berkeley) 7/31/94 | ||
4 | |||
5 | To run the tests, enter "make regress". | ||
6 | |||
7 | Fairly large files (the command files) are built in this directory during | ||
8 | the test runs, and even larger files (the database files) are created in | ||
9 | "/var/tmp". If the latter directory doesn't exist, set the environmental | ||
10 | variable TMPDIR to a directory where the files can be built. | ||
11 | |||
12 | =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | ||
13 | The script file consists of lines with an initial character which is | ||
14 | the command for that line, or an initial character indicating a key | ||
15 | or data entry for a previous command. | ||
16 | |||
17 | Legal command characters are as follows: | ||
18 | |||
19 | c: compare a record | ||
20 | + must be followed by [kK][dD]; the data value in the database | ||
21 | associated with the specified key is compared to the specified | ||
22 | data value. | ||
23 | e: echo a string | ||
24 | + writes out the rest of the line into the output file; if the | ||
25 | last character is not a carriage-return, a newline is appended. | ||
26 | f: set the flags for the next command | ||
27 | + no value zero's the flags | ||
28 | g: do a get command | ||
29 | + must be followed by [kK] | ||
30 | + writes out the retrieved data DBT. | ||
31 | o [r]: dump [reverse] | ||
32 | + dump the database out, if 'r' is set, in reverse order. | ||
33 | p: do a put command | ||
34 | + must be followed by [kK][dD] | ||
35 | r: do a del command | ||
36 | + must be followed by [kK] unless R_CURSOR flag set. | ||
37 | S: sync the database | ||
38 | s: do a seq command | ||
39 | + must be followed by [kK] if R_CURSOR flag set. | ||
40 | + writes out the retrieved data DBT. | ||
41 | |||
42 | Legal key/data characters are as follows: | ||
43 | |||
44 | D [file]: data file | ||
45 | + set the current data value to the contents of the file | ||
46 | d [data]: | ||
47 | + set the current key value to the contents of the line. | ||
48 | K [file]: key file | ||
49 | + set the current key value to the contents of the file | ||
50 | k [data]: | ||
51 | + set the current key value to the contents of the line. | ||
52 | |||
53 | Blank lines, lines with leading white space, and lines with leading | ||
54 | hash marks (#) are ignored. | ||
55 | |||
56 | Options to dbtest are as follows: | ||
57 | |||
58 | -d: Set the DB_LOCK flag. | ||
59 | -f: Use the file argument as the database file. | ||
60 | -i: Use the rest of the argument to set elements in the info | ||
61 | structure. If the type is btree, then "-i cachesize=10240" | ||
62 | will set BTREEINFO.cachesize to 10240. | ||
63 | -o: The rest of the argument is the output file instead of | ||
64 | using stdout. | ||
65 | -s: Don't delete the database file before opening it, i.e. | ||
66 | use the database file from a previous run. | ||
67 | |||
68 | Dbtest requires two arguments, the type of access "hash", "recno" | ||
69 | or "btree", and the script name or "-" to indicate stdin. | ||
diff --git a/src/regress/lib/libc/db/dbtest.c b/src/regress/lib/libc/db/dbtest.c deleted file mode 100644 index c28ec0db5e..0000000000 --- a/src/regress/lib/libc/db/dbtest.c +++ /dev/null | |||
@@ -1,733 +0,0 @@ | |||
1 | /* $OpenBSD: dbtest.c,v 1.12 2009/10/27 23:59:32 deraadt Exp $ */ | ||
2 | /* $NetBSD: dbtest.c,v 1.8 1996/05/03 21:57:48 cgd Exp $ */ | ||
3 | |||
4 | /*- | ||
5 | * Copyright (c) 1992, 1993, 1994 | ||
6 | * The Regents of the University of California. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * 1. Redistributions of source code must retain the above copyright | ||
12 | * notice, this list of conditions and the following disclaimer. | ||
13 | * 2. Redistributions in binary form must reproduce the above copyright | ||
14 | * notice, this list of conditions and the following disclaimer in the | ||
15 | * documentation and/or other materials provided with the distribution. | ||
16 | * 3. Neither the name of the University nor the names of its contributors | ||
17 | * may be used to endorse or promote products derived from this software | ||
18 | * without specific prior written permission. | ||
19 | * | ||
20 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | * SUCH DAMAGE. | ||
31 | */ | ||
32 | |||
33 | #include <sys/param.h> | ||
34 | #include <sys/stat.h> | ||
35 | |||
36 | #include <ctype.h> | ||
37 | #include <errno.h> | ||
38 | #include <fcntl.h> | ||
39 | #include <limits.h> | ||
40 | #include <stdio.h> | ||
41 | #include <stdlib.h> | ||
42 | #include <string.h> | ||
43 | #include <stdarg.h> | ||
44 | #include <unistd.h> | ||
45 | |||
46 | #include <db.h> | ||
47 | |||
48 | enum S { COMMAND, COMPARE, GET, PUT, REMOVE, SEQ, SEQFLAG, KEY, DATA }; | ||
49 | |||
50 | void compare(DBT *, DBT *); | ||
51 | DBTYPE dbtype(char *); | ||
52 | void dump(DB *, int); | ||
53 | void dberr(const char *, ...); | ||
54 | void get(DB *, DBT *); | ||
55 | void getdata(DB *, DBT *, DBT *); | ||
56 | void put(DB *, DBT *, DBT *); | ||
57 | void rem(DB *, DBT *); | ||
58 | char *sflags(int); | ||
59 | void synk(DB *); | ||
60 | void *rfile(char *, size_t *); | ||
61 | void seq(DB *, DBT *); | ||
62 | u_int setflags(char *); | ||
63 | void *setinfo(DBTYPE, char *); | ||
64 | void usage(void); | ||
65 | void *xmalloc(char *, size_t); | ||
66 | |||
67 | DBTYPE type; /* Database type. */ | ||
68 | void *infop; /* Iflags. */ | ||
69 | u_long lineno; /* Current line in test script. */ | ||
70 | u_int flags; /* Current DB flags. */ | ||
71 | int ofd = STDOUT_FILENO; /* Standard output fd. */ | ||
72 | |||
73 | DB *XXdbp; /* Global for gdb. */ | ||
74 | int XXlineno; /* Fast breakpoint for gdb. */ | ||
75 | |||
76 | int | ||
77 | main(int argc, char *argv[]) | ||
78 | { | ||
79 | extern int optind; | ||
80 | extern char *optarg; | ||
81 | enum S command, state; | ||
82 | DB *dbp; | ||
83 | DBT data, key, keydata; | ||
84 | size_t len; | ||
85 | int ch, oflags, sflag; | ||
86 | char *fname, *infoarg, *p, *t, buf[8 * 1024]; | ||
87 | |||
88 | infoarg = NULL; | ||
89 | fname = NULL; | ||
90 | oflags = O_CREAT | O_RDWR; | ||
91 | sflag = 0; | ||
92 | while ((ch = getopt(argc, argv, "f:i:lo:s")) != -1) | ||
93 | switch (ch) { | ||
94 | case 'f': | ||
95 | fname = optarg; | ||
96 | break; | ||
97 | case 'i': | ||
98 | infoarg = optarg; | ||
99 | break; | ||
100 | case 'l': | ||
101 | oflags |= DB_LOCK; | ||
102 | break; | ||
103 | case 'o': | ||
104 | if ((ofd = open(optarg, | ||
105 | O_WRONLY|O_CREAT|O_TRUNC, 0666)) < 0) | ||
106 | dberr("%s: %s", optarg, strerror(errno)); | ||
107 | break; | ||
108 | case 's': | ||
109 | sflag = 1; | ||
110 | break; | ||
111 | case '?': | ||
112 | default: | ||
113 | usage(); | ||
114 | } | ||
115 | argc -= optind; | ||
116 | argv += optind; | ||
117 | |||
118 | if (argc != 2) | ||
119 | usage(); | ||
120 | |||
121 | /* Set the type. */ | ||
122 | type = dbtype(*argv++); | ||
123 | |||
124 | /* Open the descriptor file. */ | ||
125 | if (strcmp(*argv, "-") && freopen(*argv, "r", stdin) == NULL) | ||
126 | dberr("%s: %s", *argv, strerror(errno)); | ||
127 | |||
128 | /* Set up the db structure as necessary. */ | ||
129 | if (infoarg == NULL) | ||
130 | infop = NULL; | ||
131 | else | ||
132 | for (p = strtok(infoarg, ",\t "); p != NULL; | ||
133 | p = strtok(0, ",\t ")) | ||
134 | if (*p != '\0') | ||
135 | infop = setinfo(type, p); | ||
136 | |||
137 | /* | ||
138 | * Open the DB. Delete any preexisting copy, you almost never | ||
139 | * want it around, and it often screws up tests. | ||
140 | */ | ||
141 | if (fname == NULL) { | ||
142 | p = getenv("TMPDIR"); | ||
143 | if (p == NULL) | ||
144 | p = "/var/tmp"; | ||
145 | (void)snprintf(buf, sizeof buf, "%s/__dbtest", p); | ||
146 | fname = buf; | ||
147 | (void)unlink(buf); | ||
148 | } else if (!sflag) | ||
149 | (void)unlink(fname); | ||
150 | |||
151 | if ((dbp = dbopen(fname, | ||
152 | oflags, S_IRUSR | S_IWUSR, type, infop)) == NULL) | ||
153 | dberr("dbopen: %s", strerror(errno)); | ||
154 | XXdbp = dbp; | ||
155 | |||
156 | state = COMMAND; | ||
157 | for (lineno = 1; | ||
158 | (p = fgets(buf, sizeof(buf), stdin)) != NULL; ++lineno) { | ||
159 | /* Delete the newline, displaying the key/data is easier. */ | ||
160 | if (ofd == STDOUT_FILENO && (t = strchr(p, '\n')) != NULL) | ||
161 | *t = '\0'; | ||
162 | if ((len = strlen(buf)) == 0 || isspace(*p) || *p == '#') | ||
163 | continue; | ||
164 | |||
165 | /* Convenient gdb break point. */ | ||
166 | if (XXlineno == lineno) | ||
167 | XXlineno = 1; | ||
168 | switch (*p) { | ||
169 | case 'c': /* compare */ | ||
170 | if (state != COMMAND) | ||
171 | dberr("line %lu: not expecting command", | ||
172 | lineno); | ||
173 | state = KEY; | ||
174 | command = COMPARE; | ||
175 | break; | ||
176 | case 'e': /* echo */ | ||
177 | if (state != COMMAND) | ||
178 | dberr("line %lu: not expecting command", | ||
179 | lineno); | ||
180 | /* Don't display the newline, if CR at EOL. */ | ||
181 | if (p[len - 2] == '\r') | ||
182 | --len; | ||
183 | if (write(ofd, p + 1, len - 1) != len - 1 || | ||
184 | write(ofd, "\n", 1) != 1) | ||
185 | dberr("write: %s", strerror(errno)); | ||
186 | break; | ||
187 | case 'g': /* get */ | ||
188 | if (state != COMMAND) | ||
189 | dberr("line %lu: not expecting command", | ||
190 | lineno); | ||
191 | state = KEY; | ||
192 | command = GET; | ||
193 | break; | ||
194 | case 'p': /* put */ | ||
195 | if (state != COMMAND) | ||
196 | dberr("line %lu: not expecting command", | ||
197 | lineno); | ||
198 | state = KEY; | ||
199 | command = PUT; | ||
200 | break; | ||
201 | case 'r': /* remove */ | ||
202 | if (state != COMMAND) | ||
203 | dberr("line %lu: not expecting command", | ||
204 | lineno); | ||
205 | if (flags == R_CURSOR) { | ||
206 | rem(dbp, &key); | ||
207 | state = COMMAND; | ||
208 | } else { | ||
209 | state = KEY; | ||
210 | command = REMOVE; | ||
211 | } | ||
212 | break; | ||
213 | case 'S': /* sync */ | ||
214 | if (state != COMMAND) | ||
215 | dberr("line %lu: not expecting command", | ||
216 | lineno); | ||
217 | synk(dbp); | ||
218 | state = COMMAND; | ||
219 | break; | ||
220 | case 's': /* seq */ | ||
221 | if (state != COMMAND) | ||
222 | dberr("line %lu: not expecting command", | ||
223 | lineno); | ||
224 | if (flags == R_CURSOR) { | ||
225 | state = KEY; | ||
226 | command = SEQ; | ||
227 | } else | ||
228 | seq(dbp, &key); | ||
229 | break; | ||
230 | case 'f': | ||
231 | flags = setflags(p + 1); | ||
232 | break; | ||
233 | case 'D': /* data file */ | ||
234 | if (state != DATA) | ||
235 | dberr("line %lu: not expecting data", lineno); | ||
236 | data.data = rfile(p + 1, &data.size); | ||
237 | goto ldata; | ||
238 | case 'd': /* data */ | ||
239 | if (state != DATA) | ||
240 | dberr("line %lu: not expecting data", lineno); | ||
241 | data.data = xmalloc(p + 1, len - 1); | ||
242 | data.size = len - 1; | ||
243 | ldata: switch (command) { | ||
244 | case COMPARE: | ||
245 | compare(&keydata, &data); | ||
246 | break; | ||
247 | case PUT: | ||
248 | put(dbp, &key, &data); | ||
249 | break; | ||
250 | default: | ||
251 | dberr("line %lu: command doesn't take data", | ||
252 | lineno); | ||
253 | } | ||
254 | if (type != DB_RECNO) | ||
255 | free(key.data); | ||
256 | free(data.data); | ||
257 | state = COMMAND; | ||
258 | break; | ||
259 | case 'K': /* key file */ | ||
260 | if (state != KEY) | ||
261 | dberr("line %lu: not expecting a key", lineno); | ||
262 | if (type == DB_RECNO) | ||
263 | dberr("line %lu: 'K' not available for recno", | ||
264 | lineno); | ||
265 | key.data = rfile(p + 1, &key.size); | ||
266 | goto lkey; | ||
267 | case 'k': /* key */ | ||
268 | if (state != KEY) | ||
269 | dberr("line %lu: not expecting a key", lineno); | ||
270 | if (type == DB_RECNO) { | ||
271 | static recno_t recno; | ||
272 | recno = atoi(p + 1); | ||
273 | key.data = &recno; | ||
274 | key.size = sizeof(recno); | ||
275 | } else { | ||
276 | key.data = xmalloc(p + 1, len - 1); | ||
277 | key.size = len - 1; | ||
278 | } | ||
279 | lkey: switch (command) { | ||
280 | case COMPARE: | ||
281 | getdata(dbp, &key, &keydata); | ||
282 | state = DATA; | ||
283 | break; | ||
284 | case GET: | ||
285 | get(dbp, &key); | ||
286 | if (type != DB_RECNO) | ||
287 | free(key.data); | ||
288 | state = COMMAND; | ||
289 | break; | ||
290 | case PUT: | ||
291 | state = DATA; | ||
292 | break; | ||
293 | case REMOVE: | ||
294 | rem(dbp, &key); | ||
295 | if ((type != DB_RECNO) && (flags != R_CURSOR)) | ||
296 | free(key.data); | ||
297 | state = COMMAND; | ||
298 | break; | ||
299 | case SEQ: | ||
300 | seq(dbp, &key); | ||
301 | if ((type != DB_RECNO) && (flags != R_CURSOR)) | ||
302 | free(key.data); | ||
303 | state = COMMAND; | ||
304 | break; | ||
305 | default: | ||
306 | dberr("line %lu: command doesn't take a key", | ||
307 | lineno); | ||
308 | } | ||
309 | break; | ||
310 | case 'o': | ||
311 | dump(dbp, p[1] == 'r'); | ||
312 | break; | ||
313 | default: | ||
314 | dberr("line %lu: %s: unknown command character", | ||
315 | lineno, p); | ||
316 | } | ||
317 | } | ||
318 | #ifdef STATISTICS | ||
319 | /* | ||
320 | * -l must be used (DB_LOCK must be set) for this to be | ||
321 | * used, otherwise a page will be locked and it will fail. | ||
322 | */ | ||
323 | if (type == DB_BTREE && oflags & DB_LOCK) | ||
324 | __bt_stat(dbp); | ||
325 | #endif | ||
326 | if (dbp->close(dbp)) | ||
327 | dberr("db->close: %s", strerror(errno)); | ||
328 | (void)close(ofd); | ||
329 | exit(0); | ||
330 | } | ||
331 | |||
332 | #define NOOVERWRITE "put failed, would overwrite key\n" | ||
333 | |||
334 | void | ||
335 | compare(db1, db2) | ||
336 | DBT *db1, *db2; | ||
337 | { | ||
338 | register size_t len; | ||
339 | register u_char *p1, *p2; | ||
340 | |||
341 | if (db1->size != db2->size) | ||
342 | printf("compare failed: key->data len %lu != data len %lu\n", | ||
343 | db1->size, db2->size); | ||
344 | |||
345 | len = MIN(db1->size, db2->size); | ||
346 | for (p1 = db1->data, p2 = db2->data; len--;) | ||
347 | if (*p1++ != *p2++) { | ||
348 | printf("compare failed at offset %d\n", | ||
349 | p1 - (u_char *)db1->data); | ||
350 | break; | ||
351 | } | ||
352 | } | ||
353 | |||
354 | void | ||
355 | get(dbp, kp) | ||
356 | DB *dbp; | ||
357 | DBT *kp; | ||
358 | { | ||
359 | DBT data; | ||
360 | |||
361 | switch (dbp->get(dbp, kp, &data, flags)) { | ||
362 | case 0: | ||
363 | (void)write(ofd, data.data, data.size); | ||
364 | if (ofd == STDOUT_FILENO) | ||
365 | (void)write(ofd, "\n", 1); | ||
366 | break; | ||
367 | case -1: | ||
368 | dberr("line %lu: get: %s", lineno, strerror(errno)); | ||
369 | /* NOTREACHED */ | ||
370 | case 1: | ||
371 | #define NOSUCHKEY "get failed, no such key\n" | ||
372 | if (ofd != STDOUT_FILENO) | ||
373 | (void)write(ofd, NOSUCHKEY, sizeof(NOSUCHKEY) - 1); | ||
374 | else | ||
375 | (void)fprintf(stderr, "%d: %.*s: %s", | ||
376 | lineno, MIN(kp->size, 20), kp->data, NOSUCHKEY); | ||
377 | #undef NOSUCHKEY | ||
378 | break; | ||
379 | } | ||
380 | } | ||
381 | |||
382 | void | ||
383 | getdata(dbp, kp, dp) | ||
384 | DB *dbp; | ||
385 | DBT *kp, *dp; | ||
386 | { | ||
387 | switch (dbp->get(dbp, kp, dp, flags)) { | ||
388 | case 0: | ||
389 | return; | ||
390 | case -1: | ||
391 | dberr("line %lu: getdata: %s", lineno, strerror(errno)); | ||
392 | /* NOTREACHED */ | ||
393 | case 1: | ||
394 | dberr("line %lu: getdata failed, no such key", lineno); | ||
395 | /* NOTREACHED */ | ||
396 | } | ||
397 | } | ||
398 | |||
399 | void | ||
400 | put(dbp, kp, dp) | ||
401 | DB *dbp; | ||
402 | DBT *kp, *dp; | ||
403 | { | ||
404 | switch (dbp->put(dbp, kp, dp, flags)) { | ||
405 | case 0: | ||
406 | break; | ||
407 | case -1: | ||
408 | dberr("line %lu: put: %s", lineno, strerror(errno)); | ||
409 | /* NOTREACHED */ | ||
410 | case 1: | ||
411 | (void)write(ofd, NOOVERWRITE, sizeof(NOOVERWRITE) - 1); | ||
412 | break; | ||
413 | } | ||
414 | } | ||
415 | |||
416 | void | ||
417 | rem(dbp, kp) | ||
418 | DB *dbp; | ||
419 | DBT *kp; | ||
420 | { | ||
421 | switch (dbp->del(dbp, kp, flags)) { | ||
422 | case 0: | ||
423 | break; | ||
424 | case -1: | ||
425 | dberr("line %lu: rem: %s", lineno, strerror(errno)); | ||
426 | /* NOTREACHED */ | ||
427 | case 1: | ||
428 | #define NOSUCHKEY "rem failed, no such key\n" | ||
429 | if (ofd != STDOUT_FILENO) | ||
430 | (void)write(ofd, NOSUCHKEY, sizeof(NOSUCHKEY) - 1); | ||
431 | else if (flags != R_CURSOR) | ||
432 | (void)fprintf(stderr, "%d: %.*s: %s", | ||
433 | lineno, MIN(kp->size, 20), kp->data, NOSUCHKEY); | ||
434 | else | ||
435 | (void)fprintf(stderr, | ||
436 | "%d: rem of cursor failed\n", lineno); | ||
437 | #undef NOSUCHKEY | ||
438 | break; | ||
439 | } | ||
440 | } | ||
441 | |||
442 | void | ||
443 | synk(dbp) | ||
444 | DB *dbp; | ||
445 | { | ||
446 | switch (dbp->sync(dbp, flags)) { | ||
447 | case 0: | ||
448 | break; | ||
449 | case -1: | ||
450 | dberr("line %lu: synk: %s", lineno, strerror(errno)); | ||
451 | /* NOTREACHED */ | ||
452 | } | ||
453 | } | ||
454 | |||
455 | void | ||
456 | seq(dbp, kp) | ||
457 | DB *dbp; | ||
458 | DBT *kp; | ||
459 | { | ||
460 | DBT data; | ||
461 | |||
462 | switch (dbp->seq(dbp, kp, &data, flags)) { | ||
463 | case 0: | ||
464 | (void)write(ofd, data.data, data.size); | ||
465 | if (ofd == STDOUT_FILENO) | ||
466 | (void)write(ofd, "\n", 1); | ||
467 | break; | ||
468 | case -1: | ||
469 | dberr("line %lu: seq: %s", lineno, strerror(errno)); | ||
470 | /* NOTREACHED */ | ||
471 | case 1: | ||
472 | #define NOSUCHKEY "seq failed, no such key\n" | ||
473 | if (ofd != STDOUT_FILENO) | ||
474 | (void)write(ofd, NOSUCHKEY, sizeof(NOSUCHKEY) - 1); | ||
475 | else if (flags == R_CURSOR) | ||
476 | (void)fprintf(stderr, "%d: %.*s: %s", | ||
477 | lineno, MIN(kp->size, 20), kp->data, NOSUCHKEY); | ||
478 | else | ||
479 | (void)fprintf(stderr, | ||
480 | "%d: seq (%s) failed\n", lineno, sflags(flags)); | ||
481 | #undef NOSUCHKEY | ||
482 | break; | ||
483 | } | ||
484 | } | ||
485 | |||
486 | void | ||
487 | dump(dbp, rev) | ||
488 | DB *dbp; | ||
489 | int rev; | ||
490 | { | ||
491 | DBT key, data; | ||
492 | int flags, nflags; | ||
493 | |||
494 | if (rev) { | ||
495 | flags = R_LAST; | ||
496 | nflags = R_PREV; | ||
497 | } else { | ||
498 | flags = R_FIRST; | ||
499 | nflags = R_NEXT; | ||
500 | } | ||
501 | for (;; flags = nflags) | ||
502 | switch (dbp->seq(dbp, &key, &data, flags)) { | ||
503 | case 0: | ||
504 | (void)write(ofd, data.data, data.size); | ||
505 | if (ofd == STDOUT_FILENO) | ||
506 | (void)write(ofd, "\n", 1); | ||
507 | break; | ||
508 | case 1: | ||
509 | goto done; | ||
510 | case -1: | ||
511 | dberr("line %lu: (dump) seq: %s", | ||
512 | lineno, strerror(errno)); | ||
513 | /* NOTREACHED */ | ||
514 | } | ||
515 | done: return; | ||
516 | } | ||
517 | |||
518 | u_int | ||
519 | setflags(s) | ||
520 | char *s; | ||
521 | { | ||
522 | char *p; | ||
523 | |||
524 | for (; isspace(*s); ++s); | ||
525 | if (*s == '\n' || *s == '\0') | ||
526 | return (0); | ||
527 | if ((p = strchr(s, '\n')) != NULL) | ||
528 | *p = '\0'; | ||
529 | if (!strcmp(s, "R_CURSOR")) return (R_CURSOR); | ||
530 | if (!strcmp(s, "R_FIRST")) return (R_FIRST); | ||
531 | if (!strcmp(s, "R_IAFTER")) return (R_IAFTER); | ||
532 | if (!strcmp(s, "R_IBEFORE")) return (R_IBEFORE); | ||
533 | if (!strcmp(s, "R_LAST")) return (R_LAST); | ||
534 | if (!strcmp(s, "R_NEXT")) return (R_NEXT); | ||
535 | if (!strcmp(s, "R_NOOVERWRITE")) return (R_NOOVERWRITE); | ||
536 | if (!strcmp(s, "R_PREV")) return (R_PREV); | ||
537 | if (!strcmp(s, "R_SETCURSOR")) return (R_SETCURSOR); | ||
538 | |||
539 | dberr("line %lu: %s: unknown flag", lineno, s); | ||
540 | /* NOTREACHED */ | ||
541 | } | ||
542 | |||
543 | char * | ||
544 | sflags(flags) | ||
545 | int flags; | ||
546 | { | ||
547 | switch (flags) { | ||
548 | case R_CURSOR: return ("R_CURSOR"); | ||
549 | case R_FIRST: return ("R_FIRST"); | ||
550 | case R_IAFTER: return ("R_IAFTER"); | ||
551 | case R_IBEFORE: return ("R_IBEFORE"); | ||
552 | case R_LAST: return ("R_LAST"); | ||
553 | case R_NEXT: return ("R_NEXT"); | ||
554 | case R_NOOVERWRITE: return ("R_NOOVERWRITE"); | ||
555 | case R_PREV: return ("R_PREV"); | ||
556 | case R_SETCURSOR: return ("R_SETCURSOR"); | ||
557 | } | ||
558 | |||
559 | return ("UNKNOWN!"); | ||
560 | } | ||
561 | |||
562 | DBTYPE | ||
563 | dbtype(s) | ||
564 | char *s; | ||
565 | { | ||
566 | if (!strcmp(s, "btree")) | ||
567 | return (DB_BTREE); | ||
568 | if (!strcmp(s, "hash")) | ||
569 | return (DB_HASH); | ||
570 | if (!strcmp(s, "recno")) | ||
571 | return (DB_RECNO); | ||
572 | dberr("%s: unknown type (use btree, hash or recno)", s); | ||
573 | /* NOTREACHED */ | ||
574 | } | ||
575 | |||
576 | void * | ||
577 | setinfo(type, s) | ||
578 | DBTYPE type; | ||
579 | char *s; | ||
580 | { | ||
581 | static BTREEINFO ib; | ||
582 | static HASHINFO ih; | ||
583 | static RECNOINFO rh; | ||
584 | char *eq; | ||
585 | |||
586 | if ((eq = strchr(s, '=')) == NULL) | ||
587 | dberr("%s: illegal structure set statement", s); | ||
588 | *eq++ = '\0'; | ||
589 | if (!isdigit(*eq)) | ||
590 | dberr("%s: structure set statement must be a number", s); | ||
591 | |||
592 | switch (type) { | ||
593 | case DB_BTREE: | ||
594 | if (!strcmp("flags", s)) { | ||
595 | ib.flags = atoi(eq); | ||
596 | return (&ib); | ||
597 | } | ||
598 | if (!strcmp("cachesize", s)) { | ||
599 | ib.cachesize = atoi(eq); | ||
600 | return (&ib); | ||
601 | } | ||
602 | if (!strcmp("maxkeypage", s)) { | ||
603 | ib.maxkeypage = atoi(eq); | ||
604 | return (&ib); | ||
605 | } | ||
606 | if (!strcmp("minkeypage", s)) { | ||
607 | ib.minkeypage = atoi(eq); | ||
608 | return (&ib); | ||
609 | } | ||
610 | if (!strcmp("lorder", s)) { | ||
611 | ib.lorder = atoi(eq); | ||
612 | return (&ib); | ||
613 | } | ||
614 | if (!strcmp("psize", s)) { | ||
615 | ib.psize = atoi(eq); | ||
616 | return (&ib); | ||
617 | } | ||
618 | break; | ||
619 | case DB_HASH: | ||
620 | if (!strcmp("bsize", s)) { | ||
621 | ih.bsize = atoi(eq); | ||
622 | return (&ih); | ||
623 | } | ||
624 | if (!strcmp("ffactor", s)) { | ||
625 | ih.ffactor = atoi(eq); | ||
626 | return (&ih); | ||
627 | } | ||
628 | if (!strcmp("nelem", s)) { | ||
629 | ih.nelem = atoi(eq); | ||
630 | return (&ih); | ||
631 | } | ||
632 | if (!strcmp("cachesize", s)) { | ||
633 | ih.cachesize = atoi(eq); | ||
634 | return (&ih); | ||
635 | } | ||
636 | if (!strcmp("lorder", s)) { | ||
637 | ih.lorder = atoi(eq); | ||
638 | return (&ih); | ||
639 | } | ||
640 | break; | ||
641 | case DB_RECNO: | ||
642 | if (!strcmp("flags", s)) { | ||
643 | rh.flags = atoi(eq); | ||
644 | return (&rh); | ||
645 | } | ||
646 | if (!strcmp("cachesize", s)) { | ||
647 | rh.cachesize = atoi(eq); | ||
648 | return (&rh); | ||
649 | } | ||
650 | if (!strcmp("lorder", s)) { | ||
651 | rh.lorder = atoi(eq); | ||
652 | return (&rh); | ||
653 | } | ||
654 | if (!strcmp("reclen", s)) { | ||
655 | rh.reclen = atoi(eq); | ||
656 | return (&rh); | ||
657 | } | ||
658 | if (!strcmp("bval", s)) { | ||
659 | rh.bval = atoi(eq); | ||
660 | return (&rh); | ||
661 | } | ||
662 | if (!strcmp("psize", s)) { | ||
663 | rh.psize = atoi(eq); | ||
664 | return (&rh); | ||
665 | } | ||
666 | break; | ||
667 | } | ||
668 | dberr("%s: unknown structure value", s); | ||
669 | /* NOTREACHED */ | ||
670 | } | ||
671 | |||
672 | void * | ||
673 | rfile(name, lenp) | ||
674 | char *name; | ||
675 | size_t *lenp; | ||
676 | { | ||
677 | struct stat sb; | ||
678 | void *p; | ||
679 | int fd; | ||
680 | char *np; | ||
681 | |||
682 | for (; isspace(*name); ++name); | ||
683 | if ((np = strchr(name, '\n')) != NULL) | ||
684 | *np = '\0'; | ||
685 | if ((fd = open(name, O_RDONLY, 0)) < 0 || | ||
686 | fstat(fd, &sb)) | ||
687 | dberr("%s: %s\n", name, strerror(errno)); | ||
688 | #ifdef NOT_PORTABLE | ||
689 | if (sb.st_size > (off_t)SIZE_T_MAX) | ||
690 | dberr("%s: %s\n", name, strerror(E2BIG)); | ||
691 | #endif | ||
692 | if ((p = (void *)malloc((u_int)sb.st_size)) == NULL) | ||
693 | dberr("%s", strerror(errno)); | ||
694 | (void)read(fd, p, (int)sb.st_size); | ||
695 | *lenp = sb.st_size; | ||
696 | (void)close(fd); | ||
697 | return (p); | ||
698 | } | ||
699 | |||
700 | void * | ||
701 | xmalloc(text, len) | ||
702 | char *text; | ||
703 | size_t len; | ||
704 | { | ||
705 | void *p; | ||
706 | |||
707 | if ((p = (void *)malloc(len)) == NULL) | ||
708 | dberr("%s", strerror(errno)); | ||
709 | memmove(p, text, len); | ||
710 | return (p); | ||
711 | } | ||
712 | |||
713 | void | ||
714 | usage() | ||
715 | { | ||
716 | (void)fprintf(stderr, | ||
717 | "usage: dbtest [-l] [-f file] [-i info] [-o file] type script\n"); | ||
718 | exit(1); | ||
719 | } | ||
720 | |||
721 | void | ||
722 | dberr(const char *fmt, ...) | ||
723 | { | ||
724 | va_list ap; | ||
725 | |||
726 | va_start(ap, fmt); | ||
727 | (void)fprintf(stderr, "dbtest: "); | ||
728 | (void)vfprintf(stderr, fmt, ap); | ||
729 | va_end(ap); | ||
730 | (void)fprintf(stderr, "\n"); | ||
731 | exit(1); | ||
732 | /* NOTREACHED */ | ||
733 | } | ||
diff --git a/src/regress/lib/libc/db/run.test b/src/regress/lib/libc/db/run.test deleted file mode 100644 index 0d6837e360..0000000000 --- a/src/regress/lib/libc/db/run.test +++ /dev/null | |||
@@ -1,707 +0,0 @@ | |||
1 | #!/bin/sh - | ||
2 | # | ||
3 | # $OpenBSD: run.test,v 1.3 2001/01/29 02:05:41 niklas Exp $ | ||
4 | # $NetBSD: run.test,v 1.8 1996/05/03 21:57:51 cgd Exp $ | ||
5 | # @(#)run.test 8.10 (Berkeley) 7/26/94 | ||
6 | # | ||
7 | |||
8 | # db regression tests | ||
9 | main() | ||
10 | { | ||
11 | |||
12 | PROG=./dbtest | ||
13 | TMP1=t1 | ||
14 | TMP2=t2 | ||
15 | TMP3=t3 | ||
16 | |||
17 | if [ -f /usr/share/dict/words ]; then | ||
18 | DICT=/usr/share/dict/words | ||
19 | elif [ -f /usr/dict/words ]; then | ||
20 | DICT=/usr/dict/words | ||
21 | else | ||
22 | echo 'run.test: no dictionary' | ||
23 | exit 1 | ||
24 | fi | ||
25 | |||
26 | if [ $# -eq 0 ]; then | ||
27 | for t in 1 2 3 4 5 6 7 8 9 10 11 12 13 20; do | ||
28 | test$t | ||
29 | done | ||
30 | else | ||
31 | while [ $# -gt 0 ] | ||
32 | do case "$1" in | ||
33 | test*) | ||
34 | $1;; | ||
35 | [0-9]*) | ||
36 | test$1;; | ||
37 | btree) | ||
38 | for t in 1 2 3 7 8 9 10 12 13; do | ||
39 | test$t | ||
40 | done;; | ||
41 | hash) | ||
42 | for t in 1 2 3 8 13 20; do | ||
43 | test$t | ||
44 | done;; | ||
45 | recno) | ||
46 | for t in 1 2 3 4 5 6 7 10 11; do | ||
47 | test$t | ||
48 | done;; | ||
49 | *) | ||
50 | echo "run.test: unknown test $1" | ||
51 | echo "usage: run.test test# | type" | ||
52 | exit 1 | ||
53 | esac | ||
54 | shift | ||
55 | done | ||
56 | fi | ||
57 | rm -f $TMP1 $TMP2 $TMP3 | ||
58 | exit 0 | ||
59 | } | ||
60 | |||
61 | # Take the first hundred entries in the dictionary, and make them | ||
62 | # be key/data pairs. | ||
63 | test1() | ||
64 | { | ||
65 | echo "Test 1: btree, hash: small key, small data pairs" | ||
66 | sed 200q $DICT > $TMP1 | ||
67 | for type in btree hash; do | ||
68 | rm -f $TMP2 $TMP3 | ||
69 | for i in `sed 200q $DICT`; do | ||
70 | echo p | ||
71 | echo k$i | ||
72 | echo d$i | ||
73 | echo g | ||
74 | echo k$i | ||
75 | done > $TMP2 | ||
76 | $PROG -o $TMP3 $type $TMP2 | ||
77 | if (cmp -s $TMP1 $TMP3) ; then : | ||
78 | else | ||
79 | echo "test1: type $type: failed" | ||
80 | exit 1 | ||
81 | fi | ||
82 | done | ||
83 | echo "Test 1: recno: small key, small data pairs" | ||
84 | rm -f $TMP2 $TMP3 | ||
85 | sed 200q $DICT | | ||
86 | awk '{ | ||
87 | ++i; | ||
88 | printf("p\nk%d\nd%s\ng\nk%d\n", i, $0, i); | ||
89 | }' > $TMP2 | ||
90 | $PROG -o $TMP3 recno $TMP2 | ||
91 | if (cmp -s $TMP1 $TMP3) ; then : | ||
92 | else | ||
93 | echo "test1: type recno: failed" | ||
94 | exit 1 | ||
95 | fi | ||
96 | } | ||
97 | |||
98 | # Take the first 200 entries in the dictionary, and give them | ||
99 | # each a medium size data entry. | ||
100 | test2() | ||
101 | { | ||
102 | echo "Test 2: btree, hash: small key, medium data pairs" | ||
103 | mdata=abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz | ||
104 | echo $mdata | | ||
105 | awk '{ for (i = 1; i < 201; ++i) print $0 }' > $TMP1 | ||
106 | for type in hash btree; do | ||
107 | rm -f $TMP2 $TMP3 | ||
108 | for i in `sed 200q $DICT`; do | ||
109 | echo p | ||
110 | echo k$i | ||
111 | echo d$mdata | ||
112 | echo g | ||
113 | echo k$i | ||
114 | done > $TMP2 | ||
115 | $PROG -o $TMP3 $type $TMP2 | ||
116 | if (cmp -s $TMP1 $TMP3) ; then : | ||
117 | else | ||
118 | echo "test2: type $type: failed" | ||
119 | exit 1 | ||
120 | fi | ||
121 | done | ||
122 | echo "Test 2: recno: small key, medium data pairs" | ||
123 | rm -f $TMP2 $TMP3 | ||
124 | echo $mdata | | ||
125 | awk '{ for (i = 1; i < 201; ++i) | ||
126 | printf("p\nk%d\nd%s\ng\nk%d\n", i, $0, i); | ||
127 | }' > $TMP2 | ||
128 | $PROG -o $TMP3 recno $TMP2 | ||
129 | if (cmp -s $TMP1 $TMP3) ; then : | ||
130 | else | ||
131 | echo "test2: type recno: failed" | ||
132 | exit 1 | ||
133 | fi | ||
134 | } | ||
135 | |||
136 | # Insert the programs in /bin with their paths as their keys. | ||
137 | test3() | ||
138 | { | ||
139 | echo "Test 3: hash: small key, big data pairs" | ||
140 | rm -f $TMP1 | ||
141 | (find /bin -type f -print | xargs cat) > $TMP1 | ||
142 | for type in hash; do | ||
143 | rm -f $TMP2 $TMP3 | ||
144 | for i in `find /bin -type f -print`; do | ||
145 | echo p | ||
146 | echo k$i | ||
147 | echo D$i | ||
148 | echo g | ||
149 | echo k$i | ||
150 | done > $TMP2 | ||
151 | $PROG -o $TMP3 $type $TMP2 | ||
152 | if (cmp -s $TMP1 $TMP3) ; then : | ||
153 | else | ||
154 | echo "test3: $type: failed" | ||
155 | exit 1 | ||
156 | fi | ||
157 | done | ||
158 | echo "Test 3: btree: small key, big data pairs" | ||
159 | for psize in 512 16384 65536; do | ||
160 | echo " page size $psize" | ||
161 | for type in btree; do | ||
162 | rm -f $TMP2 $TMP3 | ||
163 | for i in `find /bin -type f -print`; do | ||
164 | echo p | ||
165 | echo k$i | ||
166 | echo D$i | ||
167 | echo g | ||
168 | echo k$i | ||
169 | done > $TMP2 | ||
170 | $PROG -i psize=$psize -o $TMP3 $type $TMP2 | ||
171 | if (cmp -s $TMP1 $TMP3) ; then : | ||
172 | else | ||
173 | echo "test3: $type: page size $psize: failed" | ||
174 | exit 1 | ||
175 | fi | ||
176 | done | ||
177 | done | ||
178 | echo "Test 3: recno: big data pairs" | ||
179 | rm -f $TMP2 $TMP3 | ||
180 | find /bin -type f -print | | ||
181 | awk '{ | ||
182 | ++i; | ||
183 | printf("p\nk%d\nD%s\ng\nk%d\n", i, $0, i); | ||
184 | }' > $TMP2 | ||
185 | for psize in 512 16384 65536; do | ||
186 | echo " page size $psize" | ||
187 | $PROG -i psize=$psize -o $TMP3 recno $TMP2 | ||
188 | if (cmp -s $TMP1 $TMP3) ; then : | ||
189 | else | ||
190 | echo "test3: recno: page size $psize: failed" | ||
191 | exit 1 | ||
192 | fi | ||
193 | done | ||
194 | } | ||
195 | |||
196 | # Do random recno entries. | ||
197 | test4() | ||
198 | { | ||
199 | echo "Test 4: recno: random entries" | ||
200 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
201 | awk '{ | ||
202 | for (i = 37; i <= 37 + 88 * 17; i += 17) { | ||
203 | if (i % 41) | ||
204 | s = substr($0, 1, i % 41); | ||
205 | else | ||
206 | s = substr($0, 1); | ||
207 | printf("input key %d: %s\n", i, s); | ||
208 | } | ||
209 | for (i = 1; i <= 15; ++i) { | ||
210 | if (i % 41) | ||
211 | s = substr($0, 1, i % 41); | ||
212 | else | ||
213 | s = substr($0, 1); | ||
214 | printf("input key %d: %s\n", i, s); | ||
215 | } | ||
216 | for (i = 19234; i <= 19234 + 61 * 27; i += 27) { | ||
217 | if (i % 41) | ||
218 | s = substr($0, 1, i % 41); | ||
219 | else | ||
220 | s = substr($0, 1); | ||
221 | printf("input key %d: %s\n", i, s); | ||
222 | } | ||
223 | exit | ||
224 | }' > $TMP1 | ||
225 | rm -f $TMP2 $TMP3 | ||
226 | cat $TMP1 | | ||
227 | awk 'BEGIN { | ||
228 | i = 37; | ||
229 | incr = 17; | ||
230 | } | ||
231 | { | ||
232 | printf("p\nk%d\nd%s\n", i, $0); | ||
233 | if (i == 19234 + 61 * 27) | ||
234 | exit; | ||
235 | if (i == 37 + 88 * 17) { | ||
236 | i = 1; | ||
237 | incr = 1; | ||
238 | } else if (i == 15) { | ||
239 | i = 19234; | ||
240 | incr = 27; | ||
241 | } else | ||
242 | i += incr; | ||
243 | } | ||
244 | END { | ||
245 | for (i = 37; i <= 37 + 88 * 17; i += 17) | ||
246 | printf("g\nk%d\n", i); | ||
247 | for (i = 1; i <= 15; ++i) | ||
248 | printf("g\nk%d\n", i); | ||
249 | for (i = 19234; i <= 19234 + 61 * 27; i += 27) | ||
250 | printf("g\nk%d\n", i); | ||
251 | }' > $TMP2 | ||
252 | $PROG -o $TMP3 recno $TMP2 | ||
253 | if (cmp -s $TMP1 $TMP3) ; then : | ||
254 | else | ||
255 | echo "test4: type recno: failed" | ||
256 | exit 1 | ||
257 | fi | ||
258 | } | ||
259 | |||
260 | # Do reverse order recno entries. | ||
261 | test5() | ||
262 | { | ||
263 | echo "Test 5: recno: reverse order entries" | ||
264 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
265 | awk ' { | ||
266 | for (i = 1500; i; --i) { | ||
267 | if (i % 34) | ||
268 | s = substr($0, 1, i % 34); | ||
269 | else | ||
270 | s = substr($0, 1); | ||
271 | printf("input key %d: %s\n", i, s); | ||
272 | } | ||
273 | exit; | ||
274 | }' > $TMP1 | ||
275 | rm -f $TMP2 $TMP3 | ||
276 | cat $TMP1 | | ||
277 | awk 'BEGIN { | ||
278 | i = 1500; | ||
279 | } | ||
280 | { | ||
281 | printf("p\nk%d\nd%s\n", i, $0); | ||
282 | --i; | ||
283 | } | ||
284 | END { | ||
285 | for (i = 1500; i; --i) | ||
286 | printf("g\nk%d\n", i); | ||
287 | }' > $TMP2 | ||
288 | $PROG -o $TMP3 recno $TMP2 | ||
289 | if (cmp -s $TMP1 $TMP3) ; then : | ||
290 | else | ||
291 | echo "test5: type recno: failed" | ||
292 | exit 1 | ||
293 | fi | ||
294 | } | ||
295 | |||
296 | # Do alternating order recno entries. | ||
297 | test6() | ||
298 | { | ||
299 | echo "Test 6: recno: alternating order entries" | ||
300 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
301 | awk ' { | ||
302 | for (i = 1; i < 1200; i += 2) { | ||
303 | if (i % 34) | ||
304 | s = substr($0, 1, i % 34); | ||
305 | else | ||
306 | s = substr($0, 1); | ||
307 | printf("input key %d: %s\n", i, s); | ||
308 | } | ||
309 | for (i = 2; i < 1200; i += 2) { | ||
310 | if (i % 34) | ||
311 | s = substr($0, 1, i % 34); | ||
312 | else | ||
313 | s = substr($0, 1); | ||
314 | printf("input key %d: %s\n", i, s); | ||
315 | } | ||
316 | exit; | ||
317 | }' > $TMP1 | ||
318 | rm -f $TMP2 $TMP3 | ||
319 | cat $TMP1 | | ||
320 | awk 'BEGIN { | ||
321 | i = 1; | ||
322 | even = 0; | ||
323 | } | ||
324 | { | ||
325 | printf("p\nk%d\nd%s\n", i, $0); | ||
326 | i += 2; | ||
327 | if (i >= 1200) { | ||
328 | if (even == 1) | ||
329 | exit; | ||
330 | even = 1; | ||
331 | i = 2; | ||
332 | } | ||
333 | } | ||
334 | END { | ||
335 | for (i = 1; i < 1200; ++i) | ||
336 | printf("g\nk%d\n", i); | ||
337 | }' > $TMP2 | ||
338 | $PROG -o $TMP3 recno $TMP2 | ||
339 | sort -o $TMP1 $TMP1 | ||
340 | sort -o $TMP3 $TMP3 | ||
341 | if (cmp -s $TMP1 $TMP3) ; then : | ||
342 | else | ||
343 | echo "test6: type recno: failed" | ||
344 | exit 1 | ||
345 | fi | ||
346 | } | ||
347 | |||
348 | # Delete cursor record | ||
349 | test7() | ||
350 | { | ||
351 | echo "Test 7: btree, recno: delete cursor record" | ||
352 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
353 | awk '{ | ||
354 | for (i = 1; i <= 120; ++i) | ||
355 | printf("%05d: input key %d: %s\n", i, i, $0); | ||
356 | printf("%05d: input key %d: %s\n", 120, 120, $0); | ||
357 | printf("seq failed, no such key\n"); | ||
358 | printf("%05d: input key %d: %s\n", 1, 1, $0); | ||
359 | printf("%05d: input key %d: %s\n", 2, 2, $0); | ||
360 | exit; | ||
361 | }' > $TMP1 | ||
362 | rm -f $TMP2 $TMP3 | ||
363 | |||
364 | for type in btree recno; do | ||
365 | cat $TMP1 | | ||
366 | awk '{ | ||
367 | if (i == 120) | ||
368 | exit; | ||
369 | printf("p\nk%d\nd%s\n", ++i, $0); | ||
370 | } | ||
371 | END { | ||
372 | printf("fR_NEXT\n"); | ||
373 | for (i = 1; i <= 120; ++i) | ||
374 | printf("s\n"); | ||
375 | printf("fR_CURSOR\ns\nk120\n"); | ||
376 | printf("r\n"); | ||
377 | printf("fR_NEXT\ns\n"); | ||
378 | printf("fR_CURSOR\ns\nk1\n"); | ||
379 | printf("r\n"); | ||
380 | printf("fR_FIRST\ns\n"); | ||
381 | }' > $TMP2 | ||
382 | $PROG -o $TMP3 recno $TMP2 | ||
383 | if (cmp -s $TMP1 $TMP3) ; then : | ||
384 | else | ||
385 | echo "test7: type $type: failed" | ||
386 | exit 1 | ||
387 | fi | ||
388 | done | ||
389 | } | ||
390 | |||
391 | # Make sure that overflow pages are reused. | ||
392 | test8() | ||
393 | { | ||
394 | echo "Test 8: btree, hash: repeated small key, big data pairs" | ||
395 | rm -f $TMP1 | ||
396 | echo "" | | ||
397 | awk 'BEGIN { | ||
398 | for (i = 1; i <= 10; ++i) { | ||
399 | printf("p\nkkey1\nD/bin/sh\n"); | ||
400 | printf("p\nkkey2\nD/bin/csh\n"); | ||
401 | if (i % 8 == 0) { | ||
402 | printf("c\nkkey2\nD/bin/csh\n"); | ||
403 | printf("c\nkkey1\nD/bin/sh\n"); | ||
404 | printf("e\t%d of 10 (comparison)\n", i); | ||
405 | } else | ||
406 | printf("e\t%d of 10 \n", i); | ||
407 | printf("r\nkkey1\nr\nkkey2\n"); | ||
408 | } | ||
409 | }' > $TMP1 | ||
410 | $PROG btree $TMP1 | ||
411 | # $PROG hash $TMP1 | ||
412 | # No explicit test for success. | ||
413 | } | ||
414 | |||
415 | # Test btree duplicate keys | ||
416 | test9() | ||
417 | { | ||
418 | echo "Test 9: btree: duplicate keys" | ||
419 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
420 | awk '{ | ||
421 | for (i = 1; i <= 543; ++i) | ||
422 | printf("%05d: input key %d: %s\n", i, i, $0); | ||
423 | exit; | ||
424 | }' > $TMP1 | ||
425 | rm -f $TMP2 $TMP3 | ||
426 | |||
427 | for type in btree; do | ||
428 | cat $TMP1 | | ||
429 | awk '{ | ||
430 | if (i++ % 2) | ||
431 | printf("p\nkduplicatekey\nd%s\n", $0); | ||
432 | else | ||
433 | printf("p\nkunique%dkey\nd%s\n", i, $0); | ||
434 | } | ||
435 | END { | ||
436 | printf("o\n"); | ||
437 | }' > $TMP2 | ||
438 | $PROG -iflags=1 -o $TMP3 $type $TMP2 | ||
439 | sort -o $TMP3 $TMP3 | ||
440 | if (cmp -s $TMP1 $TMP3) ; then : | ||
441 | else | ||
442 | echo "test9: type $type: failed" | ||
443 | exit 1 | ||
444 | fi | ||
445 | done | ||
446 | } | ||
447 | |||
448 | # Test use of cursor flags without initialization | ||
449 | test10() | ||
450 | { | ||
451 | echo "Test 10: btree, recno: test cursor flag use" | ||
452 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
453 | awk '{ | ||
454 | for (i = 1; i <= 20; ++i) | ||
455 | printf("%05d: input key %d: %s\n", i, i, $0); | ||
456 | exit; | ||
457 | }' > $TMP1 | ||
458 | rm -f $TMP2 $TMP3 | ||
459 | |||
460 | # Test that R_CURSOR doesn't succeed before cursor initialized | ||
461 | for type in btree recno; do | ||
462 | cat $TMP1 | | ||
463 | awk '{ | ||
464 | if (i == 10) | ||
465 | exit; | ||
466 | printf("p\nk%d\nd%s\n", ++i, $0); | ||
467 | } | ||
468 | END { | ||
469 | printf("fR_CURSOR\nr\n"); | ||
470 | printf("eR_CURSOR SHOULD HAVE FAILED\n"); | ||
471 | }' > $TMP2 | ||
472 | $PROG -o $TMP3 $type $TMP2 > /dev/null 2>&1 | ||
473 | if [ -s $TMP3 ] ; then | ||
474 | echo "Test 10: delete: R_CURSOR SHOULD HAVE FAILED" | ||
475 | exit 1 | ||
476 | fi | ||
477 | done | ||
478 | for type in btree recno; do | ||
479 | cat $TMP1 | | ||
480 | awk '{ | ||
481 | if (i == 10) | ||
482 | exit; | ||
483 | printf("p\nk%d\nd%s\n", ++i, $0); | ||
484 | } | ||
485 | END { | ||
486 | printf("fR_CURSOR\np\nk1\ndsome data\n"); | ||
487 | printf("eR_CURSOR SHOULD HAVE FAILED\n"); | ||
488 | }' > $TMP2 | ||
489 | $PROG -o $TMP3 $type $TMP2 > /dev/null 2>&1 | ||
490 | if [ -s $TMP3 ] ; then | ||
491 | echo "Test 10: put: R_CURSOR SHOULD HAVE FAILED" | ||
492 | exit 1 | ||
493 | fi | ||
494 | done | ||
495 | } | ||
496 | |||
497 | # Test insert in reverse order. | ||
498 | test11() | ||
499 | { | ||
500 | echo "Test 11: recno: reverse order insert" | ||
501 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
502 | awk '{ | ||
503 | for (i = 1; i <= 779; ++i) | ||
504 | printf("%05d: input key %d: %s\n", i, i, $0); | ||
505 | exit; | ||
506 | }' > $TMP1 | ||
507 | rm -f $TMP2 $TMP3 | ||
508 | |||
509 | for type in recno; do | ||
510 | cat $TMP1 | | ||
511 | awk '{ | ||
512 | if (i == 0) { | ||
513 | i = 1; | ||
514 | printf("p\nk1\nd%s\n", $0); | ||
515 | printf("%s\n", "fR_IBEFORE"); | ||
516 | } else | ||
517 | printf("p\nk1\nd%s\n", $0); | ||
518 | } | ||
519 | END { | ||
520 | printf("or\n"); | ||
521 | }' > $TMP2 | ||
522 | $PROG -o $TMP3 $type $TMP2 | ||
523 | if (cmp -s $TMP1 $TMP3) ; then : | ||
524 | else | ||
525 | echo "test11: type $type: failed" | ||
526 | exit 1 | ||
527 | fi | ||
528 | done | ||
529 | } | ||
530 | |||
531 | # Take the first 20000 entries in the dictionary, reverse them, and give | ||
532 | # them each a small size data entry. Use a small page size to make sure | ||
533 | # the btree split code gets hammered. | ||
534 | test12() | ||
535 | { | ||
536 | echo "Test 12: btree: lots of keys, small page size" | ||
537 | mdata=abcdefghijklmnopqrstuvwxy | ||
538 | echo $mdata | | ||
539 | awk '{ for (i = 1; i < 20001; ++i) print $0 }' > $TMP1 | ||
540 | for type in btree; do | ||
541 | rm -f $TMP2 $TMP3 | ||
542 | for i in `sed 20000q $DICT | rev`; do | ||
543 | echo p | ||
544 | echo k$i | ||
545 | echo d$mdata | ||
546 | echo g | ||
547 | echo k$i | ||
548 | done > $TMP2 | ||
549 | $PROG -i psize=512 -o $TMP3 $type $TMP2 | ||
550 | if (cmp -s $TMP1 $TMP3) ; then : | ||
551 | else | ||
552 | echo "test12: type $type: failed" | ||
553 | exit 1 | ||
554 | fi | ||
555 | done | ||
556 | } | ||
557 | |||
558 | # Test different byte orders. | ||
559 | test13() | ||
560 | { | ||
561 | echo "Test 13: btree, hash: differing byte orders" | ||
562 | sed 50q $DICT > $TMP1 | ||
563 | for order in 1234 4321; do | ||
564 | for type in btree hash; do | ||
565 | rm -f byte.file $TMP2 $TMP3 | ||
566 | for i in `sed 50q $DICT`; do | ||
567 | echo p | ||
568 | echo k$i | ||
569 | echo d$i | ||
570 | echo g | ||
571 | echo k$i | ||
572 | done > $TMP2 | ||
573 | $PROG -ilorder=$order -f byte.file -o $TMP3 $type $TMP2 | ||
574 | if (cmp -s $TMP1 $TMP3) ; then : | ||
575 | else | ||
576 | echo "test13: $type/$order put failed" | ||
577 | exit 1 | ||
578 | fi | ||
579 | for i in `sed 50q $DICT`; do | ||
580 | echo g | ||
581 | echo k$i | ||
582 | done > $TMP2 | ||
583 | $PROG -s \ | ||
584 | -ilorder=$order -f byte.file -o $TMP3 $type $TMP2 | ||
585 | if (cmp -s $TMP1 $TMP3) ; then : | ||
586 | else | ||
587 | echo "test13: $type/$order get failed" | ||
588 | exit 1 | ||
589 | fi | ||
590 | done | ||
591 | done | ||
592 | rm -f byte.file | ||
593 | } | ||
594 | |||
595 | # Try a variety of bucketsizes and fill factors for hashing | ||
596 | test20() | ||
597 | { | ||
598 | echo\ | ||
599 | "Test 20: hash: bucketsize, fill factor; nelem 25000 cachesize 65536" | ||
600 | echo "abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | | ||
601 | awk '{ | ||
602 | for (i = 1; i <= 10000; ++i) { | ||
603 | if (i % 34) | ||
604 | s = substr($0, 1, i % 34); | ||
605 | else | ||
606 | s = substr($0, 1); | ||
607 | printf("%s\n", s); | ||
608 | } | ||
609 | exit; | ||
610 | }' > $TMP1 | ||
611 | sed 10000q $DICT | | ||
612 | awk 'BEGIN { | ||
613 | ds="abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg abcdefg" | ||
614 | } | ||
615 | { | ||
616 | if (++i % 34) | ||
617 | s = substr(ds, 1, i % 34); | ||
618 | else | ||
619 | s = substr(ds, 1); | ||
620 | printf("p\nk%s\nd%s\n", $0, s); | ||
621 | }' > $TMP2 | ||
622 | sed 10000q $DICT | | ||
623 | awk '{ | ||
624 | ++i; | ||
625 | printf("g\nk%s\n", $0); | ||
626 | }' >> $TMP2 | ||
627 | bsize=256 | ||
628 | for ffactor in 11 14 21; do | ||
629 | echo " bucketsize $bsize, fill factor $ffactor" | ||
630 | $PROG -o$TMP3 \ | ||
631 | -ibsize=$bsize,ffactor=$ffactor,nelem=25000,cachesize=65536\ | ||
632 | hash $TMP2 | ||
633 | if (cmp -s $TMP1 $TMP3) ; then : | ||
634 | else | ||
635 | echo "test20: type hash:\ | ||
636 | bsize=$bsize ffactor=$ffactor nelem=25000 cachesize=65536 failed" | ||
637 | exit 1 | ||
638 | fi | ||
639 | done | ||
640 | bsize=512 | ||
641 | for ffactor in 21 28 43; do | ||
642 | echo " bucketsize $bsize, fill factor $ffactor" | ||
643 | $PROG -o$TMP3 \ | ||
644 | -ibsize=$bsize,ffactor=$ffactor,nelem=25000,cachesize=65536\ | ||
645 | hash $TMP2 | ||
646 | if (cmp -s $TMP1 $TMP3) ; then : | ||
647 | else | ||
648 | echo "test20: type hash:\ | ||
649 | bsize=$bsize ffactor=$ffactor nelem=25000 cachesize=65536 failed" | ||
650 | exit 1 | ||
651 | fi | ||
652 | done | ||
653 | bsize=1024 | ||
654 | for ffactor in 43 57 85; do | ||
655 | echo " bucketsize $bsize, fill factor $ffactor" | ||
656 | $PROG -o$TMP3 \ | ||
657 | -ibsize=$bsize,ffactor=$ffactor,nelem=25000,cachesize=65536\ | ||
658 | hash $TMP2 | ||
659 | if (cmp -s $TMP1 $TMP3) ; then : | ||
660 | else | ||
661 | echo "test20: type hash:\ | ||
662 | bsize=$bsize ffactor=$ffactor nelem=25000 cachesize=65536 failed" | ||
663 | exit 1 | ||
664 | fi | ||
665 | done | ||
666 | bsize=2048 | ||
667 | for ffactor in 85 114 171; do | ||
668 | echo " bucketsize $bsize, fill factor $ffactor" | ||
669 | $PROG -o$TMP3 \ | ||
670 | -ibsize=$bsize,ffactor=$ffactor,nelem=25000,cachesize=65536\ | ||
671 | hash $TMP2 | ||
672 | if (cmp -s $TMP1 $TMP3) ; then : | ||
673 | else | ||
674 | echo "test20: type hash:\ | ||
675 | bsize=$bsize ffactor=$ffactor nelem=25000 cachesize=65536 failed" | ||
676 | exit 1 | ||
677 | fi | ||
678 | done | ||
679 | bsize=4096 | ||
680 | for ffactor in 171 228 341; do | ||
681 | echo " bucketsize $bsize, fill factor $ffactor" | ||
682 | $PROG -o$TMP3 \ | ||
683 | -ibsize=$bsize,ffactor=$ffactor,nelem=25000,cachesize=65536\ | ||
684 | hash $TMP2 | ||
685 | if (cmp -s $TMP1 $TMP3) ; then : | ||
686 | else | ||
687 | echo "test20: type hash:\ | ||
688 | bsize=$bsize ffactor=$ffactor nelem=25000 cachesize=65536 failed" | ||
689 | exit 1 | ||
690 | fi | ||
691 | done | ||
692 | bsize=8192 | ||
693 | for ffactor in 341 455 683; do | ||
694 | echo " bucketsize $bsize, fill factor $ffactor" | ||
695 | $PROG -o$TMP3 \ | ||
696 | -ibsize=$bsize,ffactor=$ffactor,nelem=25000,cachesize=65536\ | ||
697 | hash $TMP2 | ||
698 | if (cmp -s $TMP1 $TMP3) ; then : | ||
699 | else | ||
700 | echo "test20: type hash:\ | ||
701 | bsize=$bsize ffactor=$ffactor nelem=25000 cachesize=65536 failed" | ||
702 | exit 1 | ||
703 | fi | ||
704 | done | ||
705 | } | ||
706 | |||
707 | main $* | ||