contrib/netbsd-tests/lib/libc/locale/t_wctomb.c

   1 /* $NetBSD: t_wctomb.c,v 1.3 2013/03/25 15:31:03 gson Exp $ */
   2
   3 /*-
   4  * Copyright (c) 2011 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  17  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  18  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  19  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  20  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  21  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  22  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  23  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  24  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  25  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  26  * POSSIBILITY OF SUCH DAMAGE.
  27  */
  28
  29 /*-
  30  * Copyright (c)2004 Citrus Project,
  31  * All rights reserved.
  32  *
  33  * Redistribution and use in source and binary forms, with or without
  34  * modification, are permitted provided that the following conditions
  35  * are met:
  36  * 1. Redistributions of source code must retain the above copyright
  37  *    notice, this list of conditions and the following disclaimer.
  38  * 2. Redistributions in binary form must reproduce the above copyright
  39  *    notice, this list of conditions and the following disclaimer in the
  40  *    documentation and/or other materials provided with the distribution.
  41  *
  42  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  43  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  44  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  45  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  46  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  47  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  48  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  49  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  50  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  51  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  52  * SUCH DAMAGE.
  53  */
  54
  55 #include <sys/cdefs.h>
  56 __COPYRIGHT("@(#) Copyright (c) 2011\
  57  The NetBSD Foundation, inc. All rights reserved.");
  58 __RCSID("$NetBSD: t_wctomb.c,v 1.3 2013/03/25 15:31:03 gson Exp $");
  59
  60 #include <stdio.h>
  61 #include <stdlib.h>
  62 #include <locale.h>
  63 #include <vis.h>
  64 #include <wchar.h>
  65 #include <string.h>
  66 #include <limits.h>
  67
  68 #include <atf-c.h>
  69
  70 #define TC_WCTOMB       0
  71 #define TC_WCRTOMB      1
  72 #define TC_WCRTOMB_ST   2
  73
  74 static struct test {
  75         const char *locale;
  76         const char *data;
  77         size_t wclen;
  78         size_t mblen[16];
  79 } tests[] = {
  80 {
  81         "ja_JP.ISO2022-JP",
  82         "\x1b$B"        /* JIS X 0208-1983 */
  83         "\x46\x7c\x4b\x5c\x38\x6c" /* "nihongo" */
  84         "\x1b(B"        /* ISO 646 */
  85         "ABC"
  86         "\x1b(I"        /* JIS X 0201 katakana */
  87         "\xb1\xb2\xb3"  /* "aiu" */
  88         "\x1b(B",       /* ISO 646 */
  89         3 + 3 + 3,
  90         { 3+2, 2, 2, 3+1, 1, 1, 3+1, 1, 1, 3+1 }
  91 }, {
  92         "C",
  93         "ABC",
  94         3,
  95         { 1, 1, 1, 1 }
  96 }, { NULL, NULL, 0, { } }
  97 };
  98
  99 static void
 100 h_wctomb(const struct test *t, char tc)
 101 {
 102         wchar_t wcs[16 + 2];
 103         char buf[128];
 104         char cs[MB_LEN_MAX];
 105         const char *pcs;
 106         char *str;
 107         mbstate_t st;
 108         mbstate_t *stp = NULL;
 109         size_t sz, ret, i;
 110
 111         ATF_REQUIRE_STREQ(setlocale(LC_ALL, "C"), "C");
 112 #ifdef __NetBSD__
 113         ATF_REQUIRE(setlocale(LC_CTYPE, t->locale) != NULL);
 114 #else
 115         if (setlocale(LC_CTYPE, t->locale) == NULL) {
 116                 fprintf(stderr, "Locale %s not found.\n", t->locale);
 117                 return;
 118         }
 119 #endif
 120
 121         (void)strvis(buf, t->data, VIS_WHITE | VIS_OCTAL);
 122         (void)printf("Checking sequence: \"%s\"\n", buf);
 123
 124         ATF_REQUIRE((str = setlocale(LC_ALL, NULL)) != NULL);
 125         (void)printf("Using locale: %s\n", str);
 126
 127         if (tc == TC_WCRTOMB_ST) {
 128                 (void)memset(&st, 0, sizeof(st));
 129                 stp = &st;
 130         }
 131
 132         wcs[t->wclen] = L'X'; /* poison */
 133         pcs = t->data;
 134         sz = mbsrtowcs(wcs, &pcs, t->wclen + 2, NULL);
 135         ATF_REQUIRE_EQ_MSG(sz, t->wclen, "mbsrtowcs() returned: "
 136                 "%zu, expected: %zu", sz, t->wclen);
 137         ATF_REQUIRE_EQ(wcs[t->wclen], 0);
 138
 139         for (i = 0; i < t->wclen + 1; i++) {
 140                 if (tc == TC_WCTOMB)
 141                         ret = wctomb(cs, wcs[i]);
 142                 else
 143                         ret = wcrtomb(cs, wcs[i], stp);
 144
 145                 if (ret == t->mblen[i])
 146                         continue;
 147
 148                 (void)printf("At position %zd:\n", i);
 149                 (void)printf("  expected: %zd\n", t->mblen[i]);
 150                 (void)printf("  got     : %zd\n", ret);
 151                 atf_tc_fail("Test failed");
 152                 /* NOTREACHED */
 153         }
 154
 155         (void)printf("Ok.\n");
 156 }
 157
 158 ATF_TC(wctomb);
 159 ATF_TC_HEAD(wctomb, tc)
 160 {
 161         atf_tc_set_md_var(tc, "descr", "Checks wctomb(3)");
 162 }
 163 ATF_TC_BODY(wctomb, tc)
 164 {
 165         struct test *t;
 166
 167         (void)printf("Checking wctomb()\n");
 168
 169         for (t = &tests[0]; t->data != NULL; ++t)
 170                 h_wctomb(t, TC_WCTOMB);
 171 }
 172
 173 ATF_TC(wcrtomb_state);
 174 ATF_TC_HEAD(wcrtomb_state, tc)
 175 {
 176         atf_tc_set_md_var(tc, "descr",
 177                 "Checks wcrtomb(3) (using state object)");
 178 }
 179 ATF_TC_BODY(wcrtomb_state, tc)
 180 {
 181         struct test *t;
 182
 183         (void)printf("Checking wcrtomb() (with state object)\n");
 184
 185         for (t = &tests[0]; t->data != NULL; ++t)
 186                 h_wctomb(t, TC_WCRTOMB_ST);
 187 }
 188
 189 ATF_TC(wcrtomb);
 190 ATF_TC_HEAD(wcrtomb, tc)
 191 {
 192         atf_tc_set_md_var(tc, "descr",
 193                 "Checks wcrtomb(3) (using internal state)");
 194 }
 195 ATF_TC_BODY(wcrtomb, tc)
 196 {
 197         struct test *t;
 198
 199         (void)printf("Checking wcrtomb() (using internal state)\n");
 200
 201         for (t = &tests[0]; t->data != NULL; ++t)
 202                 h_wctomb(t, TC_WCRTOMB);
 203 }
 204
 205 ATF_TP_ADD_TCS(tp)
 206 {
 207         ATF_TP_ADD_TC(tp, wctomb);
 208         ATF_TP_ADD_TC(tp, wcrtomb);
 209         ATF_TP_ADD_TC(tp, wcrtomb_state);
 210
 211         return atf_no_error();
 212 }