1 /*
2 * Copyright 2017-2018 The OpenSSL Project Authors. All Rights Reserved.
3 *
4 * Licensed under the Apache License 2.0 (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
8 */
9
10 #include "testutil.h"
11 #include "crypto/ctype.h"
12 #include "internal/nelem.h"
13 #include <ctype.h>
14 #include <stdio.h>
15
16 /*
17 * Even though the VMS C RTL claims to be C99 compatible, it's not entirely
18 * so far (C RTL version 8.4). Same applies to OSF. For the sake of these
19 * tests, we therefore define our own.
20 */
21 #if (defined(__VMS) && __CRTL_VER <= 80400000) || defined(__osf__)
isblank(int c)22 static int isblank(int c)
23 {
24 return c == ' ' || c == '\t';
25 }
26 #endif
27
test_ctype_chars(int n)28 static int test_ctype_chars(int n)
29 {
30 if (!TEST_int_eq(isascii((unsigned char)n) != 0, ossl_isascii(n) != 0))
31 return 0;
32
33 if (!ossl_isascii(n))
34 return 1;
35
36 return TEST_int_eq(isalpha(n) != 0, ossl_isalpha(n) != 0)
37 && TEST_int_eq(isalnum(n) != 0, ossl_isalnum(n) != 0)
38 #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
39 && TEST_int_eq(isblank(n) != 0, ossl_isblank(n) != 0)
40 #endif
41 && TEST_int_eq(iscntrl(n) != 0, ossl_iscntrl(n) != 0)
42 && TEST_int_eq(isdigit(n) != 0, ossl_isdigit(n) != 0)
43 && TEST_int_eq(isgraph(n) != 0, ossl_isgraph(n) != 0)
44 && TEST_int_eq(islower(n) != 0, ossl_islower(n) != 0)
45 && TEST_int_eq(isprint(n) != 0, ossl_isprint(n) != 0)
46 && TEST_int_eq(ispunct(n) != 0, ossl_ispunct(n) != 0)
47 && TEST_int_eq(isspace(n) != 0, ossl_isspace(n) != 0)
48 && TEST_int_eq(isupper(n) != 0, ossl_isupper(n) != 0)
49 && TEST_int_eq(isxdigit(n) != 0, ossl_isxdigit(n) != 0);
50 }
51
52 static struct {
53 int u;
54 int l;
55 } case_change[] = {
56 { 'A', 'a' },
57 { 'X', 'x' },
58 { 'Z', 'z' },
59 { '0', '0' },
60 { '%', '%' },
61 { '~', '~' },
62 { 0, 0 },
63 { EOF, EOF }
64 };
65
test_ctype_toupper(int n)66 static int test_ctype_toupper(int n)
67 {
68 return TEST_int_eq(ossl_toupper(case_change[n].l), case_change[n].u)
69 && TEST_int_eq(ossl_toupper(case_change[n].u), case_change[n].u);
70 }
71
test_ctype_tolower(int n)72 static int test_ctype_tolower(int n)
73 {
74 return TEST_int_eq(ossl_tolower(case_change[n].u), case_change[n].l)
75 && TEST_int_eq(ossl_tolower(case_change[n].l), case_change[n].l);
76 }
77
test_ctype_eof(void)78 static int test_ctype_eof(void)
79 {
80 return test_ctype_chars(EOF);
81 }
82
setup_tests(void)83 int setup_tests(void)
84 {
85 ADD_ALL_TESTS(test_ctype_chars, 256);
86 ADD_ALL_TESTS(test_ctype_toupper, OSSL_NELEM(case_change));
87 ADD_ALL_TESTS(test_ctype_tolower, OSSL_NELEM(case_change));
88 ADD_TEST(test_ctype_eof);
89 return 1;
90 }
91
