berkus
/
essence-os
mirror of https://gitlab.com/nakst/essence
1
0
Fork 0
Code Releases Activity

crt function tests

This commit is contained in:
nakst 2022-01-03 21:48:17 +00:00
parent 40c5293d4b
commit e0813a8aed
8 changed files with 309 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

289
desktop/api_tests.cpp
View File

@ -84,10 +84,293 @@ bool BasicFileOperations() {
//////////////////////////////////////////////////////////////
bool AreFloatsRoughlyEqual(float a, float b) { return a - b < 0.0001f && a - b > -0.0001f; }
bool AreDoublesRoughlyEqual(double a, double b) { return a - b < 0.00000000001 && a - b > -0.00000000001; }
bool AreFloatsRoughlyEqual2(float a, float b) { return a - b < 0.01f && a - b > -0.01f; }
bool CRTMathFunctions() {
for (int i = 0; i <= 5; i++) if (EsCRTabs(i) != i) return false;
for (int i = -5; i <= 0; i++) if (EsCRTabs(i) != -i) return false;
for (float i = -1.0f; i <= 1.0f; i += 0.01f) if (!AreFloatsRoughlyEqual(i, EsCRTcosf(EsCRTacosf(i)))) return false;
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTcosf(i), EsCRTcosf(-i))) return false;
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTcosf(i), EsCRTcosf(i + 2 * ES_PI))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTcos(i), EsCRTcos(-i))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTcos(i), EsCRTcos(i + 2 * ES_PI))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreFloatsRoughlyEqual(EsCRTcos(i), EsCRTcosf(i))) return false;
if (!AreFloatsRoughlyEqual(EsCRTacosf(-1.0f), ES_PI)) return false;
if (!AreFloatsRoughlyEqual(EsCRTacosf(0.0f), ES_PI / 2.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTacosf(1.0f), 0.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTcosf(0.0f), 1.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTcosf(ES_PI / 2.0f), 0.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTcosf(ES_PI), -1.0f)) return false;
if (!AreDoublesRoughlyEqual(EsCRTcos(0.0), 1.0)) return false;
if (!AreDoublesRoughlyEqual(EsCRTcos(ES_PI / 2.0), 0.0)) return false;
if (!AreDoublesRoughlyEqual(EsCRTcos(ES_PI), -1.0)) return false;
for (float i = -1.0f; i <= 1.0f; i += 0.01f) if (!AreFloatsRoughlyEqual(i, EsCRTsinf(EsCRTasinf(i)))) return false;
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTsinf(i), -EsCRTsinf(-i))) return false;
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTsinf(i), EsCRTsinf(i + 2 * ES_PI))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTsin(i), -EsCRTsin(-i))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTsin(i), EsCRTsin(i + 2 * ES_PI))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreFloatsRoughlyEqual(EsCRTsin(i), EsCRTsinf(i))) return false;
if (!AreFloatsRoughlyEqual(EsCRTasinf(-1.0f), ES_PI / -2.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTasinf(0.0f), 0.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTasinf(1.0f), ES_PI / 2.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTsinf(0.0f), 0.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTsinf(ES_PI / 2.0f), 1.0f)) return false;
if (!AreFloatsRoughlyEqual(EsCRTsinf(ES_PI), 0.0f)) return false;
if (!AreDoublesRoughlyEqual(EsCRTsin(0.0), 0.0)) return false;
if (!AreDoublesRoughlyEqual(EsCRTsin(ES_PI / 2.0), 1.0)) return false;
if (!AreDoublesRoughlyEqual(EsCRTsin(ES_PI), 0.0)) return false;
for (float i = 0.0f; i <= 5.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTsqrtf(i) * EsCRTsqrtf(i), i)) return false;
for (float i = -5.0f; i <= 5.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTcbrtf(i) * EsCRTcbrtf(i) * EsCRTcbrtf(i), i)) return false;
for (double i = 0.0; i <= 5.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTsqrt(i) * EsCRTsqrt(i), i)) return false;
for (double i = -5.0; i <= 5.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTcbrt(i) * EsCRTcbrt(i) * EsCRTcbrt(i), i)) return false;
for (float i = -5.0f; i <= 0.0f; i += 0.01f) if (-i != EsCRTfabsf(i)) return false;
for (float i = 0.0f; i <= 5.0f; i += 0.01f) if (i != EsCRTfabsf(i)) return false;
for (double i = -5.0; i <= 0.0; i += 0.01) if (-i != EsCRTfabs(i)) return false;
for (double i = 0.0; i <= 5.0; i += 0.01) if (i != EsCRTfabs(i)) return false;
// This tests avoid angles near the y axis with atan2, because y/x blows up there. TODO Is this acceptable behaviour?
for (float i = -ES_PI / 4.0f; i < ES_PI / 4.0f; i += 0.01f) if (!AreFloatsRoughlyEqual(i, EsCRTatan2f(EsCRTsinf(i), EsCRTcosf(i)))) return false;
for (float i = -ES_PI / 4.0f; i < ES_PI / 4.0f; i += 0.01f) if (!AreFloatsRoughlyEqual(i, EsCRTatanf(EsCRTsinf(i) / EsCRTcosf(i)))) return false;
for (float i = -ES_PI * 7.0f / 8.0f; i < -ES_PI * 5.0f / 8.0f; i += 0.01f) if (!AreFloatsRoughlyEqual(i, EsCRTatan2f(EsCRTsinf(i), EsCRTcosf(i)))) return false;
for (float i = ES_PI * 5.0f / 8.0f; i < ES_PI * 7.0f / 8.0f; i += 0.01f) if (!AreFloatsRoughlyEqual(i, EsCRTatan2f(EsCRTsinf(i), EsCRTcosf(i)))) return false;
for (float i = -2.25f * ES_PI; i < -1.75f * ES_PI; i += 0.01f) if (!AreFloatsRoughlyEqual(i + 2 * ES_PI, EsCRTatan2f(EsCRTsinf(i), EsCRTcosf(i)))) return false;
for (float i = 1.75f * ES_PI; i < 2.25f * ES_PI; i += 0.01f) if (!AreFloatsRoughlyEqual(i - 2 * ES_PI, EsCRTatan2f(EsCRTsinf(i), EsCRTcosf(i)))) return false;
for (float i = -2.25f * ES_PI; i < -1.75f * ES_PI; i += 0.01f) if (!AreFloatsRoughlyEqual(i + 2 * ES_PI, EsCRTatanf(EsCRTsinf(i) / EsCRTcosf(i)))) return false;
for (float i = 1.75f * ES_PI; i < 2.25f * ES_PI; i += 0.01f) if (!AreFloatsRoughlyEqual(i - 2 * ES_PI, EsCRTatanf(EsCRTsinf(i) / EsCRTcosf(i)))) return false;
for (double i = -ES_PI / 4.0; i < ES_PI / 4.0; i += 0.01) if (!AreDoublesRoughlyEqual(i, EsCRTatan2(EsCRTsin(i), EsCRTcos(i)))) return false;
for (double i = -ES_PI * 7.0 / 8.0; i < -ES_PI * 5.0 / 8.0; i += 0.01) if (!AreDoublesRoughlyEqual(i, EsCRTatan2(EsCRTsin(i), EsCRTcos(i)))) return false;
for (double i = ES_PI * 5.0 / 8.0; i < ES_PI * 7.0 / 8.0; i += 0.01) if (!AreDoublesRoughlyEqual(i, EsCRTatan2(EsCRTsin(i), EsCRTcos(i)))) return false;
for (double i = -2.25 * ES_PI; i < -1.75 * ES_PI; i += 0.01) if (!AreDoublesRoughlyEqual(i + 2 * ES_PI, EsCRTatan2(EsCRTsin(i), EsCRTcos(i)))) return false;
for (double i = 1.75 * ES_PI; i < 2.25 * ES_PI; i += 0.01) if (!AreDoublesRoughlyEqual(i - 2 * ES_PI, EsCRTatan2(EsCRTsin(i), EsCRTcos(i)))) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTceilf(i) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTfloorf(i) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTceilf(i - 0.000001f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTfloorf(i + 0.000001f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTceilf(i - 0.1f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTfloorf(i + 0.1f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTceilf(i - 0.5f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTfloorf(i + 0.5f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTceilf(i - 0.9f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTfloorf(i + 0.9f) != i) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTceilf(i - 0.1f) != EsCRTceilf(i - 0.9f)) return false;
for (float i = -1000.0f; i <= 1000.0f; i += 1.0f) if (EsCRTfloorf(i + 0.1f) != EsCRTfloorf(i + 0.9f)) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTceil(i) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTfloor(i) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTceil(i - 0.00000000001) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTfloor(i + 0.00000000001) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTceil(i - 0.1) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTfloor(i + 0.1) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTceil(i - 0.5) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTfloor(i + 0.5) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTceil(i - 0.9) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTfloor(i + 0.9) != i) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTceil(i - 0.1) != EsCRTceil(i - 0.9)) return false;
for (double i = -1000.0; i <= 1000.0; i += 1.0) if (EsCRTfloor(i + 0.1) != EsCRTfloor(i + 0.9)) return false;
for (float x = -10.0f; x <= 10.0f; x += 0.1f) for (float y = -10.0f; y <= 10.0f; y += 0.1f) if (!AreFloatsRoughlyEqual(x - (int64_t) (x / y) * y, EsCRTfmodf(x, y))) return false;
for (double x = -10.0; x <= 10.0; x += 0.1) for (double y = -10.0; y <= 10.0; y += 0.1) if (!AreDoublesRoughlyEqual(x - (int64_t) (x / y) * y, EsCRTfmod(x, y))) return false;
if (!EsCRTisnanf(0.0f / 0.0f)) return false;
if (EsCRTisnanf(0.0f / 1.0f)) return false;
if (EsCRTisnanf(1.0f / 0.0f)) return false;
if (EsCRTisnanf(-1.0f / 0.0f)) return false;
// TODO The precision of powf is really bad!! Get it to the point where it can use AreFloatsRoughlyEqual.
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTsqrtf(i), EsCRTpowf(i, 1.0f / 2.0f))) return false;
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTcbrtf(i), EsCRTpowf(i, 1.0f / 3.0f))) return false;
for (float i = 0.0f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual2(i * i, EsCRTpowf(i, 2.0f))) return false;
for (float i = 0.1f; i <= 10.0f; i += 0.1f) if (!AreFloatsRoughlyEqual2(1.0f / (i * i), EsCRTpowf(i, -2.0f))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTsqrt(i), EsCRTpow(i, 1.0 / 2.0))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTcbrt(i), EsCRTpow(i, 1.0 / 3.0))) return false;
for (double i = 0.0; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(i * i, EsCRTpow(i, 2.0))) return false;
for (double i = 0.1; i <= 10.0; i += 0.1) if (!AreDoublesRoughlyEqual(1.0 / (i * i), EsCRTpow(i, -2.0))) return false;
if (!AreFloatsRoughlyEqual(EsCRTexpf(1.0f), 2.718281828459f)) return false;
for (float i = -10.0f; i <= 4.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTexpf(i), EsCRTpowf(2.718281828459f, i))) return false;
if (!AreDoublesRoughlyEqual(EsCRTexp(1.0), 2.718281828459)) return false;
for (double i = -10.0; i <= 4.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTexp(i), EsCRTpow(2.718281828459, i))) return false;
if (!AreFloatsRoughlyEqual(EsCRTexp2f(1.0f), 2.0f)) return false;
for (float i = -10.0f; i <= 4.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTexp2f(i), EsCRTpowf(2.0f, i))) return false;
if (!AreDoublesRoughlyEqual(EsCRTexp2(1.0), 2.0)) return false;
for (double i = -10.0; i <= 4.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTexp2(i), EsCRTpow(2.0, i))) return false;
if (!AreFloatsRoughlyEqual(EsCRTlog2f(2.0f), 1.0f)) return false;
for (float i = -10.0f; i <= 4.0f; i += 0.1f) if (!AreFloatsRoughlyEqual(EsCRTlog2f(EsCRTexp2f(i)), i)) return false;
if (!AreDoublesRoughlyEqual(EsCRTlog2(2.0), 1.0)) return false;
for (double i = -10.0; i <= 4.0; i += 0.1) if (!AreDoublesRoughlyEqual(EsCRTlog2(EsCRTexp2(i)), i)) return false;
return true;
}
//////////////////////////////////////////////////////////////
bool CRTStringFunctions() {
// TODO strncmp, strncpy, strnlen, atod, atoi, atof, strtod, strtof, strtol, strtoul.
for (int i = 0; i < 256; i++) if (EsCRTisalpha(i) != ((i >= 'a' && i <= 'z') || (i >= 'A' && i <= 'Z'))) return false;
for (int i = 0; i < 256; i++) if (EsCRTisdigit(i) != (i >= '0' && i <= '9')) return false;
for (int i = 0; i < 256; i++) if (EsCRTisupper(i) != (i >= 'A' && i <= 'Z')) return false;
for (int i = 0; i < 256; i++) if (EsCRTisxdigit(i) != ((i >= '0' && i <= '9') || (i >= 'A' && i <= 'F') || (i >= 'a' && i <= 'f'))) return false;
for (int i = 0; i <= 256; i++) if ((EsCRTtolower(i) != i) != (i >= 'A' && i <= 'Z')) return false;
if (0 <= EsCRTstrcmp("a", "ab")) return false;
if (0 >= EsCRTstrcmp("ab", "a")) return false;
if (0 <= EsCRTstrcmp("ab", "ac")) return false;
if (0 <= EsCRTstrcmp("ac", "bc")) return false;
if (0 <= EsCRTstrcmp("", "a")) return false;
if (0 >= EsCRTstrcmp("a", "")) return false;
if (0 >= EsCRTstrcmp("a", "A")) return false;
if (EsCRTstrcmp("", "")) return false;
if (EsCRTstrcmp("a", "a")) return false;
if (EsCRTstrcmp("ab", "ab")) return false;
char x[10];
EsCRTstrcpy(x, "hello");
if (EsCRTstrcmp(x, "hello")) return false;
EsCRTstrcat(x, "!");
if (EsCRTstrcmp(x, "hello!")) return false;
if (EsCRTstrchr(x, '.')) return false;
if (x + 0 != EsCRTstrchr(x, 'h')) return false;
if (x + 1 != EsCRTstrchr(x, 'e')) return false;
if (x + 2 != EsCRTstrchr(x, 'l')) return false;
if (x + 4 != EsCRTstrchr(x, 'o')) return false;
if (x + 6 != EsCRTstrchr(x, 0)) return false;
if (EsCRTstrstr(x, ".")) return false;
if (EsCRTstrstr(x, "le")) return false;
if (EsCRTstrstr(x, "oo")) return false;
if (EsCRTstrstr(x, "ah")) return false;
if (EsCRTstrstr(x, "lle")) return false;
if (x + 0 != EsCRTstrstr(x, "")) return false;
if (x + 0 != EsCRTstrstr(x, "h")) return false;
if (x + 0 != EsCRTstrstr(x, "he")) return false;
if (x + 0 != EsCRTstrstr(x, "hello")) return false;
if (x + 0 != EsCRTstrstr(x, "hello!")) return false;
if (x + 1 != EsCRTstrstr(x, "ell")) return false;
if (x + 1 != EsCRTstrstr(x, "ello!")) return false;
if (x + 3 != EsCRTstrstr(x, "lo")) return false;
if (0 != EsCRTstrlen("")) return false;
if (6 != EsCRTstrlen(x)) return false;
char *copy = EsCRTstrdup(x);
if (EsCRTstrcmp(copy, x)) return false;
EsCRTfree(copy);
return true;
}
//////////////////////////////////////////////////////////////
int CompareU8(const void *_a, const void *_b) {
uint8_t a = *(const uint8_t *) _a, b = *(const uint8_t *) _b;
return a < b ? -1 : a > b;
}
bool CRTOtherFunctions() {
// Note that malloc, free and realloc are assumed to be working if EsHeapAllocate, EsHeapFree and EsHeapReallocate are.
uint8_t x[4] = { 1, 2, 3, 4 };
uint8_t y[4] = { 1, 3, 3, 4 };
uint8_t z[4] = { 6, 7, 8, 9 };
if (0 <= EsCRTmemcmp(x, y, 4)) return false;
if (0 <= EsCRTmemcmp(x, y, 3)) return false;
if (0 <= EsCRTmemcmp(x, y, 2)) return false;
if (0 >= EsCRTmemcmp(y, x, 4)) return false;
if (0 >= EsCRTmemcmp(y, x, 3)) return false;
if (0 >= EsCRTmemcmp(y, x, 2)) return false;
if (EsCRTmemcmp(x, y, 1)) return false;
if (EsCRTmemcmp(x, y, 0)) return false;
if (EsCRTmemcmp(y, x, 1)) return false;
if (EsCRTmemcmp(y, x, 0)) return false;
for (int i = 0; i < 4; i++) if (x + i != EsCRTmemchr(x, i + 1, 4)) return false;
for (int i = 4; i < 8; i++) if (EsCRTmemchr(x, i + 1, 4)) return false;
y[3] = 5;
EsCRTmemcpy(x, y, 2);
if (x[0] != 1 || x[1] != 3 || x[2] != 3 || x[3] != 4) return false;
if (y[0] != 1 || y[1] != 3 || y[2] != 3 || y[3] != 5) return false;
EsCRTmemcpy(x, y, 4);
if (x[0] != 1 || x[1] != 3 || x[2] != 3 || x[3] != 5) return false;
if (y[0] != 1 || y[1] != 3 || y[2] != 3 || y[3] != 5) return false;
EsCRTmemset(x, 0xCC, 4);
for (int i = 0; i < 4; i++) if (x[i] != 0xCC) return false;
if (y[0] != 1 || y[1] != 3 || y[2] != 3 || y[3] != 5) return false;
EsCRTmemset(y, 0x00, 4);
for (int i = 0; i < 4; i++) if (y[i] != 0x00) return false;
for (int i = 0; i < 4; i++) if (x[i] != 0xCC) return false;
if (z[0] != 6 || z[1] != 7 || z[2] != 8 || z[3] != 9) return false;
y[0] = 0, y[1] = 1, y[2] = 2, y[3] = 3;
EsCRTmemmove(y + 1, y + 2, 2);
if (y[0] != 0 || y[1] != 2 || y[2] != 3 || y[3] != 3) return false;
y[0] = 0, y[1] = 1, y[2] = 2, y[3] = 3;
EsCRTmemmove(y + 2, y + 1, 2);
if (y[0] != 0 || y[1] != 1 || y[2] != 1 || y[3] != 2) return false;
for (int i = 0; i < 100000; i++) {
uint8_t *p = (uint8_t *) EsCRTcalloc(i, 1);
uint8_t *q = (uint8_t *) EsCRTmalloc(i);
if (i == 0) { if (p || q) return false; else continue; }
if (p == q) return false;
if (!p || !q) return false;
for (int j = 0; j < i; j++) if (p[j]) return false;
EsCRTfree(p);
EsCRTfree(q);
if (i >= 1000) i += 100;
if (i >= 10000) i += 1000;
}
uint8_t *array = (uint8_t *) EsCRTmalloc(10000);
size_t *count = (size_t *) EsCRTcalloc(256, sizeof(size_t));
EsRandomSeed(15);
array[0] = 100;
count[100]++;
for (int i = 1; i < 10000; i++) { array[i] = (EsRandomU8() & ~1) ?: 2; count[array[i]]++; }
EsCRTqsort(array, 10000, 1, CompareU8);
int p = 0;
for (uintptr_t i = 0; i < 256; i++) for (uintptr_t j = 0; j < count[i]; j++, p++) if (array[p] != i) return false;
if (p != 10000) return false;
uint8_t n = 100;
uint8_t *q = (uint8_t *) EsCRTbsearch(&n, array, 10000, 1, CompareU8);
if (!q || q[0] != 100) return false;
n = 0;
if (EsCRTbsearch(&n, array, 10000, 1, CompareU8)) return false;
n = 255;
if (EsCRTbsearch(&n, array, 10000, 1, CompareU8)) return false;
for (n = 1; n < 255; n += 2) if (EsCRTbsearch(&n, array, 10000, 1, CompareU8)) return false;
EsCRTfree(array);
EsCRTfree(count);
#ifdef ES_BITS_32
if (EsCRTcalloc(0x7FFFFFFF, 0x7FFFFFFF)) return false;
if (EsCRTcalloc(0xFFFFFFFF, 0xFFFFFFFF)) return false;
#endif
#ifdef ES_BITS_64
if (EsCRTcalloc(0x7FFFFFFFFFFFFFFF, 0x7FFFFFFFFFFFFFFF)) return false;
if (EsCRTcalloc(0xFFFFFFFFFFFFFFFF, 0xFFFFFFFFFFFFFFFF)) return false;
#endif
return true;
}
//////////////////////////////////////////////////////////////
#endif
const Test tests[] = {
TEST(BasicFileOperations),
TEST(CRTMathFunctions),
TEST(CRTStringFunctions),
TEST(CRTOtherFunctions),
};
#ifndef API_TESTS_FOR_RUNNER
@ -101,11 +384,12 @@ void RunTests() {
return; // Not in test mode.
} else if (error != ES_SUCCESS) {
EsPrint("Could not read test.dat (error %d).\n", error);
} else if (fileSize != sizeof(uint32_t)) {
} else if (fileSize != sizeof(uint32_t) * 2) {
EsPrint("test.dat is the wrong size (got %d, expected %d).\n", fileSize, sizeof(uint32_t));
} else {
uint32_t index;
uint32_t index, mode;
EsMemoryCopy(&index, fileData, sizeof(uint32_t));
EsMemoryCopy(&mode, (uint8_t *) fileData + sizeof(uint32_t), sizeof(uint32_t));
EsHeapFree(fileData);
if (index >= sizeof(tests) / sizeof(tests[0])) {
@ -114,6 +398,7 @@ void RunTests() {
EsPrint("[APITests-Success]\n");
} else {
EsPrint("[APITests-Failure]\n");
if (~mode & 1) EsSyscall(ES_SYSCALL_DEBUG_COMMAND, 2, 0, 0, 0);
}
}

1
desktop/api_tests.ini
View File

@ -2,6 +2,7 @@
name=API Tests
background_service=1
permission_shutdown=1
permission_manage_processes=1
[build]
source=desktop/api_tests.cpp

2
desktop/os.header
View File

@ -2313,6 +2313,8 @@ function float EsCRTceilf(float x);
function double EsCRTcos(double x);
function float EsCRTcosf(float x);
function double EsCRTexp(double x);
function float EsCRTexpf(float x);
function double EsCRTexp2(double x);
function float EsCRTexp2f(float x);
function double EsCRTfabs(double x);
function float EsCRTfabsf(float x);

2
desktop/prefix.h
View File

@ -444,6 +444,8 @@ extern "C" void *EsBufferWrite(EsBuffer *buffer, const void *source, size_t writ
#define cos EsCRTcos
#define cosf EsCRTcosf
#define exp EsCRTexp
#define expf EsCRTexpf
#define exp2 EsCRTexp2
#define exp2f EsCRTexp2f
#define fabs EsCRTfabs
#define fabsf EsCRTfabsf

27
shared/common.cpp
View File

@ -1799,6 +1799,7 @@ void *EsCRTmemmove(void *dest, const void *src, size_t n) {
}
}
#ifndef KERNEL
char *EsCRTstrdup(const char *string) {
if (!string) return nullptr;
size_t length = EsCRTstrlen(string) + 1;
@ -1807,6 +1808,7 @@ char *EsCRTstrdup(const char *string) {
EsCRTmemcpy(memory, string, length);
return memory;
}
#endif
size_t EsCRTstrlen(const char *s) {
size_t n = 0;
@ -1835,7 +1837,9 @@ void *EsCRTmalloc(size_t size) {
}
void *EsCRTcalloc(size_t num, size_t size) {
void *x = EsHeapAllocate(num * size, true);
size_t c;
if (__builtin_mul_overflow(num, size, &c)) return nullptr;
void *x = EsHeapAllocate(c, true);
if (x) __sync_fetch_and_add(&mallocCount, 1);
return x;
}
@ -1851,27 +1855,6 @@ void *EsCRTrealloc(void *ptr, size_t size) {
else if (!size) return EsCRTfree(ptr), nullptr;
else return EsHeapReallocate(ptr, size, false);
}
#else
void *EsHeapAllocate(size_t size, bool zeroMemory, EsHeap *heap);
void EsHeapFree(void *address, size_t expectedSize, EsHeap *heap);
void *EsHeapReallocate(void *oldAddress, size_t newAllocationSize, bool zeroNewSpace, EsHeap *heap);
void *EsCRTmalloc(size_t size) {
void *x = EsHeapAllocate(size, false, K_FIXED);
return x;
}
void *EsCRTcalloc(size_t num, size_t size) {
return EsHeapAllocate(num * size, true, K_FIXED);
}
void EsCRTfree(void *ptr) {
EsHeapFree(ptr, 0, K_FIXED);
}
void *EsCRTrealloc(void *ptr, size_t size) {
return EsHeapReallocate(ptr, size, false, K_FIXED);
}
#endif
char *EsCRTgetenv(const char *name) {

12
shared/math.cpp
View File

@ -863,11 +863,13 @@ float EsCRTpowf(float x, float y) {
}
double EsCRTcbrt(double x) {
return EsCRTpow(x, 1.0 / 3.0);
if (x >= 0.0) return EsCRTpow(x, 1.0f / 3.0);
else return -EsCRTpow(-x, 1.0f / 3.0);
}
float EsCRTcbrtf(float x) {
return EsCRTpowf(x, 1.0f / 3.0f);
if (x >= 0.0f) return EsCRTpowf(x, 1.0f / 3.0f);
else return -EsCRTpowf(-x, 1.0f / 3.0f);
}
double EsCRTexp(double x) {
@ -879,11 +881,13 @@ float EsCRTexpf(float x) {
}
double EsCRTfmod(double x, double y) {
return x - y * EsCRTfloor(x / y);
double n = x / y;
return x - y * (n > 0.0 ? EsCRTfloor(n) : EsCRTceil(n));
}
float EsCRTfmodf(float x, float y) {
return x - y * EsCRTfloorf(x / y);
float n = x / y;
return x - y * (n > 0.0f ? EsCRTfloorf(n) : EsCRTceilf(n));
}
bool EsCRTisnanf(float x) {

2
util/api_table.ini
View File

@ -107,6 +107,8 @@ EsElementGetMetrics=105
EsRandomAddEntropy=106
EsRandomSeed=107
EsInstanceSetClassEditor=108
EsCRTexpf=109
EsCRTexp2=110
EsColorBlend=111
EsColorConvertToRGB=112
EsColorConvertToHSV=113

2
util/build.c
View File

@ -1701,6 +1701,8 @@ void DoCommand(const char *l) {
CallSystem("rm -f bin/Logs/qemu_serial1.txt");
FILE *f = fopen("root/Essence/Settings/API Tests/test.dat", "wb");
fwrite(&index, 1, sizeof(uint32_t), f);
uint32_t mode = 1;
fwrite(&mode, 1, sizeof(uint32_t), f);
fclose(f);
emulatorTimeout = 20;
if (optimisations) BuildAndRun(OPTIMISE_FULL, true, DEBUG_LATER, EMULATOR_QEMU_NO_GUI, LOG_NORMAL);