Nguyễn Thái Ngọc Duy | e499894 | 2018-03-24 08:44:35 +0100 | [diff] [blame] | 1 | #include "test-tool.h" |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 2 | #include "cache.h" |
| 3 | |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 4 | static int rc; |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 5 | |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 6 | static void report_error(const char *class, int ch) |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 7 | { |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 8 | printf("%s classifies char %d (0x%02x) wrongly\n", class, ch, ch); |
| 9 | rc = 1; |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 10 | } |
| 11 | |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 12 | static int is_in(const char *s, int ch) |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 13 | { |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 14 | /* We can't find NUL using strchr. It's classless anyway. */ |
| 15 | if (ch == '\0') |
| 16 | return 0; |
| 17 | return !!strchr(s, ch); |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 18 | } |
| 19 | |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 20 | #define TEST_CLASS(t,s) { \ |
| 21 | int i; \ |
| 22 | for (i = 0; i < 256; i++) { \ |
| 23 | if (is_in(s, i) != t(i)) \ |
| 24 | report_error(#t, i); \ |
| 25 | } \ |
René Scharfe | f9b7cce | 2009-01-17 16:50:37 +0100 | [diff] [blame] | 26 | } |
| 27 | |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 28 | #define DIGIT "0123456789" |
| 29 | #define LOWER "abcdefghijklmnopqrstuvwxyz" |
| 30 | #define UPPER "ABCDEFGHIJKLMNOPQRSTUVWXYZ" |
| 31 | |
Nguyễn Thái Ngọc Duy | e499894 | 2018-03-24 08:44:35 +0100 | [diff] [blame] | 32 | int cmd__ctype(int argc, const char **argv) |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 33 | { |
René Scharfe | c37c004 | 2011-10-01 18:36:14 +0200 | [diff] [blame] | 34 | TEST_CLASS(isdigit, DIGIT); |
| 35 | TEST_CLASS(isspace, " \n\r\t"); |
| 36 | TEST_CLASS(isalpha, LOWER UPPER); |
| 37 | TEST_CLASS(isalnum, LOWER UPPER DIGIT); |
| 38 | TEST_CLASS(is_glob_special, "*?[\\"); |
| 39 | TEST_CLASS(is_regex_special, "$()*+.?[\\^{|"); |
René Scharfe | 32ec231 | 2011-10-01 18:39:58 +0200 | [diff] [blame] | 40 | TEST_CLASS(is_pathspec_magic, "!\"#%&',-/:;<=>@_`~"); |
René Scharfe | b4285c7 | 2009-01-17 16:50:13 +0100 | [diff] [blame] | 41 | |
| 42 | return rc; |
| 43 | } |