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

Make fixes and improvements

Browse source 
- Fix handling of precision in hex float formatting
- Enhance the cocmd interpreter for system() and popen()
- Manually ran the Lua unit tests, which are now passing
- Let stdio i/o operations happen when file is in error state
- We're now saving and restoring xmm in ftrace out of paranoia
This commit is contained in:
Justine Tunney 2023-07-09 05:11:25 -07:00
parent 95fbdb4f76
commit 41396ff48a
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
43 changed files with 495 additions and 261 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test/libc/runtime/ftrace_test.c
View file

@ -27,14 +27,24 @@
char testlib_enable_tmp_setup_teardown;
TEST(ftrace, test) {
if (!IsOptimized()) return; // TODO(jart): fix me
if (1) {
// TODO(jart)
return;
}
const char *ftraceasm;
testlib_extract("/zip/ftraceasm.txt", "ftraceasm.txt", 0755);
ftraceasm = _gc(xslurp("ftraceasm.txt", 0));
#ifdef __x86_64__
if (strstr(ftraceasm, "%xmm") || strstr(ftraceasm, "%ymm")) {
if (strstr(ftraceasm, "%xmm") || //
strstr(ftraceasm, "%ymm") || //
strstr(ftraceasm, "%zmm")) {
#elif defined(__aarch64__)
if (strstr(ftraceasm, " d0,") || strstr(ftraceasm, " v0.")) {
if (strstr(ftraceasm, "\td0,") || //
strstr(ftraceasm, "\tv0.") || //
strstr(ftraceasm, "\tq0.") || //
strstr(ftraceasm, "\td0,") || //
strstr(ftraceasm, "\tv0,") || //
strstr(ftraceasm, "\tq0,")) {
#else
if (0) {
#endif

13
test/libc/stdio/dtoa_test.c
View file

@ -133,7 +133,14 @@ static const struct {
{"1.23000000000000000002e-320", "%.21Lg",
DUBBLE(3bd8, 9b98, c371, 844c, 3f1a)},
{"0xap-3", "%.La", DUBBLE(3fff, 9d70, a3d7, a3d, 70a4)},
{"0x9.d70a3d70a3d70a4p-3", "%.20La", DUBBLE(3fff, 9d70, a3d7, a3d, 70a4)},
// cosmo prints 0x9.d70a3d70a3d70a400000p-3
// glibc prints 0x9.d70a3d70a3d70a400000p-3
// openbsd prints 0x9.d70a3d70a3d70a400000p-3
// apple prints 0x9.d70a3d70a3d70a400000p-3
// musl prints 0x1.3ae147ae147ae1480000p+0
// freebsd prints 0x1.3ae147ae147ae1480000p+0
{"0x9.d70a3d70a3d70a400000p-3", "%.20La",
DUBBLE(3fff, 9d70, a3d7, 0a3d, 70a4)},
{"0x9.b18ab5df7180b6cp+88", "%La", DUBBLE(405a, 9b18, ab5d, f718, b6c)},
{"0xa.fc6a015291b4024p+87", "%La", DUBBLE(4059, afc6, a015, 291b, 4024)},
};
@ -151,8 +158,8 @@ TEST(printf, longdouble) {
"TEST FAILED\n"
"\t{%`'s, %`'s, DUBBLE(%x, %x, %x, %x, %x)}\n"
"\t→%`'s\n",
Vx[i].s, Vx[i].f, Vx[i].u.i[0], Vx[i].u.i[1], Vx[i].u.i[2],
Vx[i].u.i[3], Vx[i].u.i[4], buf);
Vx[i].s, Vx[i].f, Vx[i].u.i[4], Vx[i].u.i[3], Vx[i].u.i[2],
Vx[i].u.i[1], Vx[i].u.i[0], buf);
testlib_incrementfailed();
}
}

3
test/libc/stdio/fmt_test.c
View file

@ -308,6 +308,9 @@ TEST(fmt, e) {
}
TEST(fmt, a) {
EXPECT_STREQ("0x0p+0", _gc(xasprintf("%a", 0.)));
EXPECT_STREQ("0x0p+0", _gc(xasprintf("%.a", 0.)));
EXPECT_STREQ("0x0.000p+0", _gc(xasprintf("%.3a", 0.)));
EXPECT_STREQ("0x1.921fb54442d18p+1",
_gc(xasprintf("%a", 0x1.921fb54442d1846ap+1)));
EXPECT_STREQ("0X1.921FB54442D18P+1",

4
test/libc/stdio/fread_test.c
View file

@ -31,10 +31,10 @@ TEST(fread, eofIsSticky) {
ASSERT_TRUE(feof(fi));
ASSERT_EQ(8, fwrite(b, 1, 8, fo));
ASSERT_EQ(0, fflush(fo));
ASSERT_EQ(0, fread(b, 1, 8, fi));
ASSERT_EQ(4, fread(b, 1, 4, fi));
ASSERT_TRUE(feof(fi));
clearerr(fi);
ASSERT_EQ(8, fread(b, 1, 10, fi));
ASSERT_EQ(4, fread(b, 1, 10, fi));
ASSERT_TRUE(feof(fi));
ASSERT_EQ(0, fseek(fi, 0, SEEK_SET));
ASSERT_FALSE(feof(fi));

26
test/libc/stdio/system_test.c
View file

@ -19,6 +19,7 @@
#include "libc/calls/calls.h"
#include "libc/dce.h"
#include "libc/mem/gc.h"
#include "libc/mem/gc.internal.h"
#include "libc/paths.h"
#include "libc/runtime/runtime.h"
#include "libc/stdio/stdio.h"
@ -29,6 +30,7 @@
#include "libc/x/x.h"
#ifdef __x86_64__
STATIC_YOINK("_tr");
STATIC_YOINK("glob");
char testlib_enable_tmp_setup_teardown;
@ -219,8 +221,28 @@ TEST(system, allowsLoneCloseCurlyBrace) {
TEST(system, glob) {
testlib_extract("/zip/echo.com", "echo.com", 0755);
ASSERT_EQ(0, WEXITSTATUS(system("./ec*.com aaa")));
ASSERT_EQ(0, WEXITSTATUS(system("./ec?o.com aaa")));
ASSERT_EQ(0, system("./ec*.com aaa"));
ASSERT_EQ(0, system("./ec?o.com aaa"));
}
TEST(system, env) {
ASSERT_EQ(0, system("env - a=b c=d >res"));
ASSERT_STREQ("a=b\nc=d\n", gc(xslurp("res", 0)));
ASSERT_EQ(0, system("env -i -0 a=b c=d >res"));
ASSERT_STREQN("a=b\0c=d\0", gc(xslurp("res", 0)), 8);
ASSERT_EQ(0, system("env -i0 a=b c=d >res"));
ASSERT_STREQN("a=b\0c=d\0", gc(xslurp("res", 0)), 8);
ASSERT_EQ(0, system("env - a=b c=d -u a z=g >res"));
ASSERT_STREQ("c=d\nz=g\n", gc(xslurp("res", 0)));
ASSERT_EQ(0, system("env - a=b c=d -ua z=g >res"));
ASSERT_STREQ("c=d\nz=g\n", gc(xslurp("res", 0)));
ASSERT_EQ(0, system("env - dope='show' >res"));
ASSERT_STREQ("dope=show\n", gc(xslurp("res", 0)));
}
TEST(system, tr) {
ASSERT_EQ(0, system("echo hello | tr a-z A-Z >res"));
ASSERT_STREQ("HELLO\n", gc(xslurp("res", 0)));
}
#endif /* __x86_64__ */

1
test/libc/stdio/test.mk
View file

@ -42,6 +42,7 @@ TEST_LIBC_STDIO_DIRECTDEPS = \
THIRD_PARTY_GDTOA \
THIRD_PARTY_MBEDTLS \
THIRD_PARTY_MUSL \
THIRD_PARTY_TR \
THIRD_PARTY_ZLIB \
THIRD_PARTY_ZLIB_GZ