91 lines
2.6 KiB
C
91 lines
2.6 KiB
C
|
/*
|
||
|
* Copyright 2017-2018 The OpenSSL Project Authors. All Rights Reserved.
|
||
|
*
|
||
|
* Licensed under the OpenSSL license (the "License"). You may not use
|
||
|
* this file except in compliance with the License. You can obtain a copy
|
||
|
* in the file LICENSE in the source distribution or at
|
||
|
* https://www.openssl.org/source/license.html
|
||
|
*/
|
||
|
|
||
|
#include "testutil.h"
|
||
|
#include "crypto/ctype.h"
|
||
|
#include "internal/nelem.h"
|
||
|
#include <ctype.h>
|
||
|
#include <stdio.h>
|
||
|
|
||
|
/*
|
||
|
* Even though the VMS C RTL claims to be C99 compatible, it's not entirely
|
||
|
* so far (C RTL version 8.4). Same applies to OSF. For the sake of these
|
||
|
* tests, we therefore define our own.
|
||
|
*/
|
||
|
#if (defined(__VMS) && __CRTL_VER <= 80400000) || defined(__osf__)
|
||
|
static int isblank(int c)
|
||
|
{
|
||
|
return c == ' ' || c == '\t';
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
static int test_ctype_chars(int n)
|
||
|
{
|
||
|
if (!TEST_int_eq(isascii((unsigned char)n) != 0, ossl_isascii(n) != 0))
|
||
|
return 0;
|
||
|
|
||
|
if (!ossl_isascii(n))
|
||
|
return 1;
|
||
|
|
||
|
return TEST_int_eq(isalpha(n) != 0, ossl_isalpha(n) != 0)
|
||
|
&& TEST_int_eq(isalnum(n) != 0, ossl_isalnum(n) != 0)
|
||
|
#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
|
||
|
&& TEST_int_eq(isblank(n) != 0, ossl_isblank(n) != 0)
|
||
|
#endif
|
||
|
&& TEST_int_eq(iscntrl(n) != 0, ossl_iscntrl(n) != 0)
|
||
|
&& TEST_int_eq(isdigit(n) != 0, ossl_isdigit(n) != 0)
|
||
|
&& TEST_int_eq(isgraph(n) != 0, ossl_isgraph(n) != 0)
|
||
|
&& TEST_int_eq(islower(n) != 0, ossl_islower(n) != 0)
|
||
|
&& TEST_int_eq(isprint(n) != 0, ossl_isprint(n) != 0)
|
||
|
&& TEST_int_eq(ispunct(n) != 0, ossl_ispunct(n) != 0)
|
||
|
&& TEST_int_eq(isspace(n) != 0, ossl_isspace(n) != 0)
|
||
|
&& TEST_int_eq(isupper(n) != 0, ossl_isupper(n) != 0)
|
||
|
&& TEST_int_eq(isxdigit(n) != 0, ossl_isxdigit(n) != 0);
|
||
|
}
|
||
|
|
||
|
static struct {
|
||
|
int u;
|
||
|
int l;
|
||
|
} case_change[] = {
|
||
|
{ 'A', 'a' },
|
||
|
{ 'X', 'x' },
|
||
|
{ 'Z', 'z' },
|
||
|
{ '0', '0' },
|
||
|
{ '%', '%' },
|
||
|
{ '~', '~' },
|
||
|
{ 0, 0 },
|
||
|
{ EOF, EOF }
|
||
|
};
|
||
|
|
||
|
static int test_ctype_toupper(int n)
|
||
|
{
|
||
|
return TEST_int_eq(ossl_toupper(case_change[n].l), case_change[n].u)
|
||
|
&& TEST_int_eq(ossl_toupper(case_change[n].u), case_change[n].u);
|
||
|
}
|
||
|
|
||
|
static int test_ctype_tolower(int n)
|
||
|
{
|
||
|
return TEST_int_eq(ossl_tolower(case_change[n].u), case_change[n].l)
|
||
|
&& TEST_int_eq(ossl_tolower(case_change[n].l), case_change[n].l);
|
||
|
}
|
||
|
|
||
|
static int test_ctype_eof(void)
|
||
|
{
|
||
|
return test_ctype_chars(EOF);
|
||
|
}
|
||
|
|
||
|
int setup_tests(void)
|
||
|
{
|
||
|
ADD_ALL_TESTS(test_ctype_chars, 256);
|
||
|
ADD_ALL_TESTS(test_ctype_toupper, OSSL_NELEM(case_change));
|
||
|
ADD_ALL_TESTS(test_ctype_tolower, OSSL_NELEM(case_change));
|
||
|
ADD_TEST(test_ctype_eof);
|
||
|
return 1;
|
||
|
}
|