mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-01 03:53:33 +00:00
183 lines
6.6 KiB
C
183 lines
6.6 KiB
C
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
|
||
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│
|
||
╞══════════════════════════════════════════════════════════════════════════════╡
|
||
│ Copyright 2020 Justine Alexandra Roberts Tunney │
|
||
│ │
|
||
│ Permission to use, copy, modify, and/or distribute this software for │
|
||
│ any purpose with or without fee is hereby granted, provided that the │
|
||
│ above copyright notice and this permission notice appear in all copies. │
|
||
│ │
|
||
│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL │
|
||
│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED │
|
||
│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE │
|
||
│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL │
|
||
│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR │
|
||
│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER │
|
||
│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR │
|
||
│ PERFORMANCE OF THIS SOFTWARE. │
|
||
╚─────────────────────────────────────────────────────────────────────────────*/
|
||
#include "libc/bits/bits.h"
|
||
#include "libc/macros.internal.h"
|
||
#include "libc/mem/mem.h"
|
||
#include "libc/nexgen32e/bsr.h"
|
||
#include "libc/nexgen32e/tinystrlen.internal.h"
|
||
#include "libc/rand/rand.h"
|
||
#include "libc/stdio/stdio.h"
|
||
#include "libc/str/str.h"
|
||
#include "libc/testlib/ezbench.h"
|
||
#include "libc/testlib/testlib.h"
|
||
|
||
char u8[] = "utf-8 ☻";
|
||
char16_t u16[] = u"utf16 ☻";
|
||
wchar_t u32[] = L"utf32 ☻";
|
||
|
||
TEST(strlen, usageExample_c11) {
|
||
_Alignas(16) char ugh[] = "eeeeeeeeeeeeeee\017";
|
||
EXPECT_EQ(1, strlen_pure(ugh + 15));
|
||
EXPECT_EQ(6 + 3, strlen(u8));
|
||
EXPECT_EQ(7, strlen16(u16));
|
||
EXPECT_EQ(7, wcslen(u32));
|
||
}
|
||
|
||
TEST(strlen, usageExample_c99) {
|
||
EXPECT_EQ(6 + 3, strlen(u8));
|
||
EXPECT_EQ(7, strlen16(u16));
|
||
EXPECT_EQ(7, wcslen(u32));
|
||
}
|
||
|
||
TEST(strlen, whatMemoryLooksLike) {
|
||
EXPECT_BINEQ(u"utf-8 Γÿ╗ ", u8); /* ← thompson-pike encoded */
|
||
EXPECT_BINEQ(u"u t f 1 6 ;& ", u16);
|
||
EXPECT_BINEQ(u"u t f 3 2 ;& ", u32);
|
||
}
|
||
|
||
TEST(strlen, test_const) {
|
||
const char buf[] = "hellothere";
|
||
ASSERT_EQ(0, strlen(""));
|
||
ASSERT_EQ(0, strnlen("e", 0));
|
||
ASSERT_EQ(10, strlen(buf));
|
||
}
|
||
|
||
TEST(strlen, test_nonconst) {
|
||
char buf[256];
|
||
unsigned i;
|
||
for (i = 0; i < 255; ++i) buf[i] = i + 1;
|
||
buf[i] = '\0';
|
||
ASSERT_EQ(255, strlen(buf));
|
||
}
|
||
|
||
TEST(strnlen, testconst) {
|
||
ASSERT_EQ(0, strnlen_s(NULL, 3));
|
||
ASSERT_EQ(0, strnlen("", 3));
|
||
ASSERT_EQ(0, strnlen("a", 0));
|
||
ASSERT_EQ(3, strnlen("123", 3));
|
||
ASSERT_EQ(2, strnlen("123", 2));
|
||
ASSERT_EQ(3, strnlen("123", 4));
|
||
}
|
||
|
||
TEST(strlen, testnonconst) {
|
||
/* this test case is a great example of why we need:
|
||
"m"(*(char(*)[0x7fffffff])StR)
|
||
rather than:
|
||
"m"(*StR) */
|
||
char buf[256];
|
||
unsigned i;
|
||
for (i = 0; i < 250; ++i) buf[i] = i + 1;
|
||
buf[i] = '\0';
|
||
ASSERT_EQ(250, strlen(buf));
|
||
}
|
||
|
||
TEST(strnlen_s, null_ReturnsZero) {
|
||
ASSERT_EQ(0, strnlen_s(NULL, 3));
|
||
}
|
||
|
||
TEST(strnlen, nulNotFound_ReturnsSize) {
|
||
int sizes[] = {1, 2, 7, 8, 15, 16, 31, 32, 33};
|
||
for (unsigned i = 0; i < ARRAYLEN(sizes); ++i) {
|
||
char *buf = malloc(sizes[i]);
|
||
memset(buf, ' ', sizes[i]);
|
||
ASSERT_EQ(sizes[i], strnlen(buf, sizes[i]), "%d", sizes[i]);
|
||
free(buf);
|
||
}
|
||
}
|
||
|
||
TEST(strnlen_s, nulNotFound_ReturnsZero) {
|
||
char buf[3] = {1, 2, 3};
|
||
ASSERT_EQ(0, strnlen_s(buf, 3));
|
||
}
|
||
|
||
TEST(tinystrlen, test) {
|
||
ASSERT_EQ(0, tinystrlen(""));
|
||
ASSERT_EQ(1, tinystrlen("a"));
|
||
ASSERT_EQ(3, tinystrlen("123"));
|
||
}
|
||
|
||
TEST(tinywcslen, test) {
|
||
ASSERT_EQ(0, tinywcslen(L""));
|
||
ASSERT_EQ(1, tinywcslen(L"a"));
|
||
ASSERT_EQ(3, tinywcslen(L"123"));
|
||
}
|
||
|
||
TEST(tinywcsnlen, test) {
|
||
EXPECT_EQ(0, tinywcsnlen(L"", 3));
|
||
EXPECT_EQ(0, tinywcsnlen(L"a", 0));
|
||
EXPECT_EQ(3, tinywcsnlen(L"123", 3));
|
||
EXPECT_EQ(2, tinywcsnlen(L"123", 2));
|
||
EXPECT_EQ(3, tinywcsnlen(L"123", 4));
|
||
}
|
||
|
||
TEST(tinystrlen16, test) {
|
||
ASSERT_EQ(0, tinystrlen16(u""));
|
||
ASSERT_EQ(1, tinystrlen16(u"a"));
|
||
ASSERT_EQ(3, tinystrlen16(u"123"));
|
||
}
|
||
|
||
TEST(tinystrnlen16, test) {
|
||
EXPECT_EQ(0, tinystrnlen16(u"", 3));
|
||
EXPECT_EQ(0, tinystrnlen16(u"a", 0));
|
||
EXPECT_EQ(3, tinystrnlen16(u"123", 3));
|
||
EXPECT_EQ(2, tinystrnlen16(u"123", 2));
|
||
EXPECT_EQ(3, tinystrnlen16(u"123", 4));
|
||
}
|
||
|
||
TEST(strlen, fuzz) {
|
||
char *b;
|
||
size_t n, n1, n2;
|
||
for (n = 2; n < 1026; ++n) {
|
||
b = rngset(calloc(1, n), n - 1, rand64, -1);
|
||
n1 = strlen(b);
|
||
n2 = strlen_pure(b);
|
||
ASSERT_EQ(n1, n2, "%#.*s", n, b);
|
||
n1 = strlen(b + 1);
|
||
n2 = strlen_pure(b + 1);
|
||
ASSERT_EQ(n1, n2);
|
||
free(b);
|
||
}
|
||
}
|
||
|
||
BENCH(strlen, bench) {
|
||
extern size_t strlen_(const char *) asm("strlen");
|
||
extern size_t strlen_pure_(const char *) asm("strlen_pure");
|
||
static char b[2048];
|
||
memset(b, -1, sizeof(b) - 1);
|
||
EZBENCH2("strlen 1", donothing, strlen_(""));
|
||
EZBENCH2("strlen_pure 1", donothing, strlen_pure_(""));
|
||
EZBENCH2("strlen 2", donothing, strlen_("1"));
|
||
EZBENCH2("strlen_pure 2", donothing, strlen_pure_("1"));
|
||
EZBENCH2("strlen 7", donothing, strlen_("123456"));
|
||
EZBENCH2("strlen_pure 7", donothing, strlen_pure_("123456"));
|
||
EZBENCH2("strlen 8", donothing, strlen_("1234567"));
|
||
EZBENCH2("strlen_pure 8", donothing, strlen_pure_("1234567"));
|
||
EZBENCH2("strlen 9", donothing, strlen_("12345678"));
|
||
EZBENCH2("strlen_pure 9", donothing, strlen_pure_("12345678"));
|
||
EZBENCH2("strlen 11", donothing, strlen_("12345678aa"));
|
||
EZBENCH2("strlen_pure 11", donothing, strlen_pure_("12345678aa"));
|
||
EZBENCH2("strlen 13", donothing, strlen_("12345678aabb"));
|
||
EZBENCH2("strlen_pure 13", donothing, strlen_pure_("12345678aabb"));
|
||
EZBENCH2("strlen 16", donothing, strlen_("123456781234567"));
|
||
EZBENCH2("strlen_pure 16", donothing, strlen_pure_("123456781234567"));
|
||
EZBENCH2("strlen 17", donothing, strlen_("123456781234567e"));
|
||
EZBENCH2("strlen_pure 17", donothing, strlen_pure_("123456781234567e"));
|
||
EZBENCH2("strlen 1023", donothing, strlen_(b));
|
||
EZBENCH2("strlen_pure 1023", donothing, strlen_pure_(b));
|
||
}
|