gc-7.2/cord/cordtest.c

   1 /*
   2  * Copyright (c) 1993-1994 by Xerox Corporation.  All rights reserved.
   3  *
   4  * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
   5  * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
   6  *
   7  * Permission is hereby granted to use or copy this program
   8  * for any purpose,  provided the above notices are retained on all copies.
   9  * Permission to modify the code and to distribute modified code is granted,
  10  * provided the above notices are retained, and a notice that the code was
  11  * modified is included with the above copyright notice.
  12  */
  13
  14 # include "gc.h"    /* For GC_INIT() only */
  15 # include "cord.h"
  16 # include <string.h>
  17 # include <stdio.h>
  18 # include <stdlib.h>
  19 /* This is a very incomplete test of the cord package.  It knows about  */
  20 /* a few internals of the package (e.g. when C strings are returned)    */
  21 /* that real clients shouldn't rely on.                 */
  22
  23 # define ABORT(string) \
  24     { int x = 0; fprintf(stderr, "FAILED: %s\n", string); x = 1 / x; abort(); }
  25
  26 int count;
  27
  28 int test_fn(char c, void * client_data)
  29 {
  30     if (client_data != (void *)13) ABORT("bad client data");
  31     if (count < 64*1024+1) {
  32         if ((count & 1) == 0) {
  33             if (c != 'b') ABORT("bad char");
  34         } else {
  35             if (c != 'a') ABORT("bad char");
  36         }
  37         count++;
  38         return(0);
  39     } else {
  40         if (c != 'c') ABORT("bad char");
  41         count++;
  42         return(1);
  43     }
  44 }
  45
  46 char id_cord_fn(size_t i, void * client_data)
  47 {
  48     return((char)i);
  49 }
  50
  51 void test_basics(void)
  52 {
  53     CORD x = CORD_from_char_star("ab");
  54     register int i;
  55     char c;
  56     CORD y;
  57     CORD_pos p;
  58
  59     x = CORD_cat(x,x);
  60     if (!CORD_IS_STRING(x)) ABORT("short cord should usually be a string");
  61     if (strcmp(x, "abab") != 0) ABORT("bad CORD_cat result");
  62
  63     for (i = 1; i < 16; i++) {
  64         x = CORD_cat(x,x);
  65     }
  66     x = CORD_cat(x,"c");
  67     if (CORD_len(x) != 128*1024+1) ABORT("bad length");
  68
  69     count = 0;
  70     if (CORD_iter5(x, 64*1024-1, test_fn, CORD_NO_FN, (void *)13) == 0) {
  71         ABORT("CORD_iter5 failed");
  72     }
  73     if (count != 64*1024 + 2) ABORT("CORD_iter5 failed");
  74
  75     count = 0;
  76     CORD_set_pos(p, x, 64*1024-1);
  77     while(CORD_pos_valid(p)) {
  78         (void) test_fn(CORD_pos_fetch(p), (void *)13);
  79     CORD_next(p);
  80     }
  81     if (count != 64*1024 + 2) ABORT("Position based iteration failed");
  82
  83     y = CORD_substr(x, 1023, 5);
  84     if (!y) ABORT("CORD_substr returned NULL");
  85     if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
  86     if (strcmp(y, "babab") != 0) ABORT("bad CORD_substr result");
  87
  88     y = CORD_substr(x, 1024, 8);
  89     if (!y) ABORT("CORD_substr returned NULL");
  90     if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
  91     if (strcmp(y, "abababab") != 0) ABORT("bad CORD_substr result");
  92
  93     y = CORD_substr(x, 128*1024-1, 8);
  94     if (!y) ABORT("CORD_substr returned NULL");
  95     if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
  96     if (strcmp(y, "bc") != 0) ABORT("bad CORD_substr result");
  97
  98     x = CORD_balance(x);
  99     if (CORD_len(x) != 128*1024+1) ABORT("bad length");
 100
 101     count = 0;
 102     if (CORD_iter5(x, 64*1024-1, test_fn, CORD_NO_FN, (void *)13) == 0) {
 103         ABORT("CORD_iter5 failed");
 104     }
 105     if (count != 64*1024 + 2) ABORT("CORD_iter5 failed");
 106
 107     y = CORD_substr(x, 1023, 5);
 108     if (!y) ABORT("CORD_substr returned NULL");
 109     if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
 110     if (strcmp(y, "babab") != 0) ABORT("bad CORD_substr result");
 111     y = CORD_from_fn(id_cord_fn, 0, 13);
 112     i = 0;
 113     CORD_set_pos(p, y, i);
 114     while(CORD_pos_valid(p)) {
 115         c = CORD_pos_fetch(p);
 116         if(c != i) ABORT("Traversal of function node failed");
 117     CORD_next(p); i++;
 118     }
 119     if (i != 13) ABORT("Bad apparent length for function node");
 120 }
 121
 122 void test_extras(void)
 123 {
 124 #   define FNAME1 "cordtst1.tmp" /* short name (8+3) for portability */
 125 #   define FNAME2 "cordtst2.tmp"
 126     register int i;
 127     CORD y = "abcdefghijklmnopqrstuvwxyz0123456789";
 128     CORD x = "{}";
 129     CORD w, z;
 130     FILE *f;
 131     FILE *f1a, *f1b, *f2;
 132
 133     w = CORD_cat(CORD_cat(y,y),y);
 134     z = CORD_catn(3,y,y,y);
 135     if (CORD_cmp(w,z) != 0) ABORT("CORD_catn comparison wrong");
 136     for (i = 1; i < 100; i++) {
 137         x = CORD_cat(x, y);
 138     }
 139     z = CORD_balance(x);
 140     if (CORD_cmp(x,z) != 0) ABORT("balanced string comparison wrong");
 141     if (CORD_cmp(x,CORD_cat(z, CORD_nul(13))) >= 0) ABORT("comparison 2");
 142     if (CORD_cmp(CORD_cat(x, CORD_nul(13)), z) <= 0) ABORT("comparison 3");
 143     if (CORD_cmp(x,CORD_cat(z, "13")) >= 0) ABORT("comparison 4");
 144     if ((f = fopen(FNAME1, "w")) == 0) ABORT("open failed");
 145     if (CORD_put(z,f) == EOF) ABORT("CORD_put failed");
 146     if (fclose(f) == EOF) ABORT("fclose failed");
 147     f1a = fopen(FNAME1, "rb");
 148     if (!f1a) ABORT("Unable to open " FNAME1);
 149     w = CORD_from_file(f1a);
 150     if (CORD_len(w) != CORD_len(z)) ABORT("file length wrong");
 151     if (CORD_cmp(w,z) != 0) ABORT("file comparison wrong");
 152     if (CORD_cmp(CORD_substr(w, 50*36+2, 36), y) != 0)
 153         ABORT("file substr wrong");
 154     f1b = fopen(FNAME1, "rb");
 155     if (!f1b) ABORT("2nd open failed: " FNAME1);
 156     z = CORD_from_file_lazy(f1b);
 157     if (CORD_cmp(w,z) != 0) ABORT("File conversions differ");
 158     if (CORD_chr(w, 0, '9') != 37) ABORT("CORD_chr failed 1");
 159     if (CORD_chr(w, 3, 'a') != 38) ABORT("CORD_chr failed 2");
 160     if (CORD_rchr(w, CORD_len(w) - 1, '}') != 1) ABORT("CORD_rchr failed");
 161     x = y;
 162     for (i = 1; i < 14; i++) {
 163         x = CORD_cat(x,x);
 164     }
 165     if ((f = fopen(FNAME2, "w")) == 0) ABORT("2nd open failed");
 166 #   ifdef __DJGPP__
 167       /* FIXME: DJGPP workaround.  Why does this help? */
 168       if (fflush(f) != 0) ABORT("fflush failed");
 169 #   endif
 170     if (CORD_put(x,f) == EOF) ABORT("CORD_put failed");
 171     if (fclose(f) == EOF) ABORT("fclose failed");
 172     f2 = fopen(FNAME2, "rb");
 173     if (!f2) ABORT("Unable to open " FNAME2);
 174     w = CORD_from_file(f2);
 175     if (CORD_len(w) != CORD_len(x)) ABORT("file length wrong");
 176     if (CORD_cmp(w,x) != 0) ABORT("file comparison wrong");
 177     if (CORD_cmp(CORD_substr(w, 1000*36, 36), y) != 0)
 178         ABORT("file substr wrong");
 179     if (strcmp(CORD_to_char_star(CORD_substr(w, 1000*36, 36)), y) != 0)
 180         ABORT("char * file substr wrong");
 181     if (strcmp(CORD_substr(w, 1000*36, 2), "ab") != 0)
 182         ABORT("short file substr wrong");
 183     if (CORD_str(x,1,"9a") != 35) ABORT("CORD_str failed 1");
 184     if (CORD_str(x,0,"9abcdefghijk") != 35) ABORT("CORD_str failed 2");
 185     if (CORD_str(x,0,"9abcdefghijx") != CORD_NOT_FOUND)
 186         ABORT("CORD_str failed 3");
 187     if (CORD_str(x,0,"9>") != CORD_NOT_FOUND) ABORT("CORD_str failed 4");
 188     if (remove(FNAME1) != 0) {
 189         /* On some systems, e.g. OS2, this may fail if f1 is still open. */
 190         if ((fclose(f1a) == EOF) & (fclose(f1b) == EOF))
 191             ABORT("fclose(f1) failed");
 192         if (remove(FNAME1) != 0) ABORT("remove 1 failed");
 193     }
 194     if (remove(FNAME2) != 0) {
 195         if (fclose(f2) == EOF) ABORT("fclose(f2) failed");
 196         if (remove(FNAME2) != 0) ABORT("remove 2 failed");
 197     }
 198 }
 199
 200 void test_printf(void)
 201 {
 202     CORD result;
 203     char result2[200];
 204     long l;
 205     short s;
 206     CORD x;
 207
 208     if (CORD_sprintf(&result, "%7.2f%ln", 3.14159F, &l) != 7)
 209         ABORT("CORD_sprintf failed 1");
 210     if (CORD_cmp(result, "   3.14") != 0)ABORT("CORD_sprintf goofed 1");
 211     if (l != 7) ABORT("CORD_sprintf goofed 2");
 212     if (CORD_sprintf(&result, "%-7.2s%hn%c%s", "abcd", &s, 'x', "yz") != 10)
 213         ABORT("CORD_sprintf failed 2");
 214     if (CORD_cmp(result, "ab     xyz") != 0)ABORT("CORD_sprintf goofed 3");
 215     if (s != 7) ABORT("CORD_sprintf goofed 4");
 216     x = "abcdefghij";
 217     x = CORD_cat(x,x);
 218     x = CORD_cat(x,x);
 219     x = CORD_cat(x,x);
 220     if (CORD_sprintf(&result, "->%-120.78r!\n", x) != 124)
 221         ABORT("CORD_sprintf failed 3");
 222     (void) sprintf(result2, "->%-120.78s!\n", CORD_to_char_star(x));
 223     if (CORD_cmp(result, result2) != 0)ABORT("CORD_sprintf goofed 5");
 224 }
 225
 226 int main(void)
 227 {
 228 #   ifdef THINK_C
 229         printf("cordtest:\n");
 230 #   endif
 231     GC_INIT();
 232     test_basics();
 233     test_extras();
 234     test_printf();
 235     CORD_fprintf(stdout, "SUCCEEDED\n");
 236     return(0);
 237 }