mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-05-23 22:02:27 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Get GNU MPFR and MPC tests to pass

Browse source 
This change fixes more issues with our scanf() function.
This commit is contained in:
Justine Tunney 2023-08-21 12:16:52 -07:00
parent 63a1636e1f
commit 6ef2a471e4
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
37 changed files with 389 additions and 865 deletions
Download patch file Download diff file Expand all files Collapse all files

45
test/libc/fmt/atoi_test.c
View file

@ -306,37 +306,12 @@ TEST(strtoimax, testEndPtr) {
ASSERT_EQ(1, e - p);
}
TEST(strtoi128, testLimits) {
EXPECT_EQ(
((uint128_t)0xffffffffffffffff) << 64 | (uint128_t)0xffffffffffffffff,
strtoi128("-1", NULL, 0));
EXPECT_EQ(
((uint128_t)0x7fffffffffffffff) << 64 | (uint128_t)0xffffffffffffffff,
strtoi128("0x7fffffffffffffffffffffffffffffff", NULL, 0));
}
TEST(strtoi128, testOutsideLimit) {
errno = 0;
EXPECT_EQ(
((uint128_t)0x7fffffffffffffff) << 64 | (uint128_t)0xffffffffffffffff,
strtoi128("0x80000000000000000000000000000000", NULL, 0));
EXPECT_EQ(ERANGE, errno);
errno = 0;
EXPECT_EQ(((uint128_t)0x8000000000000000) << 64 | 0x0000000000000000,
strtoi128("-0x80000000000000000000000000000001", NULL, 0));
EXPECT_EQ(ERANGE, errno);
}
TEST(strtoul, neghex) {
errno = 0;
ASSERT_EQ(-16, (long)strtoul("0xfffffffffffffff0", NULL, 0));
EXPECT_EQ(0, errno);
}
TEST(strtoumax, testZero) {
EXPECT_EQ(UINTMAX_MIN, strtoumax("0", NULL, 0));
EXPECT_EQ(UINT128_MIN, strtou128("0", NULL, 0));
}
TEST(strtoumax, testDecimal) {
EXPECT_EQ(123, strtoumax("123", NULL, 0));
EXPECT_EQ(-123, strtoumax("-123", NULL, 0));
@ -354,18 +329,6 @@ TEST(strtoumax, testBinary) {
EXPECT_EQ(42, strtoumax("0b101010", NULL, 2));
}
TEST(strtou128, test128imum) {
EXPECT_EQ(UINT128_MAX,
strtou128("340282366920938463463374607431768211455", NULL, 0));
EXPECT_EQ(UINT128_MAX,
strtou128("0xffffffffffffffffffffffffffffffff", NULL, 0));
}
TEST(strtou128, testTwosBane) {
EXPECT_EQ(((uint128_t)0x8000000000000000) << 64 | 0x0000000000000000,
strtou128("0x80000000000000000000000000000000", NULL, 0));
}
TEST(wcstol, test) {
EXPECT_EQ(0, wcstol(L"", 0, 10));
EXPECT_EQ(0, wcstol(L"0", 0, 10));
@ -591,12 +554,4 @@ BENCH(atoi, bench) {
__expropriate(wcstoimax(__veil("r", L"100000000"), 0, 10)));
EZBENCH2("wcstoumax 10⁸", donothing,
__expropriate(wcstoimax(__veil("r", L"100000000"), 0, 10)));
EZBENCH2("strtoi128 10⁸", donothing,
__expropriate(strtoi128(__veil("r", "100000000"), 0, 10)));
EZBENCH2("strtou128 10⁸", donothing,
__expropriate(strtoi128(__veil("r", "100000000"), 0, 10)));
EZBENCH2("wcstoi128 10⁸", donothing,
__expropriate(wcstoi128(__veil("r", L"100000000"), 0, 10)));
EZBENCH2("wcstou128 10⁸", donothing,
__expropriate(wcstoi128(__veil("r", L"100000000"), 0, 10)));
}

20
test/libc/fmt/formatint64_test.c
View file

@ -48,26 +48,6 @@ TEST(FormatUint64, test) {
EXPECT_STREQ("9223372036854775808", buf);
}
TEST(int128toarray_radix10, test) {
char buf[41];
EXPECT_EQ(1, int128toarray_radix10(0, buf));
EXPECT_STREQ("0", buf);
EXPECT_EQ(39, int128toarray_radix10(INT128_MAX, buf));
EXPECT_STREQ("170141183460469231731687303715884105727", buf);
EXPECT_EQ(40, int128toarray_radix10(INT128_MIN, buf));
EXPECT_STREQ("-170141183460469231731687303715884105728", buf);
}
TEST(uint128toarray_radix10, test) {
char buf[40];
EXPECT_EQ(1, uint128toarray_radix10(0, buf));
EXPECT_STREQ("0", buf);
EXPECT_EQ(39, uint128toarray_radix10(UINT128_MAX, buf));
EXPECT_STREQ("340282366920938463463374607431768211455", buf);
EXPECT_EQ(39, uint128toarray_radix10(INT128_MIN, buf));
EXPECT_STREQ("170141183460469231731687303715884105728", buf);
}
BENCH(itoa64radix10, bench) {
char b[21];
EZBENCH2("itoa64radix10", donothing, FormatUint64(b, UINT64_MAX));

111
test/libc/fmt/sleb128_test.c
View file

@ -1,111 +0,0 @@
/*-*- 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 2021 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/fmt/fmt.h"
#include "libc/fmt/leb128.h"
#include "libc/limits.h"
#include "libc/testlib/ezbench.h"
#include "libc/testlib/testlib.h"
char p[19];
TEST(sleb128, testZero) {
EXPECT_EQ(1, sleb128(p, 0) - p);
EXPECT_EQ(0, p[0]);
}
TEST(sleb128, testOne) {
EXPECT_EQ(1, sleb128(p, 1) - p);
EXPECT_EQ(1, p[0]);
}
TEST(sleb128, test255) {
EXPECT_EQ(2, sleb128(p, 255) - p);
EXPECT_EQ(255, p[0] & 255);
EXPECT_EQ(1, p[1]);
}
TEST(sleb128, testNeg1) {
EXPECT_EQ(1, sleb128(p, -1) - p);
EXPECT_EQ(127, p[0]);
}
TEST(sleb128, testNeg255) {
EXPECT_EQ(2, sleb128(p, -255) - p);
EXPECT_EQ(129, p[0] & 255);
EXPECT_EQ(126, p[1]);
}
TEST(sleb128, testMax) {
EXPECT_EQ(19, sleb128(p, INT128_MAX) - p);
EXPECT_EQ(255, p[0x00] & 255);
EXPECT_EQ(255, p[0x01] & 255);
EXPECT_EQ(255, p[0x02] & 255);
EXPECT_EQ(255, p[0x03] & 255);
EXPECT_EQ(255, p[0x04] & 255);
EXPECT_EQ(255, p[0x05] & 255);
EXPECT_EQ(255, p[0x06] & 255);
EXPECT_EQ(255, p[0x07] & 255);
EXPECT_EQ(255, p[0x08] & 255);
EXPECT_EQ(255, p[0x09] & 255);
EXPECT_EQ(255, p[0x0a] & 255);
EXPECT_EQ(255, p[0x0b] & 255);
EXPECT_EQ(255, p[0x0c] & 255);
EXPECT_EQ(255, p[0x0d] & 255);
EXPECT_EQ(255, p[0x0e] & 255);
EXPECT_EQ(255, p[0x0f] & 255);
EXPECT_EQ(255, p[0x10] & 255);
EXPECT_EQ(255, p[0x11] & 255);
EXPECT_EQ(001, p[0x12] & 255);
}
TEST(sleb128, testMin) {
EXPECT_EQ(19, sleb128(p, INT128_MIN) - p);
EXPECT_EQ(128, p[0x00] & 255);
EXPECT_EQ(128, p[0x01] & 255);
EXPECT_EQ(128, p[0x02] & 255);
EXPECT_EQ(128, p[0x03] & 255);
EXPECT_EQ(128, p[0x04] & 255);
EXPECT_EQ(128, p[0x05] & 255);
EXPECT_EQ(128, p[0x06] & 255);
EXPECT_EQ(128, p[0x07] & 255);
EXPECT_EQ(128, p[0x08] & 255);
EXPECT_EQ(128, p[0x09] & 255);
EXPECT_EQ(128, p[0x0a] & 255);
EXPECT_EQ(128, p[0x0b] & 255);
EXPECT_EQ(128, p[0x0c] & 255);
EXPECT_EQ(128, p[0x0d] & 255);
EXPECT_EQ(128, p[0x0e] & 255);
EXPECT_EQ(128, p[0x0f] & 255);
EXPECT_EQ(128, p[0x10] & 255);
EXPECT_EQ(128, p[0x11] & 255);
EXPECT_EQ(126, p[0x12] & 255);
}
BENCH(sleb128, bench) {
EZBENCH2("uleb64 INT64_MAX", donothing, uleb64(p, INT64_MAX));
EZBENCH2("zleb64 INT64_MAX", donothing, zleb64(p, INT64_MAX));
EZBENCH2("sleb64 INT64_MAX", donothing, sleb64(p, INT64_MAX));
EZBENCH2("uleb128 INT64_MAX", donothing, uleb128(p, INT64_MAX));
EZBENCH2("zleb128 INT64_MAX", donothing, zleb128(p, INT64_MAX));
EZBENCH2("sleb128 INT64_MAX", donothing, sleb128(p, INT64_MAX));
EZBENCH2("zleb64 INT64_MIN", donothing, zleb64(p, INT64_MIN));
EZBENCH2("sleb64 INT64_MIN", donothing, sleb64(p, INT64_MIN));
EZBENCH2("zleb128 INT64_MIN", donothing, zleb128(p, INT64_MIN));
EZBENCH2("sleb128 INT64_MIN", donothing, sleb128(p, INT64_MIN));
}

70
test/libc/fmt/uleb128_test.c
View file

@ -1,70 +0,0 @@
/*-*- 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 2021 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/fmt/leb128.h"
#include "libc/limits.h"
#include "libc/stdio/stdio.h"
#include "libc/testlib/testlib.h"
char p[19];
TEST(uleb128, testZero) {
EXPECT_EQ(1, uleb128(p, 0) - p);
EXPECT_EQ(0, p[0]);
}
TEST(uleb128, testOne) {
EXPECT_EQ(1, uleb128(p, 1) - p);
EXPECT_EQ(1, p[0]);
}
TEST(uleb128, test255) {
EXPECT_EQ(2, uleb128(p, 255) - p);
EXPECT_EQ(255, p[0] & 255);
EXPECT_EQ(1, p[1]);
}
TEST(uleb128, testFFFF) {
EXPECT_EQ(3, uleb128(p, 0xFFFF) - p);
EXPECT_EQ(255, p[0] & 255);
EXPECT_EQ(255, p[1] & 255);
EXPECT_EQ(3, p[2] & 255);
}
TEST(uleb128, testMax) {
EXPECT_EQ(19, uleb128(p, UINT128_MAX) - p);
EXPECT_EQ(255, p[0x00] & 255);
EXPECT_EQ(255, p[0x01] & 255);
EXPECT_EQ(255, p[0x02] & 255);
EXPECT_EQ(255, p[0x03] & 255);
EXPECT_EQ(255, p[0x04] & 255);
EXPECT_EQ(255, p[0x05] & 255);
EXPECT_EQ(255, p[0x06] & 255);
EXPECT_EQ(255, p[0x07] & 255);
EXPECT_EQ(255, p[0x08] & 255);
EXPECT_EQ(255, p[0x09] & 255);
EXPECT_EQ(255, p[0x0a] & 255);
EXPECT_EQ(255, p[0x0b] & 255);
EXPECT_EQ(255, p[0x0c] & 255);
EXPECT_EQ(255, p[0x0d] & 255);
EXPECT_EQ(255, p[0x0e] & 255);
EXPECT_EQ(255, p[0x0f] & 255);
EXPECT_EQ(255, p[0x10] & 255);
EXPECT_EQ(255, p[0x11] & 255);
EXPECT_EQ(003, p[0x12] & 255);
}

7
test/libc/stdio/fprintf_test.c
View file

@ -17,8 +17,10 @@
│ PERFORMANCE OF THIS SOFTWARE. │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/dce.h"
#include "libc/mem/gc.internal.h"
#include "libc/stdio/stdio.h"
#include "libc/testlib/testlib.h"
#include "libc/x/xasprintf.h"
TEST(fprintf, testWriteError) {
// Only Linux, NetBSD and FreeBSD are known to have /dev/full
@ -32,3 +34,8 @@ TEST(fprintf, testWriteError) {
ASSERT_EQ(fclose(fp), 0);
}
TEST(fun, test) {
ASSERT_STREQ("-0x1.4p+0", gc(xasprintf("%a", -1.25)));
ASSERT_STREQ("0x1p-17", gc(xasprintf("%a", 7.62939453125e-6)));
}

52
test/libc/stdio/sscanf_test.c
View file

@ -284,3 +284,55 @@ TEST(sscanf, eofConditions) {
EXPECT_EQ(-1, sscanf("123", "%*d%n", &x));
EXPECT_EQ(666, x);
}
TEST(sscanf, decimal) {
int x = 666;
int y = 666;
EXPECT_EQ(1, sscanf("019", "%d%d", &x, &y));
EXPECT_EQ(19, x);
EXPECT_EQ(666, y);
}
TEST(sscanf, octal) {
int x = 666;
int y = 666;
EXPECT_EQ(2, sscanf("019", "%o%d", &x, &y));
EXPECT_EQ(1, x);
EXPECT_EQ(9, y);
}
TEST(sscanf, flexdecimal_octal) {
int x = 666;
int y = 666;
EXPECT_EQ(2, sscanf("019", "%i%d", &x, &y));
EXPECT_EQ(1, x);
EXPECT_EQ(9, y);
}
TEST(sscanf, flexdecimal_decimal) {
int x = 666;
int y = 666;
EXPECT_EQ(1, sscanf("109a", "%i%d", &x, &y));
EXPECT_EQ(109, x);
EXPECT_EQ(666, y);
}
TEST(sscanf, flexdecimal_hex) {
int x = 666;
int y = 666;
EXPECT_EQ(1, sscanf("0x19a", "%i%d", &x, &y));
EXPECT_EQ(0x19a, x);
EXPECT_EQ(666, y);
}
TEST(sscanf, luplus) {
long x = 666;
EXPECT_EQ(1, sscanf("+123", "%lu", &x));
EXPECT_EQ(123, x);
}
TEST(sscanf, lupluser) {
long x = 666;
EXPECT_EQ(1, sscanf("+123", "%li", &x));
EXPECT_EQ(123, x);
}