Merge branch 'pb/maint-perl-errmsg-no-dir'
[git/jnareb-git/bp-gitweb.git] / test-ctype.c
blob033c74911ed035ed36b16b0e2bf7327d6cdc5823
1 #include "cache.h"
4 static int test_isdigit(int c)
6 return isdigit(c);
9 static int test_isspace(int c)
11 return isspace(c);
14 static int test_isalpha(int c)
16 return isalpha(c);
19 static int test_isalnum(int c)
21 return isalnum(c);
24 static int test_is_glob_special(int c)
26 return is_glob_special(c);
29 static int test_is_regex_special(int c)
31 return is_regex_special(c);
34 #define DIGIT "0123456789"
35 #define LOWER "abcdefghijklmnopqrstuvwxyz"
36 #define UPPER "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
38 static const struct ctype_class {
39 const char *name;
40 int (*test_fn)(int);
41 const char *members;
42 } classes[] = {
43 { "isdigit", test_isdigit, DIGIT },
44 { "isspace", test_isspace, " \n\r\t" },
45 { "isalpha", test_isalpha, LOWER UPPER },
46 { "isalnum", test_isalnum, LOWER UPPER DIGIT },
47 { "is_glob_special", test_is_glob_special, "*?[\\" },
48 { "is_regex_special", test_is_regex_special, "$()*+.?[\\^{|" },
49 { NULL }
52 static int test_class(const struct ctype_class *test)
54 int i, rc = 0;
56 for (i = 0; i < 256; i++) {
57 int expected = i ? !!strchr(test->members, i) : 0;
58 int actual = test->test_fn(i);
60 if (actual != expected) {
61 rc = 1;
62 printf("%s classifies char %d (0x%02x) wrongly\n",
63 test->name, i, i);
66 return rc;
69 int main(int argc, char **argv)
71 const struct ctype_class *test;
72 int rc = 0;
74 for (test = classes; test->name; test++)
75 rc |= test_class(test);
77 return rc;