Add a test case to check if libcdecl can parse its own output.

[cdecl99.git] / test / crossparse.c

diff --git a/test/crossparse.c b/test/crossparse.c
new file mode 100644 (file)
index 0000000..75344cb
--- /dev/null
+++ b/test/crossparse.c
@@ -0,0 +1,135 @@
+#include <config.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <getopt.h>
+#include <cdecl.h>
+#include "test.h"
+
+#define PROGNAME "crossparse"
+static const char *progname = PROGNAME;
+static const char sopts[] = "ECVH";
+static const struct option lopts[] = {
+       { "cdecl",   0, NULL, 'C' },
+       { "english", 0, NULL, 'E' },
+       { "version", 0, NULL, 'V' },
+       { "help",    0, NULL, 'H' },
+       { 0 }
+};
+
+static void print_usage(FILE *f)
+{
+       fprintf(f, "Usage: %s [options]\n", progname);
+}
+
+static void print_help(void)
+{
+       print_usage(stdout);
+       puts("Detailed help coming soon.");
+}
+
+enum {
+       MODE_CDECL,
+       MODE_ENGLISH,
+};
+
+typedef struct cdecl *parse_func(const char *);
+typedef size_t render_func(char *, size_t, struct cdecl *);
+
+char *rerender(const char *str, const char *parse_name,  parse_func *parse,
+                                const char *render_name, render_func *render)
+{
+       struct cdecl *decl = NULL;
+       char *buf = NULL;
+       size_t len;
+
+       decl = parse(str);
+       if (!decl) {
+               fprintf(stderr, "%s: %s: failed to parse input: %s\n",
+                               progname, parse_name, cdecl_get_error()->str);
+               goto err;
+       }
+
+       len = render(NULL, 0, decl);
+       buf = malloc_nofail(len+1);
+       if (render(buf, len+1, decl) != len) {
+               fprintf(stderr, "%s: %s: inconsistent length returned\n",
+                               progname, render_name);
+               goto err;
+       }
+
+       cdecl_free(decl);
+       return buf;
+err:
+       cdecl_free(decl);
+       free(buf);
+
+       fprintf(stderr, "%s: the failed input was: %s\n", progname, str);
+       return NULL;
+}
+#define rerender(str, p, r) (rerender(str, #p, p, #r, r))
+
+int main(int argc, char **argv)
+{
+       char *buf1 = NULL, *buf2 = NULL, *buf3 = NULL;
+       int opt, mode = MODE_CDECL;
+       int ret = EXIT_FAILURE;
+
+       if (argc > 0)
+               progname = argv[0];
+
+       while ((opt = getopt_long(argc, argv, sopts, lopts, NULL)) != -1) {
+               switch (opt) {
+               case 'C':
+                       mode = MODE_CDECL;
+                       break;
+               case 'E':
+                       mode = MODE_ENGLISH;
+                       break;
+               case 'V':
+                       test_print_version(PROGNAME);
+                       return EXIT_SUCCESS;
+               case 'H':
+                       print_help();
+                       return EXIT_SUCCESS;
+               default:
+                       print_usage(stderr);
+                       return EXIT_FAILURE;
+               }
+       }
+
+       if (!argv[optind]) {
+               print_usage(stderr);
+               return EXIT_FAILURE;
+       }
+
+       if (mode == MODE_ENGLISH) {
+               buf1 = rerender(argv[optind], cdecl_parse_english, cdecl_declare);
+               if (!buf1)
+                       goto out;
+               buf2 = rerender(buf1, cdecl_parse_decl, cdecl_explain);
+               if (!buf2)
+                       goto out;
+               buf3 = rerender(buf2, cdecl_parse_english, cdecl_declare);
+               if (!buf3)
+                       goto out;
+       } else {
+               buf1 = rerender(argv[optind], cdecl_parse_decl, cdecl_explain);
+               if (!buf1)
+                       goto out;
+               buf2 = rerender(buf1, cdecl_parse_english, cdecl_declare);
+               if (!buf2)
+                       goto out;
+               buf3 = rerender(buf2, cdecl_parse_decl, cdecl_explain);
+               if (!buf3)
+                       goto out;
+       }
+
+       if (!strcmp(buf1, buf3))
+               ret = EXIT_SUCCESS;
+out:
+       free(buf1);
+       free(buf2);
+       free(buf3);
+       return ret;
+}