X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=test%2Ftest_icu.c;fp=test%2Ftest_icu.c;h=2ad005ca0fe2a4b2b1b06645d426008f12f511e6;hb=3107ce3a34993d2f784387f227a50343fff83bbc;hp=0000000000000000000000000000000000000000;hpb=ed31c923f03ec124060972f5351b8b33e07a2e13;p=yaz-moved-to-github.git

diff --git a/test/test_icu.c b/test/test_icu.c
new file mode 100644
index 0000000..2ad005c
--- /dev/null
+++ b/test/test_icu.c
@@ -0,0 +1,824 @@
+/* This file is part of the YAZ toolkit.
+ * Copyright (C) 1995-2010 Index Data
+ * See the file LICENSE for details.
+ */
+
+/* DO NOT EDIT THIS FILE IF YOUR EDITOR DOES NOT SUPPORT UTF-8 */
+ 
+
+#if HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#define USE_TIMING 0
+#if USE_TIMING
+#include <yaz/timing.h>
+#endif
+
+#include <yaz/test.h>
+#include <yaz/log.h>
+#include <yaz/wrbuf.h>
+
+#if YAZ_HAVE_ICU
+#include <yaz/icu_I18N.h>
+
+#if YAZ_POSIX_THREADS
+#include <pthread.h>
+#endif
+
+#include <string.h>
+#include <stdlib.h>
+
+#define MAX_KEY_SIZE 256
+struct icu_termmap
+{
+    uint8_t sort_key[MAX_KEY_SIZE]; /* standard C string '\0' terminated */
+    char disp_term[MAX_KEY_SIZE];  /* standard C utf-8 string */
+};
+
+
+static int icu_termmap_cmp(const void *vp1, const void *vp2)
+{
+    struct icu_termmap *itmp1 = *(struct icu_termmap **) vp1;
+    struct icu_termmap *itmp2 = *(struct icu_termmap **) vp2;
+
+    int cmp = 0;
+    
+    cmp = strcmp((const char *)itmp1->sort_key, 
+                 (const char *)itmp2->sort_key);
+    return cmp;
+}
+
+
+static int test_icu_casemap(const char * locale, char action,
+                            const char * src8cstr, const char * chk8cstr)
+{
+    int success = 0;
+    UErrorCode status = U_ZERO_ERROR;
+
+    struct icu_buf_utf8 * src8 = icu_buf_utf8_create(0);
+    struct icu_buf_utf8 * dest8 = icu_buf_utf8_create(0);
+    struct icu_buf_utf16 * src16 = icu_buf_utf16_create(0);
+    struct icu_buf_utf16 * dest16 = icu_buf_utf16_create(0);
+
+
+    int src8cstr_len = strlen(src8cstr);
+    int chk8cstr_len = strlen(chk8cstr);
+
+    /* converting to UTF16 */
+    icu_utf16_from_utf8_cstr(src16, src8cstr, &status);
+
+    /* perform case mapping */
+    icu_utf16_casemap(dest16, src16, locale, action, &status);
+  
+    /* converting to UTF8 */
+    icu_utf16_to_utf8(dest8, dest16, &status);
+
+    /* determine success */
+    if (dest8->utf8 
+        && (dest8->utf8_len == strlen(chk8cstr))
+        && !strcmp(chk8cstr, (const char *) dest8->utf8))
+        success = 1;
+    else
+        success = 0;
+
+    /* report failures */
+    if (!success)
+    {
+        yaz_log(YLOG_WARN, "test_icu_casemap failed");
+        yaz_log(YLOG_LOG, "Original string:   '%s' (%d)",
+                src8cstr, src8cstr_len);
+        yaz_log(YLOG_LOG, "icu_casemap '%s:%c' '%s' (%d)", 
+                locale, action, dest8->utf8, dest8->utf8_len);
+        yaz_log(YLOG_LOG, "expected string:   '%s' (%d)",
+                chk8cstr, chk8cstr_len);
+    }
+  
+    /* clean the buffers */
+    icu_buf_utf8_destroy(src8);
+    icu_buf_utf8_destroy(dest8);
+    icu_buf_utf16_destroy(src16);
+    icu_buf_utf16_destroy(dest16);
+    
+    return success;
+}
+
+static void check_icu_casemap(void)
+{
+    /* Locale 'en' */
+
+    /* successful tests */
+    YAZ_CHECK(test_icu_casemap("en", 'l',
+                               "A ReD fOx hunTS sQUirriLs", 
+                               "a red fox hunts squirrils"));
+    
+    YAZ_CHECK(test_icu_casemap("en", 'u',
+                               "A ReD fOx hunTS sQUirriLs", 
+                               "A RED FOX HUNTS SQUIRRILS"));
+    
+    YAZ_CHECK(test_icu_casemap("en", 'f',
+                               "A ReD fOx hunTS sQUirriLs", 
+                               "a red fox hunts squirrils"));
+    
+    YAZ_CHECK(test_icu_casemap("en", 't',
+                               "A ReD fOx hunTS sQUirriLs", 
+                               "A Red Fox Hunts Squirrils"));
+    
+    /* Locale 'da' */
+
+    /* success expected */
+    YAZ_CHECK(test_icu_casemap("da", 'l',
+                               "åh ÆbLE, øs fLØde i Åen efter bLåBærGRødeN", 
+                               "åh æble, øs fløde i åen efter blåbærgrøden"));
+
+    YAZ_CHECK(test_icu_casemap("da", 'u',
+                               "åh ÆbLE, øs fLØde i Åen efter bLåBærGRødeN", 
+                               "ÅH ÆBLE, ØS FLØDE I ÅEN EFTER BLÅBÆRGRØDEN"));
+
+    YAZ_CHECK(test_icu_casemap("da", 'f',
+                               "åh ÆbLE, øs fLØde i Åen efter bLåBærGRødeN", 
+                               "åh æble, øs fløde i åen efter blåbærgrøden"));
+
+    YAZ_CHECK(test_icu_casemap("da", 't',
+                               "åh ÆbLE, øs fLØde i Åen efter bLåBærGRødeN", 
+                               "Åh Æble, Øs Fløde I Åen Efter Blåbærgrøden"));
+
+    /* Locale 'de' */
+
+    /* success expected */
+    YAZ_CHECK(test_icu_casemap("de", 'l',
+                               "zWÖlf ärgerliche Würste rollen ÜBer die StRAße",
+                               "zwölf ärgerliche würste rollen über die straße"));
+
+    YAZ_CHECK(test_icu_casemap("de", 'u',
+                               "zWÖlf ärgerliche Würste rollen ÜBer die StRAße",
+                               "ZWÖLF ÄRGERLICHE WÜRSTE ROLLEN ÜBER DIE STRASSE"));
+
+    YAZ_CHECK(test_icu_casemap("de", 'f',
+                               "zWÖlf ärgerliche Würste rollen ÜBer die StRAße",
+                               "zwölf ärgerliche würste rollen über die strasse"));
+
+    YAZ_CHECK(test_icu_casemap("de", 't',
+                               "zWÖlf ärgerliche Würste rollen ÜBer die StRAße",
+                               "Zwölf Ärgerliche Würste Rollen Über Die Straße"));
+
+}
+
+static int test_icu_sortmap(const char * locale, int src_list_len,
+                            const char ** src_list, const char ** chk_list)
+{
+    int success = 1;
+
+    UErrorCode status = U_ZERO_ERROR;
+
+    struct icu_buf_utf8 * buf8 = icu_buf_utf8_create(0);
+    struct icu_buf_utf16 * buf16 = icu_buf_utf16_create(0);
+
+    int i;
+
+    struct icu_termmap * list[src_list_len];
+
+    UCollator *coll = ucol_open(locale, &status); 
+    icu_check_status(status);
+
+    if (U_FAILURE(status))
+        return 0;
+
+    /* assigning display terms and sort keys using buf 8 and buf16 */
+    for (i = 0; i < src_list_len; i++) 
+    {
+
+        list[i] = (struct icu_termmap *) malloc(sizeof(struct icu_termmap));
+
+        /* copy display term */
+        strcpy(list[i]->disp_term, src_list[i]);    
+
+        /* transforming to UTF16 */
+        icu_utf16_from_utf8_cstr(buf16, list[i]->disp_term, &status);
+        icu_check_status(status);
+
+        /* computing sortkeys */
+        icu_sortkey8_from_utf16(coll, buf8, buf16, &status);
+        icu_check_status(status);
+    
+        /* assigning sortkeys */
+        memcpy(list[i]->sort_key, buf8->utf8, buf8->utf8_len);    
+    } 
+
+    /* do the sorting */
+    qsort(list, src_list_len, sizeof(struct icu_termmap *), icu_termmap_cmp);
+
+    /* checking correct sorting */
+    for (i = 0; i < src_list_len; i++)
+    {
+        if (0 != strcmp(list[i]->disp_term, chk_list[i])){
+            success = 0;
+        }
+    }
+
+    if (!success)
+    {
+        yaz_log(YLOG_LOG, "ERROR"); 
+        yaz_log(YLOG_LOG, "Input str:'%s':", locale); 
+        for (i = 0; i < src_list_len; i++) {
+            yaz_log(YLOG_LOG, "  '%s'", list[i]->disp_term); 
+        }
+        yaz_log(YLOG_LOG, "ICU sort: '%s':", locale); 
+        for (i = 0; i < src_list_len; i++) {
+            yaz_log(YLOG_LOG, " '%s'", list[i]->disp_term); 
+        }
+        yaz_log(YLOG_LOG, "Expected: '%s':", locale); 
+        for (i = 0; i < src_list_len; i++) {
+            yaz_log(YLOG_LOG, " '%s'", chk_list[i]); 
+        }
+    }
+  
+    for (i = 0; i < src_list_len; i++)
+        free(list[i]);
+   
+    ucol_close(coll);
+
+    icu_buf_utf8_destroy(buf8);
+    icu_buf_utf16_destroy(buf16);
+
+    return success;  
+}
+
+static void check_icu_sortmap(void)
+{
+    /* successful tests */
+    size_t en_1_len = 6;
+    const char * en_1_src[6] = {"z", "K", "a", "A", "Z", "k"};
+    const char * en_1_cck[6] = {"a", "A", "k", "K", "z", "Z"};
+    YAZ_CHECK(test_icu_sortmap("en", en_1_len, en_1_src, en_1_cck));
+    YAZ_CHECK(test_icu_sortmap("en_AU", en_1_len, en_1_src, en_1_cck));
+    YAZ_CHECK(test_icu_sortmap("en_CA", en_1_len, en_1_src, en_1_cck));
+    YAZ_CHECK(test_icu_sortmap("en_GB", en_1_len, en_1_src, en_1_cck));
+    YAZ_CHECK(test_icu_sortmap("en_US", en_1_len, en_1_src, en_1_cck));
+    
+    /* successful tests */
+    {
+        size_t da_1_len = 6;
+        const char * da_1_src[6] = {"z", "å", "o", "æ", "a", "ø"};
+        const char * da_1_cck[6] = {"a", "o", "z", "æ", "ø", "å"};
+        YAZ_CHECK(test_icu_sortmap("da", da_1_len, da_1_src, da_1_cck));
+        YAZ_CHECK(test_icu_sortmap("da_DK", da_1_len, da_1_src, da_1_cck));
+    }
+    /* successful tests */
+    {
+        size_t de_1_len = 9;
+        const char * de_1_src[9] = {"u", "ä", "o", "t", "s", "ß", "ü", "ö", "a"};
+        const char * de_1_cck[9] = {"a","ä", "o", "ö", "s", "ß", "t", "u", "ü"};
+        YAZ_CHECK(test_icu_sortmap("de", de_1_len, de_1_src, de_1_cck));
+        YAZ_CHECK(test_icu_sortmap("de_AT", de_1_len, de_1_src, de_1_cck));
+        YAZ_CHECK(test_icu_sortmap("de_DE", de_1_len, de_1_src, de_1_cck));
+    }
+}
+
+static int test_icu_normalizer(const char * rules8cstr,
+                               const char * src8cstr,
+                               const char * chk8cstr)
+{
+    int success = 0;
+    
+    UErrorCode status = U_ZERO_ERROR;
+
+    struct icu_buf_utf16 * src16 = icu_buf_utf16_create(0);
+    struct icu_buf_utf16 * dest16 = icu_buf_utf16_create(0);
+    struct icu_buf_utf8 * dest8 = icu_buf_utf8_create(0);
+    struct icu_transform * transform
+        = icu_transform_create(rules8cstr, 'f', 0, &status);
+    icu_check_status(status);
+    
+    icu_utf16_from_utf8_cstr(src16, src8cstr, &status);
+    icu_check_status(status);
+
+    icu_transform_trans(transform, dest16, src16, &status);
+    icu_check_status(status);
+
+    icu_utf16_to_utf8(dest8, dest16, &status);
+    icu_check_status(status);
+
+
+    if (!strcmp((const char *) dest8->utf8, 
+               (const char *) chk8cstr))
+        success = 1;
+    else
+    {
+        success = 0;
+        yaz_log(YLOG_LOG, "Normalization");
+        yaz_log(YLOG_LOG, " Rules:      '%s'", rules8cstr);
+        yaz_log(YLOG_LOG, " Input:      '%s'", src8cstr);
+        yaz_log(YLOG_LOG, " Normalized: '%s'", dest8->utf8);
+        yaz_log(YLOG_LOG, " Expected:   '%s'", chk8cstr);
+    }
+
+    icu_transform_destroy(transform);
+    icu_buf_utf16_destroy(src16);
+    icu_buf_utf16_destroy(dest16);
+    icu_buf_utf8_destroy(dest8);
+
+    return success;
+}
+
+static void check_icu_normalizer(void)
+{
+    YAZ_CHECK(test_icu_normalizer("[:Punctuation:] Any-Remove",
+                                  "Don't shoot!",
+                                  "Dont shoot"));
+    
+    YAZ_CHECK(test_icu_normalizer("[:Control:] Any-Remove",
+                                  "Don't\n shoot!",
+                                  "Don't shoot!"));
+
+    YAZ_CHECK(test_icu_normalizer("[:Decimal_Number:] Any-Remove",
+                                  "This is 4 you!",
+                                  "This is  you!"));
+
+    YAZ_CHECK(test_icu_normalizer("Lower; [:^Letter:] Remove",
+                                  "Don't shoot!",
+                                  "dontshoot"));
+    
+    YAZ_CHECK(test_icu_normalizer("[:^Number:] Remove",
+                                  "Monday 15th of April",
+                                  "15"));
+
+    YAZ_CHECK(test_icu_normalizer("Lower;"
+                                  "[[:WhiteSpace:][:Punctuation:]] Remove",
+                                  " word4you? ",
+                                  "word4you"));
+
+    YAZ_CHECK(test_icu_normalizer("NFD; [:Nonspacing Mark:] Remove; NFC",
+                                  "à côté de l'alcôve ovoïde",
+                                  "a cote de l'alcove ovoide"));
+}
+
+static int test_icu_tokenizer(const char * locale, char action,
+                              const char * src8cstr, int count)
+{
+    int success = 1;
+
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_buf_utf16 * src16 = icu_buf_utf16_create(0);
+    struct icu_buf_utf16 * tkn16 = icu_buf_utf16_create(0);
+    struct icu_buf_utf8 * tkn8 = icu_buf_utf8_create(0);
+    struct icu_tokenizer * tokenizer = 0;
+
+    /* transforming to UTF16 */
+    icu_utf16_from_utf8_cstr(src16, src8cstr, &status);
+    icu_check_status(status);
+
+    /* set up tokenizer */
+    tokenizer = icu_tokenizer_create(locale, action, &status);
+    icu_check_status(status);
+    YAZ_CHECK(tokenizer);
+
+    /* attach text buffer to tokenizer */
+    icu_tokenizer_attach(tokenizer, src16, &status);    
+    icu_check_status(status);
+
+    /* perform work on tokens */
+    while (icu_tokenizer_next_token(tokenizer, tkn16, &status))
+    {
+        icu_check_status(status);
+
+        /* converting to UTF8 */
+        icu_utf16_to_utf8(tkn8, tkn16, &status);
+    }
+
+    if (count != icu_tokenizer_token_count(tokenizer))
+    {
+        success = 0;
+        yaz_log(YLOG_LOG, "Tokenizer '%s:%c' Error:", locale, action);
+        yaz_log(YLOG_LOG, " Input:  '%s'", src8cstr);
+        yaz_log(YLOG_LOG, " Tokens: %d", icu_tokenizer_token_count(tokenizer));
+        yaz_log(YLOG_LOG, " Expected: %d", count);
+    }
+
+    icu_tokenizer_destroy(tokenizer);
+    icu_buf_utf16_destroy(src16);
+    icu_buf_utf16_destroy(tkn16);
+    icu_buf_utf8_destroy(tkn8);
+        
+    return success;
+}
+
+static void check_icu_tokenizer(void)
+{
+    const char * en_str 
+        = "O Romeo, Romeo! wherefore art thou Romeo?";
+    
+    YAZ_CHECK(test_icu_tokenizer("en", 's', en_str, 2));
+    YAZ_CHECK(test_icu_tokenizer("en", 'l', en_str, 7));
+    YAZ_CHECK(test_icu_tokenizer("en", 'w', en_str, 16));
+    YAZ_CHECK(test_icu_tokenizer("en", 'c', en_str, 41));
+
+    {
+        const char * da_str 
+            = "Blåbærtærte. Denne kage stammer fra Finland. "
+            "Den er med blåbær, men alle sommerens forskellige bær kan bruges.";
+        
+        YAZ_CHECK(test_icu_tokenizer("da", 's', da_str, 3));
+        YAZ_CHECK(test_icu_tokenizer("dar", 'l', da_str, 17));
+        YAZ_CHECK(test_icu_tokenizer("da", 'w', da_str, 37));
+        YAZ_CHECK(test_icu_tokenizer("da", 'c', da_str, 110));
+    }
+}
+
+static void check_icu_chain(void)
+{
+    const char * en_str 
+        = "O Romeo, Romeo! wherefore art thou\t Romeo?";
+
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain * chain = 0;
+    
+    const char * xml_str = "<icu locale=\"en\">"
+        "<transform rule=\"[:Control:] Any-Remove\"/>"
+        "<tokenize rule=\"l\"/>"
+        "<transform rule=\"[[:WhiteSpace:][:Punctuation:]] Remove\"/>"
+        "<display/>"
+        "<casemap rule=\"l\"/>"
+        "</icu>";
+
+    
+    xmlDoc *doc = xmlParseMemory(xml_str, strlen(xml_str));
+    xmlNode *xml_node = xmlDocGetRootElement(doc);
+    YAZ_CHECK(xml_node);
+
+    chain = icu_chain_xml_config(xml_node, 0, &status);
+
+    xmlFreeDoc(doc);
+    YAZ_CHECK(chain);
+
+    YAZ_CHECK(icu_chain_assign_cstr(chain, en_str, &status));
+
+    while (icu_chain_next_token(chain, &status))
+    {
+        yaz_log(YLOG_LOG, "%d '%s' '%s'",
+                icu_chain_token_number(chain),
+                icu_chain_token_norm(chain),
+                icu_chain_token_display(chain));
+    }
+
+    YAZ_CHECK_EQ(icu_chain_token_number(chain), 7);
+
+
+    YAZ_CHECK(icu_chain_assign_cstr(chain, "what is this?", &status));
+
+    while (icu_chain_next_token(chain, &status))
+    {
+        yaz_log(YLOG_LOG, "%d '%s' '%s'",
+                icu_chain_token_number(chain),
+                icu_chain_token_norm(chain),
+                icu_chain_token_display(chain));
+    }
+
+
+    YAZ_CHECK_EQ(icu_chain_token_number(chain), 3);
+
+    icu_chain_destroy(chain);
+}
+
+
+static void check_bug_1140(void)
+{
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain * chain = 0;
+    
+    const char * xml_str = "<icu locale=\"en\">"
+
+        /* if the first rule is normalize instead. Then it works */
+#if 0
+        "<transform rule=\"[:Control:] Any-Remove\"/>"
+#endif
+        "<tokenize rule=\"l\"/>"
+        "<transform rule=\"[[:WhiteSpace:][:Punctuation:]] Remove\"/>"
+        "<display/>"
+        "<casemap rule=\"l\"/>"
+        "</icu>";
+
+    
+    xmlDoc *doc = xmlParseMemory(xml_str, strlen(xml_str));
+    xmlNode *xml_node = xmlDocGetRootElement(doc);
+    YAZ_CHECK(xml_node);
+
+    chain = icu_chain_xml_config(xml_node, 0, &status);
+
+    xmlFreeDoc(doc);
+    YAZ_CHECK(chain);
+    
+    YAZ_CHECK(icu_chain_assign_cstr(
+                  chain,  "O Romeo, Romeo! wherefore art thou\t Romeo?",
+                  &status));
+
+    while (icu_chain_next_token(chain, &status))
+    {
+        ;
+        /* printf("%d '%s' '%s'\n",
+           icu_chain_token_number(chain),
+           icu_chain_token_norm(chain),
+           icu_chain_token_display(chain)); */
+    }
+    
+
+    YAZ_CHECK_EQ(icu_chain_token_number(chain), 7);
+
+    YAZ_CHECK(icu_chain_assign_cstr(chain, "what is this?", &status));
+
+    while (icu_chain_next_token(chain, &status))
+    {
+        ;
+        /* printf("%d '%s' '%s'\n",
+           icu_chain_token_number(chain),
+           icu_chain_token_norm(chain),
+           icu_chain_token_display(chain)); */
+    }
+
+    /* we expect 'what' 'is' 'this', i.e. 3 tokens */
+    YAZ_CHECK_EQ(icu_chain_token_number(chain), 3);
+
+    icu_chain_destroy(chain);
+}
+
+
+static void check_chain_empty_token(void)
+{
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain * chain = 0;
+
+    const char * xml_str = "<icu locale=\"en\">"
+        "<tokenize rule=\"w\"/>"
+        "<transform rule=\"[[:WhiteSpace:][:Punctuation:]] Remove\"/>"
+        "</icu>";
+    
+    xmlDoc *doc = xmlParseMemory(xml_str, strlen(xml_str));
+    xmlNode *xml_node = xmlDocGetRootElement(doc);
+    YAZ_CHECK(xml_node);
+
+    chain = icu_chain_xml_config(xml_node, 0, &status);
+
+    xmlFreeDoc(doc);
+    YAZ_CHECK(chain);
+    
+    YAZ_CHECK(icu_chain_assign_cstr(
+                  chain,  "a string with 15 tokenss and 8 displays",
+                  &status));
+
+    while (icu_chain_next_token(chain, &status))
+    {
+        ;
+        /* printf("%d '%s' '%s'\n",
+           icu_chain_token_number(chain),
+           icu_chain_token_norm(chain),
+           icu_chain_token_display(chain)); */
+    }
+
+    YAZ_CHECK_EQ(icu_chain_token_number(chain), 15);
+
+    icu_chain_destroy(chain);
+}
+
+static void check_chain_empty_chain(void)
+{
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain * chain = 0;
+
+    const char * xml_str = "<icu locale=\"en\">"
+        "</icu>";
+    
+    const char * src8 = "some 5487 weired !¤%&(/& sTuFf";
+    char * dest8 = 0;
+
+    xmlDoc *doc = xmlParseMemory(xml_str, strlen(xml_str));
+    xmlNode *xml_node = xmlDocGetRootElement(doc);
+    YAZ_CHECK(xml_node);
+
+    chain = icu_chain_xml_config(xml_node, 0, &status);
+
+    xmlFreeDoc(doc);
+    YAZ_CHECK(chain);
+    
+    YAZ_CHECK(icu_chain_assign_cstr(
+                  chain,  src8,
+                  &status));
+
+    while (icu_chain_next_token(chain, &status))
+    {
+        ;
+        /* printf("%d '%s' '%s'\n",
+           icu_chain_token_number(chain),
+           icu_chain_token_norm(chain),
+           icu_chain_token_display(chain)); */
+    }
+
+    YAZ_CHECK_EQ(icu_chain_token_number(chain), 1);
+
+    dest8 = (char *) icu_chain_token_norm(chain);
+    YAZ_CHECK_EQ(strcmp(src8, dest8), 0);
+    
+    icu_chain_destroy(chain);
+}
+
+static void check_icu_iter1(void)
+{
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain * chain = 0;
+    xmlNode *xml_node;
+    yaz_icu_iter_t iter;
+
+    const char * xml_str = "<icu locale=\"en\">"
+        "<tokenize rule=\"w\"/>"
+        "<transform rule=\"[[:WhiteSpace:][:Punctuation:]] Remove\"/>"
+        "</icu>";
+    
+    xmlDoc *doc = xmlParseMemory(xml_str, strlen(xml_str));
+    YAZ_CHECK(doc);
+    if (!doc)
+        return;
+    xml_node = xmlDocGetRootElement(doc);
+    YAZ_CHECK(xml_node);
+    if (!xml_node)
+        return ;
+
+    chain = icu_chain_xml_config(xml_node, 0, &status);
+
+    xmlFreeDoc(doc);
+    YAZ_CHECK(chain);
+    
+    iter = icu_iter_create(chain);
+    icu_iter_first(iter, "a string with 15 tokens and 8 displays");
+    YAZ_CHECK(iter);
+    if (!iter)
+        return;
+    while (icu_iter_next(iter))
+    {
+        yaz_log(YLOG_LOG, "[%s]", icu_iter_get_norm(iter));
+    }
+    icu_iter_destroy(iter);
+    icu_chain_destroy(chain);
+}
+
+static int test_iter(struct icu_chain *chain, const char *input,
+                     const char *expected)
+{
+    yaz_icu_iter_t iter = icu_iter_create(chain);
+    WRBUF result, second;
+    int success = 1;
+
+    if (!iter)
+    {
+        yaz_log(YLOG_WARN, "test_iter: input=%s !iter", input);
+        return 0;
+    }
+
+    if (icu_iter_next(iter))
+    {
+        yaz_log(YLOG_WARN, "test_iter: expecting 0 before icu_iter_first");
+        return 0;
+    }
+
+    result = wrbuf_alloc();
+    icu_iter_first(iter, input);
+    while (icu_iter_next(iter))
+    {
+        wrbuf_puts(result, "[");
+        wrbuf_puts(result, icu_iter_get_norm(iter));
+        wrbuf_puts(result, "]");
+    }
+
+    second = wrbuf_alloc();
+    icu_iter_first(iter, input);
+    while (icu_iter_next(iter))
+    {
+        wrbuf_puts(second, "[");
+        wrbuf_puts(second, icu_iter_get_norm(iter));
+        wrbuf_puts(second, "]");
+    }
+
+    icu_iter_destroy(iter);
+
+    if (strcmp(expected, wrbuf_cstr(result)))
+    {
+        yaz_log(YLOG_WARN, "test_iter: input=%s expected=%s got=%s",
+                input, expected, wrbuf_cstr(result));
+        success = 0;
+    }
+
+    if (strcmp(expected, wrbuf_cstr(second)))
+    {
+        yaz_log(YLOG_WARN, "test_iter: input=%s expected=%s got=%s (2nd)",
+                input, expected, wrbuf_cstr(second));
+        success = 0;
+    }
+
+    wrbuf_destroy(result);
+    wrbuf_destroy(second);
+    return success;
+}
+
+static void *iter_thread(void *p)
+{
+    struct icu_chain *chain = (struct icu_chain *) p;
+    int i;
+    
+    for (i = 0; i < 10000; i++)
+    {
+        YAZ_CHECK(test_iter(chain, "Adobe Acrobat Reader, 1991-1999.",
+                            "[adobe][acrobat][reader][1991][][1999][]"));
+    }
+    return 0;
+}
+
+static void check_iter_threads(struct icu_chain *chain)
+{
+#if YAZ_POSIX_THREADS
+#define NO_THREADS 1
+
+    pthread_t t[NO_THREADS];
+    int i;
+
+    for (i = 0; i < NO_THREADS; i++)
+        pthread_create(t + i, 0, iter_thread, chain);
+
+    for (i = 0; i < NO_THREADS; i++)
+        pthread_join(t[i], 0);
+#endif
+}
+static void check_icu_iter2(void)
+{
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain * chain = 0;
+    xmlNode *xml_node;
+
+    const char * xml_str = "<icu locale=\"en\">"
+        "<transform rule=\"[:Control:] Any-Remove\"/>"
+        "<tokenize rule=\"l\"/>"
+        "<tokenize rule=\"w\"/>"
+        "<transform rule=\"[[:WhiteSpace:][:Punctuation:]] Remove\"/>"
+        "<display/>"
+        "<casemap rule=\"l\"/>"
+        "</icu>";
+
+    xmlDoc *doc = xmlParseMemory(xml_str, strlen(xml_str));
+    YAZ_CHECK(doc);
+    if (!doc)
+        return;
+    xml_node = xmlDocGetRootElement(doc);
+    YAZ_CHECK(xml_node);
+    if (!xml_node)
+        return ;
+
+    chain = icu_chain_xml_config(xml_node, 0, &status);
+
+    xmlFreeDoc(doc);
+    YAZ_CHECK(chain);
+    
+    YAZ_CHECK(test_iter(chain, "Adobe Acrobat Reader, 1991-1999.",
+                        "[adobe][acrobat][reader][1991][][1999][]"));
+
+    check_iter_threads(chain);
+
+    icu_chain_destroy(chain);
+}
+
+#endif /* YAZ_HAVE_ICU */
+
+int main(int argc, char **argv)
+{
+    YAZ_CHECK_INIT(argc, argv); 
+    YAZ_CHECK_LOG();
+
+#if YAZ_HAVE_ICU
+
+    check_icu_casemap();
+    check_icu_sortmap();
+    check_icu_normalizer();
+    check_icu_tokenizer();
+    check_icu_chain();
+    check_chain_empty_token();
+    check_chain_empty_chain();
+    check_icu_iter1();
+    check_icu_iter2();
+    
+    check_bug_1140();
+
+#else /* YAZ_HAVE_ICU */
+
+    yaz_log(YLOG_LOG, "ICU unit tests omitted");
+    YAZ_CHECK(0 == 0);
+
+#endif /* YAZ_HAVE_ICU */
+   
+    YAZ_CHECK_TERM;
+}
+
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+