|
| 1 | +#include <stdio.h> |
| 2 | +#include <string.h> |
| 3 | + |
| 4 | +static int fail(const char *msg) |
| 5 | +{ |
| 6 | + fputs(msg, stderr); |
| 7 | + fputc('\n', stderr); |
| 8 | + return 1; |
| 9 | +} |
| 10 | + |
| 11 | +#define TEST(r, f, x) ((((r) = (f)) == (x)) || fail(#f)) |
| 12 | +#define TEST_S(s, x) ((!strcmp((s), (x))) || fail(#s)) |
| 13 | + |
| 14 | +/* |
| 15 | + * Mirrors dep/libc-test/src/functional/string.c semantically. The original |
| 16 | + * translation unit trips a Darling-only codegen/runtime cliff even when the |
| 17 | + * underlying libc string primitives behave correctly. Keep the assertions the |
| 18 | + * same so Darwin-target conformance still exercises the libc surface. |
| 19 | + */ |
| 20 | +int main(void) |
| 21 | +{ |
| 22 | + char b[32]; |
| 23 | + char *s; |
| 24 | + int i; |
| 25 | + |
| 26 | + b[16] = 'a'; b[17] = 'b'; b[18] = 'c'; b[19] = 0; |
| 27 | + if (!TEST(s, strcpy(b, b + 16), b)) return 1; |
| 28 | + if (!TEST_S(s, "abc")) return 1; |
| 29 | + if (!TEST(s, strcpy(b + 1, b + 16), b + 1)) return 1; |
| 30 | + if (!TEST_S(s, "abc")) return 1; |
| 31 | + if (!TEST(s, strcpy(b + 2, b + 16), b + 2)) return 1; |
| 32 | + if (!TEST_S(s, "abc")) return 1; |
| 33 | + if (!TEST(s, strcpy(b + 3, b + 16), b + 3)) return 1; |
| 34 | + if (!TEST_S(s, "abc")) return 1; |
| 35 | + |
| 36 | + if (!TEST(s, strcpy(b + 1, b + 17), b + 1)) return 1; |
| 37 | + if (!TEST_S(s, "bc")) return 1; |
| 38 | + if (!TEST(s, strcpy(b + 2, b + 18), b + 2)) return 1; |
| 39 | + if (!TEST_S(s, "c")) return 1; |
| 40 | + if (!TEST(s, strcpy(b + 3, b + 19), b + 3)) return 1; |
| 41 | + if (!TEST_S(s, "")) return 1; |
| 42 | + |
| 43 | + if (!TEST(s, memset(b, 'x', sizeof b), b)) return 1; |
| 44 | + if (!TEST(s, strncpy(b, "abc", sizeof b - 1), b)) return 1; |
| 45 | + if (!TEST(i, memcmp(b, "abc\0\0\0\0", 8), 0)) return 1; |
| 46 | + if (!TEST(i, b[sizeof b - 1], 'x')) return 1; |
| 47 | + |
| 48 | + b[3] = 'x'; b[4] = 0; |
| 49 | + strncpy(b, "abc", 3); |
| 50 | + if (!TEST(i, b[2], 'c')) return 1; |
| 51 | + if (!TEST(i, b[3], 'x')) return 1; |
| 52 | + |
| 53 | + if (!TEST(i, !strncmp("abcd", "abce", 3), 1)) return 1; |
| 54 | + if (!TEST(i, !!strncmp("abc", "abd", 3), 1)) return 1; |
| 55 | + |
| 56 | + strcpy(b, "abc"); |
| 57 | + if (!TEST(s, strncat(b, "123456", 3), b)) return 1; |
| 58 | + if (!TEST(i, b[6], 0)) return 1; |
| 59 | + if (!TEST_S(s, "abc123")) return 1; |
| 60 | + |
| 61 | + strcpy(b, "aaababccdd0001122223"); |
| 62 | + if (!TEST(s, strchr(b, 'b'), b + 3)) return 1; |
| 63 | + if (!TEST(s, strrchr(b, 'b'), b + 5)) return 1; |
| 64 | + if (!TEST(i, strspn(b, "abcd"), 10)) return 1; |
| 65 | + if (!TEST(i, strcspn(b, "0123"), 10)) return 1; |
| 66 | + if (!TEST(s, strpbrk(b, "0123"), b + 10)) return 1; |
| 67 | + |
| 68 | + strcpy(b, "abc 123; xyz; foo"); |
| 69 | + if (!TEST(s, strtok(b, " "), b)) return 1; |
| 70 | + if (!TEST_S(s, "abc")) return 1; |
| 71 | + if (!TEST(s, strtok(NULL, ";"), b + 4)) return 1; |
| 72 | + if (!TEST_S(s, " 123")) return 1; |
| 73 | + if (!TEST(s, strtok(NULL, " ;"), b + 11)) return 1; |
| 74 | + if (!TEST_S(s, "xyz")) return 1; |
| 75 | + if (!TEST(s, strtok(NULL, " ;"), b + 16)) return 1; |
| 76 | + if (!TEST_S(s, "foo")) return 1; |
| 77 | + |
| 78 | + memset(b, 'x', sizeof b); |
| 79 | + if (!TEST(i, strlcpy(b, "abc", sizeof b - 1), 3)) return 1; |
| 80 | + if (!TEST(i, b[3], 0)) return 1; |
| 81 | + if (!TEST(i, b[4], 'x')) return 1; |
| 82 | + |
| 83 | + memset(b, 'x', sizeof b); |
| 84 | + if (!TEST(i, strlcpy(b, "abc", 2), 3)) return 1; |
| 85 | + if (!TEST(i, b[0], 'a')) return 1; |
| 86 | + if (!TEST(i, b[1], 0)) return 1; |
| 87 | + |
| 88 | + memset(b, 'x', sizeof b); |
| 89 | + if (!TEST(i, strlcpy(b, "abc", 3), 3)) return 1; |
| 90 | + if (!TEST(i, b[2], 0)) return 1; |
| 91 | + |
| 92 | + if (!TEST(i, strlcpy(NULL, "abc", 0), 3)) return 1; |
| 93 | + |
| 94 | + memcpy(b, "abc\0\0\0x\0", 8); |
| 95 | + if (!TEST(i, strlcat(b, "123", sizeof b), 6)) return 1; |
| 96 | + if (!TEST_S(b, "abc123")) return 1; |
| 97 | + |
| 98 | + memcpy(b, "abc\0\0\0x\0", 8); |
| 99 | + if (!TEST(i, strlcat(b, "123", 6), 6)) return 1; |
| 100 | + if (!TEST_S(b, "abc12")) return 1; |
| 101 | + if (!TEST(i, b[6], 'x')) return 1; |
| 102 | + |
| 103 | + memcpy(b, "abc\0\0\0x\0", 8); |
| 104 | + if (!TEST(i, strlcat(b, "123", 4), 6)) return 1; |
| 105 | + if (!TEST_S(b, "abc")) return 1; |
| 106 | + |
| 107 | + memcpy(b, "abc\0\0\0x\0", 8); |
| 108 | + if (!TEST(i, strlcat(b, "123", 3), 6)) return 1; |
| 109 | + if (!TEST_S(b, "abc")) return 1; |
| 110 | + |
| 111 | + return 0; |
| 112 | +} |
0 commit comments