2 * Copyright 2017 The OpenSSL Project Authors. All Rights Reserved.
4 * Licensed under the OpenSSL license (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
11 #include "internal/ctype.h"
17 * Even though the VMS C RTL claims to be C99 compatible, it's not entirely
18 * so far (C RTL version 8.4). For the sake of these tests, we therefore
21 #if defined(__VMS) && __CRTL_VER <= 80400000
22 static int isblank(int c)
24 return c == ' ' || c == '\t';
28 static int test_ctype_chars(int n)
30 return TEST_int_eq(isalnum(n) != 0, ossl_isalnum(n) != 0)
31 && TEST_int_eq(isalpha(n) != 0, ossl_isalpha(n) != 0)
32 && TEST_int_eq(isascii(n) != 0, ossl_isascii(n) != 0)
33 && TEST_int_eq(isblank(n) != 0, ossl_isblank(n) != 0)
34 && TEST_int_eq(iscntrl(n) != 0, ossl_iscntrl(n) != 0)
35 && TEST_int_eq(isdigit(n) != 0, ossl_isdigit(n) != 0)
36 && TEST_int_eq(isgraph(n) != 0, ossl_isgraph(n) != 0)
37 && TEST_int_eq(islower(n) != 0, ossl_islower(n) != 0)
38 && TEST_int_eq(isprint(n) != 0, ossl_isprint(n) != 0)
39 && TEST_int_eq(ispunct(n) != 0, ossl_ispunct(n) != 0)
40 && TEST_int_eq(isspace(n) != 0, ossl_isspace(n) != 0)
41 && TEST_int_eq(isupper(n) != 0, ossl_isupper(n) != 0)
42 && TEST_int_eq(isxdigit(n) != 0, ossl_isxdigit(n) != 0);
59 static int test_ctype_toupper(int n)
61 return TEST_int_eq(ossl_toupper(case_change[n].l), case_change[n].u)
62 && TEST_int_eq(ossl_toupper(case_change[n].u), case_change[n].u);
65 static int test_ctype_tolower(int n)
67 return TEST_int_eq(ossl_tolower(case_change[n].u), case_change[n].l)
68 && TEST_int_eq(ossl_tolower(case_change[n].l), case_change[n].l);
73 ADD_ALL_TESTS(test_ctype_chars, 256);
74 ADD_ALL_TESTS(test_ctype_toupper, OSSL_NELEM(case_change));
75 ADD_ALL_TESTS(test_ctype_tolower, OSSL_NELEM(case_change));