1/*- 2 * Copyright (c) 2002 Tim J. Robbins 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24 * SUCH DAMAGE. 25 */ 26 27/* 28 * Test program for wcrtomb(), as specified by IEEE Std. 1003.1-2001 and 29 * ISO/IEC 9899:1999. 30 * 31 * The function is tested with both the "C" ("POSIX") LC_CTYPE setting and 32 * "ja_JP.eucJP". Other encodings are not tested. 33 */ 34 35#include <sys/cdefs.h> 36__FBSDID("$FreeBSD$"); 37 38#include <assert.h> 39#include <errno.h> 40#include <limits.h> 41#include <locale.h> 42#include <stdio.h> 43#include <stdlib.h> 44#include <string.h> 45#include <wchar.h> 46 47int 48main(int argc, char *argv[]) 49{ 50 mbstate_t s; 51 size_t len; 52 char buf[MB_LEN_MAX + 1]; 53 54 /* 55 * C/POSIX locale. 56 */ 57 58 printf("1..1\n"); 59 60 assert(MB_CUR_MAX == 1); 61 62 /* 63 * If the buffer argument is NULL, wc is implicitly L'\0', 64 * wcrtomb() resets its internal state. 65 */ 66 assert(wcrtomb(NULL, L'\0', NULL) == 1); 67 assert(wcrtomb(NULL, UCHAR_MAX + 1, NULL) == 1); 68 69 /* Null wide character. */ 70 memset(&s, 0, sizeof(s)); 71 memset(buf, 0xcc, sizeof(buf)); 72 len = wcrtomb(buf, L'\0', &s); 73 assert(len == 1); 74 assert((unsigned char)buf[0] == 0 && (unsigned char)buf[1] == 0xcc); 75 76 /* Latin letter A, internal state. */ 77 assert(wcrtomb(NULL, L'\0', NULL) == 1); 78 assert(wcrtomb(NULL, L'A', NULL) == 1); 79 80 /* Latin letter A. */ 81 memset(&s, 0, sizeof(s)); 82 memset(buf, 0xcc, sizeof(buf)); 83 len = wcrtomb(buf, L'A', &s); 84 assert(len == 1); 85 assert((unsigned char)buf[0] == 'A' && (unsigned char)buf[1] == 0xcc); 86 87 /* Invalid code. */ 88 assert(wcrtomb(buf, UCHAR_MAX + 1, NULL) == (size_t)-1); 89 assert(errno == EILSEQ); 90 91 /* 92 * Japanese (EUC) locale. 93 */ 94 95 assert(strcmp(setlocale(LC_CTYPE, "ja_JP.eucJP"), "ja_JP.eucJP") == 0); 96 assert(MB_CUR_MAX == 3); 97 98 /* 99 * If the buffer argument is NULL, wc is implicitly L'\0', 100 * wcrtomb() resets its internal state. 101 */ 102 assert(wcrtomb(NULL, L'\0', NULL) == 1); 103 104 /* Null wide character. */ 105 memset(&s, 0, sizeof(s)); 106 memset(buf, 0xcc, sizeof(buf)); 107 len = wcrtomb(buf, L'\0', &s); 108 assert(len == 1); 109 assert((unsigned char)buf[0] == 0 && (unsigned char)buf[1] == 0xcc); 110 111 /* Latin letter A, internal state. */ 112 assert(wcrtomb(NULL, L'\0', NULL) == 1); 113 assert(wcrtomb(NULL, L'A', NULL) == 1); 114 115 /* Latin letter A. */ 116 memset(&s, 0, sizeof(s)); 117 memset(buf, 0xcc, sizeof(buf)); 118 len = wcrtomb(buf, L'A', &s); 119 assert(len == 1); 120 assert((unsigned char)buf[0] == 'A' && (unsigned char)buf[1] == 0xcc); 121 122 /* Full width letter A. */ 123 memset(&s, 0, sizeof(s)); 124 memset(buf, 0xcc, sizeof(buf)); 125 len = wcrtomb(buf, 0xa3c1, &s); 126 assert(len == 2); 127 assert((unsigned char)buf[0] == 0xa3 && 128 (unsigned char)buf[1] == 0xc1 && 129 (unsigned char)buf[2] == 0xcc); 130 131 printf("ok 1 - wcrtomb()\n"); 132 133 return (0); 134} 135