Add test of cql_to_ccl

[yaz-moved-to-github.git] / test / test_cql2ccl.c

diff --git a/test/test_cql2ccl.c b/test/test_cql2ccl.c
new file mode 100644 (file)
index 0000000..cd1547b
--- /dev/null
+++ b/test/test_cql2ccl.c
@@ -0,0 +1,111 @@
+/* This file is part of the YAZ toolkit.
+ * Copyright (C) 1995-2011 Index Data
+ * See the file LICENSE for details.
+ */
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <string.h>
+#include <yaz/wrbuf.h>
+#include <yaz/cql.h>
+#include <yaz/log.h>
+#include <yaz/test.h>
+
+
+static int tst_query(const char *cql, const char *expected_ccl)
+{
+    int ret = 0;
+    CQL_parser cp = cql_parser_create();
+    int r = cql_parser_string(cp, cql);
+    
+    if (r)
+    {
+        yaz_log(YLOG_WARN, "cql: parse error: %s", cql);
+    }
+    else
+    { /* cql parse OK */
+        WRBUF w = wrbuf_alloc();
+        r = cql_to_ccl(cql_parser_result(cp), wrbuf_vp_puts, w);
+
+        if (expected_ccl && r == 0 && strcmp(wrbuf_cstr(w), expected_ccl) == 0)
+        {
+            ret = 1;
+        }
+        else if (!expected_ccl)
+        {
+            if (r)
+                ret = 1; /* expected conversion error, OK */
+            else
+                yaz_log(YLOG_WARN, "cql: expected conversion error: %s", cql);
+        }
+        else
+        {
+            yaz_log(YLOG_WARN, "cql: diff: %s", cql);
+            yaz_log(YLOG_WARN, " expected %s", expected_ccl);
+            yaz_log(YLOG_WARN, " got      %s", wrbuf_cstr(w));
+        }
+        wrbuf_destroy(w);
+    }
+    cql_parser_destroy(cp);
+    return ret;
+}
+
+static void tst(void)
+{
+    YAZ_CHECK(tst_query("\"\"", "\"\""));
+    YAZ_CHECK(tst_query("x", "\"x\""));
+    YAZ_CHECK(tst_query("\"x\"", "\"x\""));
+    YAZ_CHECK(tst_query("\"xy\"", "\"xy\""));
+
+    YAZ_CHECK(tst_query("?", "#"));
+    YAZ_CHECK(tst_query("?a?", "#\"a\"#"));
+    YAZ_CHECK(tst_query("?a", "#\"a\""));
+    YAZ_CHECK(tst_query("a?", "\"a\"#"));
+    YAZ_CHECK(tst_query("\"?\"", "#"));
+    YAZ_CHECK(tst_query("\\?", "\"?\""));
+    YAZ_CHECK(tst_query("\"\\?\"", "\"?\""));
+
+    YAZ_CHECK(tst_query("*", "?"));
+    YAZ_CHECK(tst_query("*a*", "?\"a\"?"));
+    YAZ_CHECK(tst_query("*a", "?\"a\""));
+    YAZ_CHECK(tst_query("a*", "\"a\"?"));
+    YAZ_CHECK(tst_query("\"*\"", "?"));
+    YAZ_CHECK(tst_query("\\*", "\"*\""));
+    YAZ_CHECK(tst_query("\"\\*\"", "\"*\""));
+
+    YAZ_CHECK(tst_query("a b", "\"a\" \"b\""));
+    YAZ_CHECK(tst_query("ab bc", "\"ab\" \"bc\""));
+
+    YAZ_CHECK(tst_query("\\\\", "\"\\\"\""));
+    YAZ_CHECK(tst_query("\\\"",   "\"\\\"\""));
+
+    YAZ_CHECK(tst_query("\\*", "\"*\""));
+    YAZ_CHECK(tst_query("\"\\*\"", "\"*\""));
+    YAZ_CHECK(tst_query("\\#", "\"#\""));
+    YAZ_CHECK(tst_query("\"\\#\"", "\"#\""));
+
+    YAZ_CHECK(tst_query("title=x", "title=\"x\""));
+    YAZ_CHECK(tst_query("title=x or author=y",
+                        "(title=\"x\" or author=\"y\")"));
+
+
+    YAZ_CHECK(tst_query("title all x", "title=x"));
+}
+
+int main(int argc, char **argv)
+{
+    YAZ_CHECK_INIT(argc, argv);
+    YAZ_CHECK_LOG();
+    tst();
+    YAZ_CHECK_TERM;
+}
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+