Sweden-Number/dlls/msvcrt/tests/misc.c

572 lines
18 KiB
C
Raw Normal View History

2010-01-15 18:02:56 +01:00
/*
* Unit tests for miscellaneous msvcrt functions
*
* Copyright 2010 Andrew Nguyen
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "wine/test.h"
#include <errno.h>
2013-01-18 11:05:46 +01:00
#include <stdio.h>
#include <math.h>
#include "msvcrt.h"
2010-01-15 18:02:56 +01:00
static inline float __port_infinity(void)
{
static const unsigned __inf_bytes = 0x7f800000;
return *(const float *)&__inf_bytes;
}
#define INFINITY __port_infinity()
static inline float __port_nan(void)
{
static const unsigned __nan_bytes = 0x7fc00000;
return *(const float *)&__nan_bytes;
}
#define NAN __port_nan()
static inline BOOL almost_equal(double d1, double d2) {
if(d1-d2>-1e-30 && d1-d2<1e-30)
return TRUE;
return FALSE;
}
2010-01-15 18:02:56 +01:00
static int (__cdecl *prand_s)(unsigned int *);
static int (__cdecl *pI10_OUTPUT)(long double, int, int, void*);
2010-09-28 10:48:13 +02:00
static int (__cdecl *pstrerror_s)(char *, MSVCRT_size_t, int);
2010-09-28 10:48:42 +02:00
static int (__cdecl *p_get_doserrno)(int *);
2010-09-28 10:48:24 +02:00
static int (__cdecl *p_get_errno)(int *);
2010-09-28 10:49:03 +02:00
static int (__cdecl *p_set_doserrno)(int);
2010-09-28 10:48:52 +02:00
static int (__cdecl *p_set_errno)(int);
static void (__cdecl *p__invalid_parameter)(const wchar_t*,
const wchar_t*, const wchar_t*, unsigned int, uintptr_t);
2014-05-21 11:57:24 +02:00
static void (__cdecl *p_qsort_s)(void*, MSVCRT_size_t, MSVCRT_size_t,
int (__cdecl*)(void*, const void*, const void*), void*);
static double (__cdecl *p_atan)(double);
static double (__cdecl *p_exp)(double);
static double (__cdecl *p_tanh)(double);
2010-01-15 18:02:56 +01:00
static void init(void)
{
HMODULE hmod = GetModuleHandleA("msvcrt.dll");
prand_s = (void *)GetProcAddress(hmod, "rand_s");
pI10_OUTPUT = (void*)GetProcAddress(hmod, "$I10_OUTPUT");
2010-09-28 10:48:13 +02:00
pstrerror_s = (void *)GetProcAddress(hmod, "strerror_s");
2010-09-28 10:48:42 +02:00
p_get_doserrno = (void *)GetProcAddress(hmod, "_get_doserrno");
2010-09-28 10:48:24 +02:00
p_get_errno = (void *)GetProcAddress(hmod, "_get_errno");
2010-09-28 10:49:03 +02:00
p_set_doserrno = (void *)GetProcAddress(hmod, "_set_doserrno");
2010-09-28 10:48:52 +02:00
p_set_errno = (void *)GetProcAddress(hmod, "_set_errno");
p__invalid_parameter = (void *)GetProcAddress(hmod, "_invalid_parameter");
2014-05-21 11:57:24 +02:00
p_qsort_s = (void *)GetProcAddress(hmod, "qsort_s");
p_atan = (void *)GetProcAddress(hmod, "atan");
p_exp = (void *)GetProcAddress(hmod, "exp");
p_tanh = (void *)GetProcAddress(hmod, "tanh");
2010-01-15 18:02:56 +01:00
}
static void test_rand_s(void)
{
int ret;
unsigned int rand;
if (!prand_s)
{
win_skip("rand_s is not available\n");
return;
}
errno = EBADF;
ret = prand_s(NULL);
ok(ret == EINVAL, "Expected rand_s to return EINVAL, got %d\n", ret);
ok(errno == EINVAL, "Expected errno to return EINVAL, got %d\n", errno);
ret = prand_s(&rand);
ok(ret == 0, "Expected rand_s to return 0, got %d\n", ret);
}
typedef struct _I10_OUTPUT_data {
short pos;
char sign;
BYTE len;
char str[100];
} I10_OUTPUT_data;
typedef struct _I10_OUTPUT_test {
long double d;
int size;
int flags;
I10_OUTPUT_data out;
int ret;
const char *remain;
} I10_OUTPUT_test;
static const I10_OUTPUT_test I10_OUTPUT_tests[] = {
/* arg3 = 0 */
{ 0.0, 10, 0, {0, ' ', 1, "0"}, 1, "" },
{ 1.0, 10, 0, {1, ' ', 1, "1"}, 1, "000000009" },
{ -1.0, 10, 0, {1, '-', 1, "1"}, 1, "000000009" },
{ 1.23, 10, 0, {1, ' ', 3, "123"}, 1, "0000009" },
{ 1e13, 10, 0, {14, ' ', 1, "1"}, 1, "000000009" },
{ 1e30, 30, 0, {31, ' ', 21, "100000000000000001988"}, 1, "" },
{ 1e-13, 10, 0, {-12, ' ', 1, "1"}, 1, "000000000" },
{ 0.25, 10, 0, {0, ' ', 2, "25"}, 1, "00000000" },
{ 1.0000001, 10, 0, {1, ' ', 8, "10000001"}, 1, "00" },
/* arg3 = 1 */
{ 0.0, 10, 1, {0, ' ', 1, "0"}, 1, "" },
{ 1.0, 10, 1, {1, ' ', 1, "1"}, 1, "0000000009" },
{ -1.0, 10, 1, {1, '-', 1, "1"}, 1, "0000000009" },
{ 1.23, 10, 1, {1, ' ', 3, "123"}, 1, "00000009" },
{ 1e13, 10, 1, {14, ' ', 1, "1"}, 1, "00000000000000000009" },
{ 1e30, 30, 1, {31, ' ', 21, "100000000000000001988"}, 1, "" },
{ 1e-13, 10, 1, {0, ' ', 1, "0"}, 1, "" },
{ 1e-7, 10, 1, {-6, ' ', 1, "1"}, 1, "09" },
{ 0.25, 10, 1, {0, ' ', 2, "25"}, 1, "00000000" },
{ 1.0000001, 10, 1, {1, ' ', 8, "10000001"}, 1, "000" },
/* too small buffer */
{ 0.0, 0, 0, {0, ' ', 1, "0"}, 1, "" },
{ 0.0, 0, 1, {0, ' ', 1, "0"}, 1, "" },
{ 123.0, 2, 0, {3, ' ', 2, "12"}, 1, "" },
{ 123.0, 0, 0, {0, ' ', 1, "0"}, 1, "" },
{ 123.0, 2, 1, {3, ' ', 3, "123"}, 1, "09" },
{ 0.99, 1, 0, {1, ' ', 1, "1"}, 1, "" },
{ 1264567.0, 2, 0, {7, ' ', 2, "13"}, 1, "" },
{ 1264567.0, 2, 1, {7, ' ', 7, "1264567"}, 1, "00" },
{ 1234567891.0, 2, 1, {10, ' ', 10, "1234567891"}, 1, "09" }
};
static void test_I10_OUTPUT(void)
{
I10_OUTPUT_data out;
int i, j = sizeof(long double), ret;
if(!pI10_OUTPUT) {
win_skip("I10_OUTPUT not available\n");
return;
}
if (j != 12)
trace("sizeof(long double) = %d on this machine\n", j);
for(i=0; i<sizeof(I10_OUTPUT_tests)/sizeof(I10_OUTPUT_test); i++) {
memset(out.str, '#', sizeof(out.str));
if (sizeof(long double) == 12)
ret = pI10_OUTPUT(I10_OUTPUT_tests[i].d, I10_OUTPUT_tests[i].size, I10_OUTPUT_tests[i].flags, &out);
else {
/* MS' "long double" is an 80 bit FP that takes 12 bytes*/
typedef struct { ULONG x80[3]; } uld; /* same calling convention */
union { long double ld; uld ld12; } fp80;
int (__cdecl *pI10_OUTPUT12)(uld, int, int, void*) = (void*)pI10_OUTPUT;
fp80.ld = I10_OUTPUT_tests[i].d;
ret = pI10_OUTPUT12(fp80.ld12, I10_OUTPUT_tests[i].size, I10_OUTPUT_tests[i].flags, &out);
}
ok(ret == I10_OUTPUT_tests[i].ret, "%d: ret = %d\n", i, ret);
ok(out.pos == I10_OUTPUT_tests[i].out.pos, "%d: out.pos = %hd\n", i, out.pos);
ok(out.sign == I10_OUTPUT_tests[i].out.sign, "%d: out.size = %c\n", i, out.sign);
ok(out.len == I10_OUTPUT_tests[i].out.len, "%d: out.len = %d\n", i, (int)out.len);
ok(!strcmp(out.str, I10_OUTPUT_tests[i].out.str), "%d: out.str = %s\n", i, out.str);
j = strlen(I10_OUTPUT_tests[i].remain);
if(j && I10_OUTPUT_tests[i].remain[j-1]=='9')
todo_wine ok(!strncmp(out.str+out.len+1, I10_OUTPUT_tests[i].remain, j),
"%d: &out.str[%d] = %.25s...\n", i, out.len+1, out.str+out.len+1);
else
ok(!strncmp(out.str+out.len+1, I10_OUTPUT_tests[i].remain, j),
"%d: &out.str[%d] = %.25s...\n", i, out.len+1, out.str+out.len+1);
for(j=out.len+strlen(I10_OUTPUT_tests[i].remain)+1; j<sizeof(out.str); j++)
if(out.str[j] != '#')
ok(0, "%d: out.str[%d] = %c (expected \'#\')\n", i, j, out.str[j]);
}
}
2010-09-28 10:48:13 +02:00
static void test_strerror_s(void)
{
int ret;
char buf[256];
if (!pstrerror_s)
{
win_skip("strerror_s is not available\n");
return;
}
errno = EBADF;
ret = pstrerror_s(NULL, 0, 0);
ok(ret == EINVAL, "Expected strerror_s to return EINVAL, got %d\n", ret);
ok(errno == EINVAL, "Expected errno to be EINVAL, got %d\n", errno);
errno = EBADF;
ret = pstrerror_s(NULL, sizeof(buf), 0);
ok(ret == EINVAL, "Expected strerror_s to return EINVAL, got %d\n", ret);
ok(errno == EINVAL, "Expected errno to be EINVAL, got %d\n", errno);
memset(buf, 'X', sizeof(buf));
errno = EBADF;
ret = pstrerror_s(buf, 0, 0);
ok(ret == EINVAL, "Expected strerror_s to return EINVAL, got %d\n", ret);
ok(errno == EINVAL, "Expected errno to be EINVAL, got %d\n", errno);
ok(buf[0] == 'X', "Expected output buffer to be untouched\n");
memset(buf, 'X', sizeof(buf));
ret = pstrerror_s(buf, 1, 0);
ok(ret == 0, "Expected strerror_s to return 0, got %d\n", ret);
ok(strlen(buf) == 0, "Expected output buffer to be null terminated\n");
memset(buf, 'X', sizeof(buf));
ret = pstrerror_s(buf, 2, 0);
ok(ret == 0, "Expected strerror_s to return 0, got %d\n", ret);
ok(strlen(buf) == 1, "Expected output buffer to be truncated\n");
memset(buf, 'X', sizeof(buf));
ret = pstrerror_s(buf, sizeof(buf), 0);
ok(ret == 0, "Expected strerror_s to return 0, got %d\n", ret);
memset(buf, 'X', sizeof(buf));
ret = pstrerror_s(buf, sizeof(buf), -1);
ok(ret == 0, "Expected strerror_s to return 0, got %d\n", ret);
}
2010-09-28 10:48:42 +02:00
static void test__get_doserrno(void)
{
int ret, out;
if (!p_get_doserrno)
{
win_skip("_get_doserrno is not available\n");
return;
}
_doserrno = ERROR_INVALID_CMM;
errno = EBADF;
ret = p_get_doserrno(NULL);
ok(ret == EINVAL, "Expected _get_doserrno to return EINVAL, got %d\n", ret);
ok(_doserrno == ERROR_INVALID_CMM, "Expected _doserrno to be ERROR_INVALID_CMM, got %d\n", _doserrno);
2010-09-28 10:48:42 +02:00
ok(errno == EBADF, "Expected errno to be EBADF, got %d\n", errno);
_doserrno = ERROR_INVALID_CMM;
errno = EBADF;
out = 0xdeadbeef;
ret = p_get_doserrno(&out);
ok(ret == 0, "Expected _get_doserrno to return 0, got %d\n", ret);
ok(out == ERROR_INVALID_CMM, "Expected output variable to be ERROR_INVAID_CMM, got %d\n", out);
}
2010-09-28 10:48:24 +02:00
static void test__get_errno(void)
{
int ret, out;
if (!p_get_errno)
{
win_skip("_get_errno is not available\n");
return;
}
errno = EBADF;
ret = p_get_errno(NULL);
ok(ret == EINVAL, "Expected _get_errno to return EINVAL, got %d\n", ret);
ok(errno == EBADF, "Expected errno to be EBADF, got %d\n", errno);
errno = EBADF;
out = 0xdeadbeef;
ret = p_get_errno(&out);
ok(ret == 0, "Expected _get_errno to return 0, got %d\n", ret);
ok(out == EBADF, "Expected output variable to be EBADF, got %d\n", out);
}
2010-09-28 10:49:03 +02:00
static void test__set_doserrno(void)
{
int ret;
if (!p_set_doserrno)
{
win_skip("_set_doserrno is not available\n");
return;
}
_doserrno = ERROR_INVALID_CMM;
ret = p_set_doserrno(ERROR_FILE_NOT_FOUND);
ok(ret == 0, "Expected _set_doserrno to return 0, got %d\n", ret);
ok(_doserrno == ERROR_FILE_NOT_FOUND,
"Expected _doserrno to be ERROR_FILE_NOT_FOUND, got %d\n", _doserrno);
_doserrno = ERROR_INVALID_CMM;
ret = p_set_doserrno(-1);
ok(ret == 0, "Expected _set_doserrno to return 0, got %d\n", ret);
ok(_doserrno == -1,
"Expected _doserrno to be -1, got %d\n", _doserrno);
_doserrno = ERROR_INVALID_CMM;
ret = p_set_doserrno(0xdeadbeef);
ok(ret == 0, "Expected _set_doserrno to return 0, got %d\n", ret);
ok(_doserrno == 0xdeadbeef,
"Expected _doserrno to be 0xdeadbeef, got %d\n", _doserrno);
}
2010-09-28 10:48:52 +02:00
static void test__set_errno(void)
{
int ret;
if (!p_set_errno)
{
win_skip("_set_errno is not available\n");
return;
}
errno = EBADF;
ret = p_set_errno(EINVAL);
ok(ret == 0, "Expected _set_errno to return 0, got %d\n", ret);
ok(errno == EINVAL, "Expected errno to be EINVAL, got %d\n", errno);
errno = EBADF;
ret = p_set_errno(-1);
ok(ret == 0, "Expected _set_errno to return 0, got %d\n", ret);
ok(errno == -1, "Expected errno to be -1, got %d\n", errno);
errno = EBADF;
ret = p_set_errno(0xdeadbeef);
ok(ret == 0, "Expected _set_errno to return 0, got %d\n", ret);
ok(errno == 0xdeadbeef, "Expected errno to be 0xdeadbeef, got %d\n", errno);
}
2013-01-18 11:05:46 +01:00
static void test__popen_child(void)
{
/* don't execute any tests here */
/* ExitProcess is used to set return code of _pclose */
printf("child output\n");
ExitProcess(0x37);
}
static void test__popen(const char *name)
{
FILE *pipe;
char buf[1024];
int ret;
sprintf(buf, "\"%s\" misc popen", name);
2013-01-18 11:05:46 +01:00
pipe = _popen(buf, "r");
ok(pipe != NULL, "_popen failed with error: %d\n", errno);
fgets(buf, sizeof(buf), pipe);
ok(!strcmp(buf, "child output\n"), "buf = %s\n", buf);
ret = _pclose(pipe);
ok(ret == 0x37, "_pclose returned %x, expected 0x37\n", ret);
errno = 0xdeadbeef;
ret = _pclose((FILE*)0xdeadbeef);
ok(ret == -1, "_pclose returned %x, expected -1\n", ret);
if(p_set_errno)
ok(errno == EBADF, "errno = %d\n", errno);
}
static void test__invalid_parameter(void)
{
if(!p__invalid_parameter) {
win_skip("_invalid_parameter not available\n");
return;
}
p__invalid_parameter(NULL, NULL, NULL, 0, 0);
}
2014-05-21 11:57:24 +02:00
struct qsort_test
{
int pos;
int *base;
struct {
int l;
int r;
} cmp[64];
};
static int __cdecl qsort_comp(void *ctx, const void *l, const void *r)
2014-05-21 11:57:24 +02:00
{
struct qsort_test *qt = ctx;
if(qt) {
ok(qt->pos < 64, "qt->pos = %d\n", qt->pos);
ok(qt->cmp[qt->pos].l == (int*)l-qt->base,
"%d) l on %ld position\n", qt->pos, (long)((int*)l - qt->base));
ok(qt->cmp[qt->pos].r == (int*)r-qt->base,
"%d) r on %ld position\n", qt->pos, (long)((int*)r - qt->base));
qt->pos++;
}
return *(int*)l%1000 - *(int*)r%1000;
}
static void test_qsort_s(void)
{
static const int nonstable_test[] = {9000, 8001, 7002, 6003, 1003, 5004, 4005, 3006, 2007};
int tab[100], i;
struct qsort_test small_sort = {
0, tab, {
{1, 0}, {2, 1}, {3, 2}, {4, 3}, {5, 4}, {6, 5}, {7, 6},
{1, 0}, {2, 1}, {3, 2}, {4, 3}, {5, 4}, {6, 5},
{1, 0}, {2, 1}, {3, 2}, {4, 3}, {5, 4},
{1, 0}, {2, 1}, {3, 2}, {4, 3},
{1, 0}, {2, 1}, {3, 2},
{1, 0}, {2, 1},
{1, 0}
}
}, small_sort2 = {
0, tab, {
{1, 0}, {2, 0}, {3, 0}, {4, 0}, {5, 0}, {6, 0}, {7, 0},
{1, 0}, {2, 1}, {3, 1}, {4, 1}, {5, 1}, {6, 1},
{1, 0}, {2, 1}, {3, 2}, {4, 2}, {5, 2},
{1, 0}, {2, 1}, {3, 2}, {4, 3},
{1, 0}, {2, 1}, {3, 2},
{1, 0}, {2, 1},
{1, 0}
}
}, quick_sort = {
0, tab, {
{0, 4}, {0, 8}, {4, 8},
{1, 4}, {2, 4}, {3, 4}, {5, 4}, {6, 4}, {7, 4}, {7, 4}, {6, 4},
{6, 4},
{8, 7},
{1, 0}, {2, 1}, {3, 2}, {4, 3}, {5, 4}, {6, 4},
{1, 0}, {2, 1}, {3, 2}, {4, 3}, {5, 3},
{1, 0}, {2, 1}, {3, 2}, {4, 2},
{1, 0}, {2, 1}, {3, 2},
{1, 0}, {2, 1},
{1, 0}
}
};
if(!p_qsort_s) {
win_skip("qsort_s not available\n");
return;
}
for(i=0; i<8; i++) tab[i] = i;
p_qsort_s(tab, 8, sizeof(int), qsort_comp, &small_sort);
ok(small_sort.pos == 28, "small_sort.pos = %d\n", small_sort.pos);
for(i=0; i<8; i++)
ok(tab[i] == i, "tab[%d] = %d\n", i, tab[i]);
for(i=0; i<8; i++) tab[i] = 7-i;
p_qsort_s(tab, 8, sizeof(int), qsort_comp, &small_sort2);
ok(small_sort2.pos == 28, "small_sort2.pos = %d\n", small_sort2.pos);
for(i=0; i<8; i++)
ok(tab[i] == i, "tab[%d] = %d\n", i, tab[i]);
for(i=0; i<9; i++) tab[i] = i;
tab[5] = 1;
tab[6] = 2;
p_qsort_s(tab, 9, sizeof(int), qsort_comp, &quick_sort);
ok(quick_sort.pos == 34, "quick_sort.pos = %d\n", quick_sort.pos);
/* show that qsort is not stable */
for(i=0; i<9; i++) tab[i] = 8-i + 1000*(i+1);
tab[0] = 1003;
p_qsort_s(tab, 9, sizeof(int), qsort_comp, NULL);
for(i=0; i<9; i++)
ok(tab[i] == nonstable_test[i], "tab[%d] = %d, expected %d\n", i, tab[i], nonstable_test[i]);
/* check if random data is sorted */
srand(0);
for(i=0; i<100; i++) tab[i] = rand()%1000;
p_qsort_s(tab, 100, sizeof(int), qsort_comp, NULL);
for(i=1; i<100; i++)
ok(tab[i-1] <= tab[i], "data sorted incorrectly on position %d: %d <= %d\n", i, tab[i-1], tab[i]);
/* test if random permutation is sorted correctly */
for(i=0; i<100; i++) tab[i] = i;
for(i=0; i<100; i++) {
int b = rand()%100;
int e = rand()%100;
if(b == e) continue;
tab[b] ^= tab[e];
tab[e] ^= tab[b];
tab[b] ^= tab[e];
}
p_qsort_s(tab, 100, sizeof(int), qsort_comp, NULL);
for(i=0; i<100; i++)
ok(tab[i] == i, "data sorted incorrectly on position %d: %d\n", i, tab[i]);
}
static void test_math_functions(void)
{
double ret;
errno = 0xdeadbeef;
p_atan(NAN);
ok(errno == EDOM, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = p_atan(INFINITY);
ok(almost_equal(ret, 1.57079632679489661923), "ret = %lf\n", ret);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = p_atan(-INFINITY);
ok(almost_equal(ret, -1.57079632679489661923), "ret = %lf\n", ret);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
errno = 0xdeadbeef;
p_tanh(NAN);
ok(errno == EDOM, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = p_tanh(INFINITY);
ok(almost_equal(ret, 1.0), "ret = %lf\n", ret);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
errno = 0xdeadbeef;
p_exp(NAN);
ok(errno == EDOM, "errno = %d\n", errno);
errno = 0xdeadbeef;
p_exp(INFINITY);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
}
2010-01-15 18:02:56 +01:00
START_TEST(misc)
{
2013-01-18 11:05:46 +01:00
int arg_c;
char** arg_v;
2010-01-15 18:02:56 +01:00
init();
2013-01-18 11:05:46 +01:00
arg_c = winetest_get_mainargs(&arg_v);
if(arg_c >= 3) {
if(!strcmp(arg_v[2], "popen"))
test__popen_child();
else
ok(0, "invalid argument '%s'\n", arg_v[2]);
return;
}
2010-01-15 18:02:56 +01:00
test_rand_s();
test_I10_OUTPUT();
2010-09-28 10:48:13 +02:00
test_strerror_s();
2010-09-28 10:48:42 +02:00
test__get_doserrno();
2010-09-28 10:48:24 +02:00
test__get_errno();
2010-09-28 10:49:03 +02:00
test__set_doserrno();
2010-09-28 10:48:52 +02:00
test__set_errno();
2013-01-18 11:05:46 +01:00
test__popen(arg_v[0]);
test__invalid_parameter();
2014-05-21 11:57:24 +02:00
test_qsort_s();
test_math_functions();
2010-01-15 18:02:56 +01:00
}