dlls/msvcr100/tests/msvcr100.c

   1 /*
   2  * Copyright 2012 Dan Kegel
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <errno.h>
  20 #include <stdarg.h>
  21 #include <stdlib.h>
  22 #include <wchar.h>
  23 #include <stdio.h>
  24
  25 #include <windef.h>
  26 #include <winbase.h>
  27 #include "wine/test.h"
  28
  29 #define DEFINE_EXPECT(func) \
  30     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  31
  32 #define SET_EXPECT(func) \
  33     expect_ ## func = TRUE
  34
  35 #define CHECK_EXPECT2(func) \
  36     do { \
  37         ok(expect_ ##func, "unexpected call " #func "\n"); \
  38         called_ ## func = TRUE; \
  39     }while(0)
  40
  41 #define CHECK_EXPECT(func) \
  42     do { \
  43         CHECK_EXPECT2(func); \
  44         expect_ ## func = FALSE; \
  45     }while(0)
  46
  47 #define CHECK_CALLED(func) \
  48     do { \
  49         ok(called_ ## func, "expected " #func "\n"); \
  50         expect_ ## func = called_ ## func = FALSE; \
  51     }while(0)
  52
  53 DEFINE_EXPECT(invalid_parameter_handler);
  54 DEFINE_EXPECT(yield_func);
  55
  56 static _invalid_parameter_handler (__cdecl *p_set_invalid_parameter_handler)(_invalid_parameter_handler);
  57
  58 static void __cdecl test_invalid_parameter_handler(const wchar_t *expression,
  59         const wchar_t *function, const wchar_t *file,
  60         unsigned line, uintptr_t arg)
  61 {
  62     CHECK_EXPECT(invalid_parameter_handler);
  63     ok(expression == NULL, "expression is not NULL\n");
  64     ok(function == NULL, "function is not NULL\n");
  65     ok(file == NULL, "file is not NULL\n");
  66     ok(line == 0, "line = %u\n", line);
  67     ok(arg == 0, "arg = %lx\n", (UINT_PTR)arg);
  68 }
  69
  70 #ifdef __i386__
  71
  72 #include "pshpack1.h"
  73 struct thiscall_thunk
  74 {
  75     BYTE pop_eax;    /* popl  %eax (ret addr) */
  76     BYTE pop_edx;    /* popl  %edx (func) */
  77     BYTE pop_ecx;    /* popl  %ecx (this) */
  78     BYTE push_eax;   /* pushl %eax */
  79     WORD jmp_edx;    /* jmp  *%edx */
  80 };
  81 #include "poppack.h"
  82
  83 static ULONG_PTR (WINAPI *call_thiscall_func1)( void *func, void *this );
  84 static ULONG_PTR (WINAPI *call_thiscall_func2)( void *func, void *this, const void *a );
  85 static ULONG_PTR (WINAPI *call_thiscall_func3)( void *func, void *this, const void *a, const void *b );
  86
  87 static void init_thiscall_thunk(void)
  88 {
  89     struct thiscall_thunk *thunk = VirtualAlloc( NULL, sizeof(*thunk),
  90             MEM_COMMIT, PAGE_EXECUTE_READWRITE );
  91     thunk->pop_eax  = 0x58;   /* popl  %eax */
  92     thunk->pop_edx  = 0x5a;   /* popl  %edx */
  93     thunk->pop_ecx  = 0x59;   /* popl  %ecx */
  94     thunk->push_eax = 0x50;   /* pushl %eax */
  95     thunk->jmp_edx  = 0xe2ff; /* jmp  *%edx */
  96     call_thiscall_func1 = (void *)thunk;
  97     call_thiscall_func2 = (void *)thunk;
  98     call_thiscall_func3 = (void *)thunk;
  99 }
 100
 101 #define call_func1(func,_this) call_thiscall_func1(func,_this)
 102 #define call_func2(func,_this,a) call_thiscall_func2(func,_this,(const void*)(a))
 103 #define call_func3(func,_this,a,b) call_thiscall_func3(func,_this,(const void*)(a),(const void*)(b))
 104
 105 #else
 106
 107 #define init_thiscall_thunk()
 108 #define call_func1(func,_this) func(_this)
 109 #define call_func2(func,_this,a) func(_this,a)
 110 #define call_func3(func,_this,a,b) func(_this,a,b)
 111
 112 #endif /* __i386__ */
 113
 114 #undef __thiscall
 115 #ifdef __i386__
 116 #define __thiscall __stdcall
 117 #else
 118 #define __thiscall __cdecl
 119 #endif
 120
 121 typedef unsigned char MSVCRT_bool;
 122
 123 typedef enum
 124 {
 125     SPINWAIT_INIT,
 126     SPINWAIT_SPIN,
 127     SPINWAIT_YIELD,
 128     SPINWAIT_DONE
 129 } SpinWait_state;
 130
 131 typedef void (__cdecl *yield_func)(void);
 132
 133 typedef struct
 134 {
 135     ULONG spin;
 136     ULONG unknown;
 137     SpinWait_state state;
 138     yield_func yield_func;
 139 } SpinWait;
 140
 141 typedef struct {
 142     CRITICAL_SECTION cs;
 143 } _ReentrantBlockingLock;
 144
 145 typedef struct {
 146     char pad[64];
 147 } event;
 148
 149 typedef struct {
 150     void *vtable;
 151 } Context;
 152
 153 typedef struct {
 154     void *policy_container;
 155 } SchedulerPolicy;
 156
 157 struct SchedulerVtbl;
 158 typedef struct {
 159     struct SchedulerVtbl *vtable;
 160 } Scheduler;
 161
 162 struct SchedulerVtbl {
 163     Scheduler* (__thiscall *vector_dor)(Scheduler*);
 164     unsigned int (__thiscall *Id)(Scheduler*);
 165     unsigned int (__thiscall *GetNumberOfVirtualProcessors)(Scheduler*);
 166     SchedulerPolicy* (__thiscall *GetPolicy)(Scheduler*);
 167     unsigned int (__thiscall *Reference)(Scheduler*);
 168     unsigned int (__thiscall *Release)(Scheduler*);
 169     void (__thiscall *RegisterShutdownEvent)(Scheduler*,HANDLE);
 170     void (__thiscall *Attach)(Scheduler*);
 171     /* CreateScheduleGroup */
 172     /* ScheduleTask */
 173 };
 174
 175 static int* (__cdecl *p_errno)(void);
 176 static int (__cdecl *p_wmemcpy_s)(wchar_t *dest, size_t numberOfElements, const wchar_t *src, size_t count);
 177 static int (__cdecl *p_wmemmove_s)(wchar_t *dest, size_t numberOfElements, const wchar_t *src, size_t count);
 178 static FILE* (__cdecl *p_fopen)(const char*,const char*);
 179 static int (__cdecl *p_fclose)(FILE*);
 180 static size_t (__cdecl *p_fread_s)(void*,size_t,size_t,size_t,FILE*);
 181 static void (__cdecl *p_lock_file)(FILE*);
 182 static void (__cdecl *p_unlock_file)(FILE*);
 183 static void* (__cdecl *p__aligned_offset_malloc)(size_t, size_t, size_t);
 184 static void (__cdecl *p__aligned_free)(void*);
 185 static size_t (__cdecl *p__aligned_msize)(void*, size_t, size_t);
 186 static int (__cdecl *p_atoi)(const char*);
 187
 188 static SpinWait* (__thiscall *pSpinWait_ctor_yield)(SpinWait*, yield_func);
 189 static void (__thiscall *pSpinWait_dtor)(SpinWait*);
 190 static void (__thiscall *pSpinWait__DoYield)(SpinWait*);
 191 static ULONG (__thiscall *pSpinWait__NumberOfSpins)(SpinWait*);
 192 static void (__thiscall *pSpinWait__SetSpinCount)(SpinWait*, unsigned int);
 193 static MSVCRT_bool (__thiscall *pSpinWait__ShouldSpinAgain)(SpinWait*);
 194 static MSVCRT_bool (__thiscall *pSpinWait__SpinOnce)(SpinWait*);
 195
 196 static void* (__thiscall *preader_writer_lock_ctor)(void*);
 197 static void (__thiscall *preader_writer_lock_dtor)(void*);
 198 static void (__thiscall *preader_writer_lock_lock)(void*);
 199 static void (__thiscall *preader_writer_lock_lock_read)(void*);
 200 static void (__thiscall *preader_writer_lock_unlock)(void*);
 201 static MSVCRT_bool (__thiscall *preader_writer_lock_try_lock)(void*);
 202 static MSVCRT_bool (__thiscall *preader_writer_lock_try_lock_read)(void*);
 203
 204 static _ReentrantBlockingLock* (__thiscall *p_ReentrantBlockingLock_ctor)(_ReentrantBlockingLock*);
 205 static void (__thiscall *p_ReentrantBlockingLock_dtor)(_ReentrantBlockingLock*);
 206 static void (__thiscall *p_ReentrantBlockingLock__Acquire)(_ReentrantBlockingLock*);
 207 static void (__thiscall *p_ReentrantBlockingLock__Release)(_ReentrantBlockingLock*);
 208 static MSVCRT_bool (__thiscall *p_ReentrantBlockingLock__TryAcquire)(_ReentrantBlockingLock*);
 209 static _ReentrantBlockingLock* (__thiscall *p_NonReentrantBlockingLock_ctor)(_ReentrantBlockingLock*);
 210 static void (__thiscall *p_NonReentrantBlockingLock_dtor)(_ReentrantBlockingLock*);
 211 static void (__thiscall *p_NonReentrantBlockingLock__Acquire)(_ReentrantBlockingLock*);
 212 static void (__thiscall *p_NonReentrantBlockingLock__Release)(_ReentrantBlockingLock*);
 213 static MSVCRT_bool (__thiscall *p_NonReentrantBlockingLock__TryAcquire)(_ReentrantBlockingLock*);
 214
 215 static event* (__thiscall *p_event_ctor)(event*);
 216 static void (__thiscall *p_event_dtor)(event*);
 217 static void (__thiscall *p_event_reset)(event*);
 218 static void (__thiscall *p_event_set)(event*);
 219 static size_t (__thiscall *p_event_wait)(event*, unsigned int);
 220 static int (__cdecl *p_event_wait_for_multiple)(event**, size_t, MSVCRT_bool, unsigned int);
 221
 222 static Context* (__cdecl *p_Context_CurrentContext)(void);
 223 static unsigned int (__cdecl *p_Context_Id)(void);
 224 static SchedulerPolicy* (__thiscall *p_SchedulerPolicy_ctor)(SchedulerPolicy*);
 225 static void (__thiscall *p_SchedulerPolicy_SetConcurrencyLimits)(SchedulerPolicy*, unsigned int, unsigned int);
 226 static void (__thiscall *p_SchedulerPolicy_dtor)(SchedulerPolicy*);
 227 static Scheduler* (__cdecl *p_Scheduler_Create)(SchedulerPolicy*);
 228 static Scheduler* (__cdecl *p_CurrentScheduler_Get)(void);
 229 static void (__cdecl *p_CurrentScheduler_Detach)(void);
 230 static unsigned int (__cdecl *p_CurrentScheduler_Id)(void);
 231
 232 /* make sure we use the correct errno */
 233 #undef errno
 234 #define errno (*p_errno())
 235
 236 #define SETNOFAIL(x,y) x = (void*)GetProcAddress(hcrt,y)
 237 #define SET(x,y) do { SETNOFAIL(x,y); ok(x != NULL, "Export '%s' not found\n", y); } while(0)
 238
 239 static BOOL init(void)
 240 {
 241     HMODULE hcrt;
 242
 243     SetLastError(0xdeadbeef);
 244     hcrt = LoadLibraryA("msvcr100.dll");
 245     if (!hcrt) {
 246         win_skip("msvcr100.dll not installed (got %d)\n", GetLastError());
 247         return FALSE;
 248     }
 249
 250     SET(p_errno, "_errno");
 251     SET(p_set_invalid_parameter_handler, "_set_invalid_parameter_handler");
 252     SET(p_wmemcpy_s, "wmemcpy_s");
 253     SET(p_wmemmove_s, "wmemmove_s");
 254     SET(p_fopen, "fopen");
 255     SET(p_fclose, "fclose");
 256     SET(p_fread_s, "fread_s");
 257     SET(p_lock_file, "_lock_file");
 258     SET(p_unlock_file, "_unlock_file");
 259     SET(p__aligned_offset_malloc, "_aligned_offset_malloc");
 260     SET(p__aligned_free, "_aligned_free");
 261     SET(p__aligned_msize, "_aligned_msize");
 262     SET(p_atoi, "atoi");
 263
 264     SET(p_Context_Id, "?Id@Context@Concurrency@@SAIXZ");
 265     SET(p_CurrentScheduler_Detach, "?Detach@CurrentScheduler@Concurrency@@SAXXZ");
 266     SET(p_CurrentScheduler_Id, "?Id@CurrentScheduler@Concurrency@@SAIXZ");
 267
 268     if(sizeof(void*) == 8) { /* 64-bit initialization */
 269         SET(pSpinWait_ctor_yield, "??0?$_SpinWait@$00@details@Concurrency@@QEAA@P6AXXZ@Z");
 270         SET(pSpinWait_dtor, "??_F?$_SpinWait@$00@details@Concurrency@@QEAAXXZ");
 271         SET(pSpinWait__DoYield, "?_DoYield@?$_SpinWait@$00@details@Concurrency@@IEAAXXZ");
 272         SET(pSpinWait__NumberOfSpins, "?_NumberOfSpins@?$_SpinWait@$00@details@Concurrency@@IEAAKXZ");
 273         SET(pSpinWait__SetSpinCount, "?_SetSpinCount@?$_SpinWait@$00@details@Concurrency@@QEAAXI@Z");
 274         SET(pSpinWait__ShouldSpinAgain, "?_ShouldSpinAgain@?$_SpinWait@$00@details@Concurrency@@IEAA_NXZ");
 275         SET(pSpinWait__SpinOnce, "?_SpinOnce@?$_SpinWait@$00@details@Concurrency@@QEAA_NXZ");
 276
 277         SET(preader_writer_lock_ctor, "??0reader_writer_lock@Concurrency@@QEAA@XZ");
 278         SET(preader_writer_lock_dtor, "??1reader_writer_lock@Concurrency@@QEAA@XZ");
 279         SET(preader_writer_lock_lock, "?lock@reader_writer_lock@Concurrency@@QEAAXXZ");
 280         SET(preader_writer_lock_lock_read, "?lock_read@reader_writer_lock@Concurrency@@QEAAXXZ");
 281         SET(preader_writer_lock_unlock, "?unlock@reader_writer_lock@Concurrency@@QEAAXXZ");
 282         SET(preader_writer_lock_try_lock, "?try_lock@reader_writer_lock@Concurrency@@QEAA_NXZ");
 283         SET(preader_writer_lock_try_lock_read, "?try_lock_read@reader_writer_lock@Concurrency@@QEAA_NXZ");
 284
 285         SET(p_ReentrantBlockingLock_ctor, "??0_ReentrantBlockingLock@details@Concurrency@@QEAA@XZ");
 286         SET(p_ReentrantBlockingLock_dtor, "??1_ReentrantBlockingLock@details@Concurrency@@QEAA@XZ");
 287         SET(p_ReentrantBlockingLock__Acquire, "?_Acquire@_ReentrantBlockingLock@details@Concurrency@@QEAAXXZ");
 288         SET(p_ReentrantBlockingLock__Release, "?_Release@_ReentrantBlockingLock@details@Concurrency@@QEAAXXZ");
 289         SET(p_ReentrantBlockingLock__TryAcquire, "?_TryAcquire@_ReentrantBlockingLock@details@Concurrency@@QEAA_NXZ");
 290         SET(p_NonReentrantBlockingLock_ctor, "??0_NonReentrantBlockingLock@details@Concurrency@@QEAA@XZ");
 291         SET(p_NonReentrantBlockingLock_dtor, "??1_NonReentrantBlockingLock@details@Concurrency@@QEAA@XZ");
 292         SET(p_NonReentrantBlockingLock__Acquire, "?_Acquire@_NonReentrantBlockingLock@details@Concurrency@@QEAAXXZ");
 293         SET(p_NonReentrantBlockingLock__Release, "?_Release@_NonReentrantBlockingLock@details@Concurrency@@QEAAXXZ");
 294         SET(p_NonReentrantBlockingLock__TryAcquire, "?_TryAcquire@_NonReentrantBlockingLock@details@Concurrency@@QEAA_NXZ");
 295
 296         SET(p_event_ctor, "??0event@Concurrency@@QEAA@XZ");
 297         SET(p_event_dtor, "??1event@Concurrency@@QEAA@XZ");
 298         SET(p_event_reset, "?reset@event@Concurrency@@QEAAXXZ");
 299         SET(p_event_set, "?set@event@Concurrency@@QEAAXXZ");
 300         SET(p_event_wait, "?wait@event@Concurrency@@QEAA_KI@Z");
 301         SET(p_event_wait_for_multiple, "?wait_for_multiple@event@Concurrency@@SA_KPEAPEAV12@_K_NI@Z");
 302
 303         SET(p_Context_CurrentContext, "?CurrentContext@Context@Concurrency@@SAPEAV12@XZ");
 304         SET(p_SchedulerPolicy_ctor, "??0SchedulerPolicy@Concurrency@@QEAA@XZ");
 305         SET(p_SchedulerPolicy_SetConcurrencyLimits, "?SetConcurrencyLimits@SchedulerPolicy@Concurrency@@QEAAXII@Z");
 306         SET(p_SchedulerPolicy_dtor, "??1SchedulerPolicy@Concurrency@@QEAA@XZ");
 307         SET(p_Scheduler_Create, "?Create@Scheduler@Concurrency@@SAPEAV12@AEBVSchedulerPolicy@2@@Z");
 308         SET(p_CurrentScheduler_Get, "?Get@CurrentScheduler@Concurrency@@SAPEAVScheduler@2@XZ");
 309     } else {
 310         SET(pSpinWait_ctor_yield, "??0?$_SpinWait@$00@details@Concurrency@@QAE@P6AXXZ@Z");
 311         SET(pSpinWait_dtor, "??_F?$_SpinWait@$00@details@Concurrency@@QAEXXZ");
 312         SET(pSpinWait__DoYield, "?_DoYield@?$_SpinWait@$00@details@Concurrency@@IAEXXZ");
 313         SET(pSpinWait__NumberOfSpins, "?_NumberOfSpins@?$_SpinWait@$00@details@Concurrency@@IAEKXZ");
 314         SET(pSpinWait__SetSpinCount, "?_SetSpinCount@?$_SpinWait@$00@details@Concurrency@@QAEXI@Z");
 315         SET(pSpinWait__ShouldSpinAgain, "?_ShouldSpinAgain@?$_SpinWait@$00@details@Concurrency@@IAE_NXZ");
 316         SET(pSpinWait__SpinOnce, "?_SpinOnce@?$_SpinWait@$00@details@Concurrency@@QAE_NXZ");
 317
 318         SET(preader_writer_lock_ctor, "??0reader_writer_lock@Concurrency@@QAE@XZ");
 319         SET(preader_writer_lock_dtor, "??1reader_writer_lock@Concurrency@@QAE@XZ");
 320         SET(preader_writer_lock_lock, "?lock@reader_writer_lock@Concurrency@@QAEXXZ");
 321         SET(preader_writer_lock_lock_read, "?lock_read@reader_writer_lock@Concurrency@@QAEXXZ");
 322         SET(preader_writer_lock_unlock, "?unlock@reader_writer_lock@Concurrency@@QAEXXZ");
 323         SET(preader_writer_lock_try_lock, "?try_lock@reader_writer_lock@Concurrency@@QAE_NXZ");
 324         SET(preader_writer_lock_try_lock_read, "?try_lock_read@reader_writer_lock@Concurrency@@QAE_NXZ");
 325
 326         SET(p_ReentrantBlockingLock_ctor, "??0_ReentrantBlockingLock@details@Concurrency@@QAE@XZ");
 327         SET(p_ReentrantBlockingLock_dtor, "??1_ReentrantBlockingLock@details@Concurrency@@QAE@XZ");
 328         SET(p_ReentrantBlockingLock__Acquire, "?_Acquire@_ReentrantBlockingLock@details@Concurrency@@QAEXXZ");
 329         SET(p_ReentrantBlockingLock__Release, "?_Release@_ReentrantBlockingLock@details@Concurrency@@QAEXXZ");
 330         SET(p_ReentrantBlockingLock__TryAcquire, "?_TryAcquire@_ReentrantBlockingLock@details@Concurrency@@QAE_NXZ");
 331         SET(p_NonReentrantBlockingLock_ctor, "??0_NonReentrantBlockingLock@details@Concurrency@@QAE@XZ");
 332         SET(p_NonReentrantBlockingLock_dtor, "??1_NonReentrantBlockingLock@details@Concurrency@@QAE@XZ");
 333         SET(p_NonReentrantBlockingLock__Acquire, "?_Acquire@_NonReentrantBlockingLock@details@Concurrency@@QAEXXZ");
 334         SET(p_NonReentrantBlockingLock__Release, "?_Release@_NonReentrantBlockingLock@details@Concurrency@@QAEXXZ");
 335         SET(p_NonReentrantBlockingLock__TryAcquire, "?_TryAcquire@_NonReentrantBlockingLock@details@Concurrency@@QAE_NXZ");
 336
 337         SET(p_event_ctor, "??0event@Concurrency@@QAE@XZ");
 338         SET(p_event_dtor, "??1event@Concurrency@@QAE@XZ");
 339         SET(p_event_reset, "?reset@event@Concurrency@@QAEXXZ");
 340         SET(p_event_set, "?set@event@Concurrency@@QAEXXZ");
 341         SET(p_event_wait, "?wait@event@Concurrency@@QAEII@Z");
 342         SET(p_event_wait_for_multiple, "?wait_for_multiple@event@Concurrency@@SAIPAPAV12@I_NI@Z");
 343
 344         SET(p_Context_CurrentContext, "?CurrentContext@Context@Concurrency@@SAPAV12@XZ");
 345         SET(p_SchedulerPolicy_ctor, "??0SchedulerPolicy@Concurrency@@QAE@XZ");
 346         SET(p_SchedulerPolicy_SetConcurrencyLimits, "?SetConcurrencyLimits@SchedulerPolicy@Concurrency@@QAEXII@Z");
 347         SET(p_SchedulerPolicy_dtor, "??1SchedulerPolicy@Concurrency@@QAE@XZ");
 348         SET(p_Scheduler_Create, "?Create@Scheduler@Concurrency@@SAPAV12@ABVSchedulerPolicy@2@@Z");
 349         SET(p_CurrentScheduler_Get, "?Get@CurrentScheduler@Concurrency@@SAPAVScheduler@2@XZ");
 350     }
 351
 352     init_thiscall_thunk();
 353     return TRUE;
 354 }
 355
 356 #define NUMELMS(array) (sizeof(array)/sizeof((array)[0]))
 357
 358 #define okwchars(dst, b0, b1, b2, b3, b4, b5, b6, b7) \
 359     ok(dst[0] == b0 && dst[1] == b1 && dst[2] == b2 && dst[3] == b3 && \
 360        dst[4] == b4 && dst[5] == b5 && dst[6] == b6 && dst[7] == b7, \
 361        "Bad result: 0x%04x 0x%04x 0x%04x 0x%04x 0x%04x 0x%04x 0x%04x 0x%04x\n",\
 362        dst[0], dst[1], dst[2], dst[3], dst[4], dst[5], dst[6], dst[7])
 363
 364 static void test_wmemcpy_s(void)
 365 {
 366     static wchar_t dest[8];
 367     static const wchar_t tiny[] = {'T',0,'I','N','Y',0};
 368     static const wchar_t big[] = {'a','t','o','o','l','o','n','g','s','t','r','i','n','g',0};
 369     const wchar_t XX = 0x5858;     /* two 'X' bytes */
 370     int ret;
 371
 372     ok(p_set_invalid_parameter_handler(test_invalid_parameter_handler) == NULL,
 373             "Invalid parameter handler was already set\n");
 374
 375     /* Normal */
 376     memset(dest, 'X', sizeof(dest));
 377     ret = p_wmemcpy_s(dest, NUMELMS(dest), tiny, NUMELMS(tiny));
 378     ok(ret == 0, "Copying a buffer into a big enough destination returned %d, expected 0\n", ret);
 379     okwchars(dest, tiny[0], tiny[1], tiny[2], tiny[3], tiny[4], tiny[5], XX, XX);
 380
 381     /* Vary source size */
 382     errno = 0xdeadbeef;
 383     SET_EXPECT(invalid_parameter_handler);
 384     memset(dest, 'X', sizeof(dest));
 385     ret = p_wmemcpy_s(dest, NUMELMS(dest), big, NUMELMS(big));
 386     ok(errno == ERANGE, "Copying a big buffer to a small destination errno %d, expected ERANGE\n", errno);
 387     ok(ret == ERANGE, "Copying a big buffer to a small destination returned %d, expected ERANGE\n", ret);
 388     okwchars(dest, 0, 0, 0, 0, 0, 0, 0, 0);
 389     CHECK_CALLED(invalid_parameter_handler);
 390
 391     /* Replace source with NULL */
 392     errno = 0xdeadbeef;
 393     SET_EXPECT(invalid_parameter_handler);
 394     memset(dest, 'X', sizeof(dest));
 395     ret = p_wmemcpy_s(dest, NUMELMS(dest), NULL, NUMELMS(tiny));
 396     ok(errno == EINVAL, "Copying a NULL source buffer errno %d, expected EINVAL\n", errno);
 397     ok(ret == EINVAL, "Copying a NULL source buffer returned %d, expected EINVAL\n", ret);
 398     okwchars(dest, 0, 0, 0, 0, 0, 0, 0, 0);
 399     CHECK_CALLED(invalid_parameter_handler);
 400
 401     /* Vary dest size */
 402     errno = 0xdeadbeef;
 403     SET_EXPECT(invalid_parameter_handler);
 404     memset(dest, 'X', sizeof(dest));
 405     ret = p_wmemcpy_s(dest, 0, tiny, NUMELMS(tiny));
 406     ok(errno == ERANGE, "Copying into a destination of size 0 errno %d, expected ERANGE\n", errno);
 407     ok(ret == ERANGE, "Copying into a destination of size 0 returned %d, expected ERANGE\n", ret);
 408     okwchars(dest, XX, XX, XX, XX, XX, XX, XX, XX);
 409     CHECK_CALLED(invalid_parameter_handler);
 410
 411     /* Replace dest with NULL */
 412     errno = 0xdeadbeef;
 413     SET_EXPECT(invalid_parameter_handler);
 414     ret = p_wmemcpy_s(NULL, NUMELMS(dest), tiny, NUMELMS(tiny));
 415     ok(errno == EINVAL, "Copying a tiny buffer to a big NULL destination errno %d, expected EINVAL\n", errno);
 416     ok(ret == EINVAL, "Copying a tiny buffer to a big NULL destination returned %d, expected EINVAL\n", ret);
 417     CHECK_CALLED(invalid_parameter_handler);
 418
 419     /* Combinations */
 420     errno = 0xdeadbeef;
 421     SET_EXPECT(invalid_parameter_handler);
 422     memset(dest, 'X', sizeof(dest));
 423     ret = p_wmemcpy_s(dest, 0, NULL, NUMELMS(tiny));
 424     ok(errno == EINVAL, "Copying a NULL buffer into a destination of size 0 errno %d, expected EINVAL\n", errno);
 425     ok(ret == EINVAL, "Copying a NULL buffer into a destination of size 0 returned %d, expected EINVAL\n", ret);
 426     okwchars(dest, XX, XX, XX, XX, XX, XX, XX, XX);
 427     CHECK_CALLED(invalid_parameter_handler);
 428
 429     ok(p_set_invalid_parameter_handler(NULL) == test_invalid_parameter_handler,
 430             "Cannot reset invalid parameter handler\n");
 431 }
 432
 433 static void test_wmemmove_s(void)
 434 {
 435     static wchar_t dest[8];
 436     static const wchar_t tiny[] = {'T',0,'I','N','Y',0};
 437     static const wchar_t big[] = {'a','t','o','o','l','o','n','g','s','t','r','i','n','g',0};
 438     const wchar_t XX = 0x5858;     /* two 'X' bytes */
 439     int ret;
 440
 441     ok(p_set_invalid_parameter_handler(test_invalid_parameter_handler) == NULL,
 442             "Invalid parameter handler was already set\n");
 443
 444     /* Normal */
 445     memset(dest, 'X', sizeof(dest));
 446     ret = p_wmemmove_s(dest, NUMELMS(dest), tiny, NUMELMS(tiny));
 447     ok(ret == 0, "Moving a buffer into a big enough destination returned %d, expected 0\n", ret);
 448     okwchars(dest, tiny[0], tiny[1], tiny[2], tiny[3], tiny[4], tiny[5], XX, XX);
 449
 450     /* Overlapping */
 451     memcpy(dest, big, sizeof(dest));
 452     ret = p_wmemmove_s(dest+1, NUMELMS(dest)-1, dest, NUMELMS(dest)-1);
 453     ok(ret == 0, "Moving a buffer up one char returned %d, expected 0\n", ret);
 454     okwchars(dest, big[0], big[0], big[1], big[2], big[3], big[4], big[5], big[6]);
 455
 456     /* Vary source size */
 457     errno = 0xdeadbeef;
 458     SET_EXPECT(invalid_parameter_handler);
 459     memset(dest, 'X', sizeof(dest));
 460     ret = p_wmemmove_s(dest, NUMELMS(dest), big, NUMELMS(big));
 461     ok(errno == ERANGE, "Moving a big buffer to a small destination errno %d, expected ERANGE\n", errno);
 462     ok(ret == ERANGE, "Moving a big buffer to a small destination returned %d, expected ERANGE\n", ret);
 463     okwchars(dest, XX, XX, XX, XX, XX, XX, XX, XX);
 464     CHECK_CALLED(invalid_parameter_handler);
 465
 466     /* Replace source with NULL */
 467     errno = 0xdeadbeef;
 468     SET_EXPECT(invalid_parameter_handler);
 469     memset(dest, 'X', sizeof(dest));
 470     ret = p_wmemmove_s(dest, NUMELMS(dest), NULL, NUMELMS(tiny));
 471     ok(errno == EINVAL, "Moving a NULL source buffer errno %d, expected EINVAL\n", errno);
 472     ok(ret == EINVAL, "Moving a NULL source buffer returned %d, expected EINVAL\n", ret);
 473     okwchars(dest, XX, XX, XX, XX, XX, XX, XX, XX);
 474     CHECK_CALLED(invalid_parameter_handler);
 475
 476     /* Vary dest size */
 477     errno = 0xdeadbeef;
 478     SET_EXPECT(invalid_parameter_handler);
 479     memset(dest, 'X', sizeof(dest));
 480     ret = p_wmemmove_s(dest, 0, tiny, NUMELMS(tiny));
 481     ok(errno == ERANGE, "Moving into a destination of size 0 errno %d, expected ERANGE\n", errno);
 482     ok(ret == ERANGE, "Moving into a destination of size 0 returned %d, expected ERANGE\n", ret);
 483     okwchars(dest, XX, XX, XX, XX, XX, XX, XX, XX);
 484     CHECK_CALLED(invalid_parameter_handler);
 485
 486     /* Replace dest with NULL */
 487     errno = 0xdeadbeef;
 488     SET_EXPECT(invalid_parameter_handler);
 489     ret = p_wmemmove_s(NULL, NUMELMS(dest), tiny, NUMELMS(tiny));
 490     ok(errno == EINVAL, "Moving a tiny buffer to a big NULL destination errno %d, expected EINVAL\n", errno);
 491     ok(ret == EINVAL, "Moving a tiny buffer to a big NULL destination returned %d, expected EINVAL\n", ret);
 492     CHECK_CALLED(invalid_parameter_handler);
 493
 494     /* Combinations */
 495     errno = 0xdeadbeef;
 496     SET_EXPECT(invalid_parameter_handler);
 497     memset(dest, 'X', sizeof(dest));
 498     ret = p_wmemmove_s(dest, 0, NULL, NUMELMS(tiny));
 499     ok(errno == EINVAL, "Moving a NULL buffer into a destination of size 0 errno %d, expected EINVAL\n", errno);
 500     ok(ret == EINVAL, "Moving a NULL buffer into a destination of size 0 returned %d, expected EINVAL\n", ret);
 501     okwchars(dest, XX, XX, XX, XX, XX, XX, XX, XX);
 502     CHECK_CALLED(invalid_parameter_handler);
 503
 504     ok(p_set_invalid_parameter_handler(NULL) == test_invalid_parameter_handler,
 505             "Cannot reset invalid parameter handler\n");
 506 }
 507
 508 struct block_file_arg
 509 {
 510     FILE *test_file;
 511     HANDLE init;
 512     HANDLE finish;
 513 };
 514
 515 static DWORD WINAPI block_file(void *arg)
 516 {
 517     struct block_file_arg *files = arg;
 518     p_lock_file(files->test_file);
 519     SetEvent(files->init);
 520     WaitForSingleObject(files->finish, INFINITE);
 521     p_unlock_file(files->test_file);
 522     return 0;
 523 }
 524
 525 static void test_fread_s(void)
 526 {
 527     static const char test_file[] = "fread_s.tst";
 528     int ret;
 529     char buf[10];
 530     HANDLE thread;
 531     struct block_file_arg arg;
 532
 533     FILE *f = fopen(test_file, "w");
 534     if(!f) {
 535         skip("Error creating test file\n");
 536         return;
 537     }
 538     fwrite("test", 1, 4, f);
 539     fclose(f);
 540
 541     ok(p_set_invalid_parameter_handler(test_invalid_parameter_handler) == NULL,
 542             "Invalid parameter handler was already set\n");
 543
 544     SET_EXPECT(invalid_parameter_handler);
 545     errno = 0xdeadbeef;
 546     ret = p_fread_s(buf, sizeof(buf), 1, 1, NULL);
 547     ok(ret == 0, "fread_s returned %d, expected 0\n", ret);
 548     ok(errno == EINVAL, "errno = %d, expected EINVAL\n", errno);
 549     CHECK_CALLED(invalid_parameter_handler);
 550
 551     f = p_fopen(test_file, "r");
 552     arg.test_file = f;
 553     arg.init = CreateEventW(NULL, FALSE, FALSE, NULL);
 554     arg.finish = CreateEventW(NULL, FALSE, FALSE, NULL);
 555     thread = CreateThread(NULL, 0, block_file, (void*)&arg, 0, NULL);
 556     WaitForSingleObject(arg.init, INFINITE);
 557
 558     errno = 0xdeadbeef;
 559     ret = p_fread_s(NULL, sizeof(buf), 0, 1, f);
 560     ok(ret == 0, "fread_s returned %d, expected 0\n", ret);
 561     ok(errno == 0xdeadbeef, "errno = %d, expected 0xdeadbeef\n", errno);
 562     ret = p_fread_s(NULL, sizeof(buf), 1, 0, f);
 563     ok(ret == 0, "fread_s returned %d, expected 0\n", ret);
 564     ok(errno == 0xdeadbeef, "errno = %d, expected 0xdeadbeef\n", errno);
 565
 566     SetEvent(arg.finish);
 567     WaitForSingleObject(thread, INFINITE);
 568
 569     SET_EXPECT(invalid_parameter_handler);
 570     errno = 0xdeadbeef;
 571     ret = p_fread_s(NULL, sizeof(buf), 1, 1, f);
 572     ok(ret == 0, "fread_s returned %d, expected 0\n", ret);
 573     ok(errno == EINVAL, "errno = %d, expected EINVAL\n", errno);
 574     CHECK_CALLED(invalid_parameter_handler);
 575
 576     SET_EXPECT(invalid_parameter_handler);
 577     errno = 0xdeadbeef;
 578     buf[1] = 'a';
 579     ret = p_fread_s(buf, 3, 1, 10, f);
 580     ok(ret == 0, "fread_s returned %d, expected 0\n", ret);
 581     ok(buf[0] == 0, "buf[0] = '%c', expected 0\n", buf[0]);
 582     ok(buf[1] == 0, "buf[1] = '%c', expected 0\n", buf[1]);
 583     ok(errno == ERANGE, "errno = %d, expected ERANGE\n", errno);
 584     CHECK_CALLED(invalid_parameter_handler);
 585
 586     SET_EXPECT(invalid_parameter_handler);
 587     errno = 0xdeadbeef;
 588     ret = p_fread_s(buf, 2, 1, 10, f);
 589     ok(ret == 0, "fread_s returned %d, expected 0\n", ret);
 590     ok(buf[0] == 0, "buf[0] = '%c', expected 0\n", buf[0]);
 591     ok(errno == ERANGE, "errno = %d, expected ERANGE\n", errno);
 592     CHECK_CALLED(invalid_parameter_handler);
 593
 594     memset(buf, 'a', sizeof(buf));
 595     ret = p_fread_s(buf, sizeof(buf), 3, 10, f);
 596     ok(ret==1, "fread_s returned %d, expected 1\n", ret);
 597     ok(buf[0] == 'e', "buf[0] = '%c', expected 'e'\n", buf[0]);
 598     ok(buf[1] == 's', "buf[1] = '%c', expected 's'\n", buf[1]);
 599     ok(buf[2] == 't', "buf[2] = '%c', expected 't'\n", buf[2]);
 600     ok(buf[3] == 'a', "buf[3] = '%c', expected 'a'\n", buf[3]);
 601     p_fclose(f);
 602
 603     ok(p_set_invalid_parameter_handler(NULL) == test_invalid_parameter_handler,
 604             "Cannot reset invalid parameter handler\n");
 605     CloseHandle(arg.init);
 606     CloseHandle(arg.finish);
 607     CloseHandle(thread);
 608     unlink(test_file);
 609 }
 610
 611 static void test__aligned_msize(void)
 612 {
 613     void *mem;
 614     int ret;
 615
 616     mem = p__aligned_offset_malloc(23, 16, 7);
 617     ret = p__aligned_msize(mem, 16, 7);
 618     ok(ret == 23, "_aligned_msize returned %d\n", ret);
 619     ret = p__aligned_msize(mem, 15, 7);
 620     ok(ret == 24, "_aligned_msize returned %d\n", ret);
 621     ret = p__aligned_msize(mem, 11, 7);
 622     ok(ret == 28, "_aligned_msize returned %d\n", ret);
 623     ret = p__aligned_msize(mem, 1, 7);
 624     ok(ret == 39-sizeof(void*), "_aligned_msize returned %d\n", ret);
 625     ret = p__aligned_msize(mem, 8, 0);
 626     todo_wine ok(ret == 32, "_aligned_msize returned %d\n", ret);
 627     p__aligned_free(mem);
 628
 629     mem = p__aligned_offset_malloc(3, 16, 0);
 630     ret = p__aligned_msize(mem, 16, 0);
 631     ok(ret == 3, "_aligned_msize returned %d\n", ret);
 632     ret = p__aligned_msize(mem, 11, 0);
 633     ok(ret == 8, "_aligned_msize returned %d\n", ret);
 634     p__aligned_free(mem);
 635 }
 636
 637 static void test_atoi(void)
 638 {
 639     int r;
 640
 641     r = p_atoi("0");
 642     ok(r == 0, "atoi(0) = %d\n", r);
 643
 644     r = p_atoi("-1");
 645     ok(r == -1, "atoi(-1) = %d\n", r);
 646
 647     r = p_atoi("1");
 648     ok(r == 1, "atoi(1) = %d\n", r);
 649
 650     r = p_atoi("4294967296");
 651     ok(r == 2147483647, "atoi(4294967296) = %d\n", r);
 652 }
 653
 654 static void __cdecl test_yield_func(void)
 655 {
 656     CHECK_EXPECT(yield_func);
 657 }
 658
 659 static void test__SpinWait(void)
 660 {
 661     SpinWait sp;
 662     ULONG ul;
 663     MSVCRT_bool b;
 664
 665     call_func2(pSpinWait_ctor_yield, &sp, test_yield_func);
 666
 667     SET_EXPECT(yield_func);
 668     call_func1(pSpinWait__DoYield, &sp);
 669     CHECK_CALLED(yield_func);
 670
 671     ul = call_func1(pSpinWait__NumberOfSpins, &sp);
 672     ok(ul == 1, "_SpinWait::_NumberOfSpins returned %u\n", ul);
 673
 674     sp.spin = 2;
 675     b = call_func1(pSpinWait__ShouldSpinAgain, &sp);
 676     ok(b, "_SpinWait::_ShouldSpinAgain returned %x\n", b);
 677     ok(sp.spin == 1, "sp.spin = %u\n", sp.spin);
 678     b = call_func1(pSpinWait__ShouldSpinAgain, &sp);
 679     ok(!b, "_SpinWait::_ShouldSpinAgain returned %x\n", b);
 680     ok(sp.spin == 0, "sp.spin = %u\n", sp.spin);
 681     b = call_func1(pSpinWait__ShouldSpinAgain, &sp);
 682     ok(b, "_SpinWait::_ShouldSpinAgain returned %x\n", b);
 683     ok(sp.spin == -1, "sp.spin = %u\n", sp.spin);
 684
 685     call_func2(pSpinWait__SetSpinCount, &sp, 2);
 686     b = call_func1(pSpinWait__SpinOnce, &sp);
 687     ok(b, "_SpinWait::_SpinOnce returned %x\n", b);
 688     ok(sp.spin == 1, "sp.spin = %u\n", sp.spin);
 689     b = call_func1(pSpinWait__SpinOnce, &sp);
 690     ok(b, "_SpinWait::_SpinOnce returned %x\n", b);
 691     ok(sp.spin == 0, "sp.spin = %u\n", sp.spin);
 692     SET_EXPECT(yield_func);
 693     b = call_func1(pSpinWait__SpinOnce, &sp);
 694     ok(b, "_SpinWait::_SpinOnce returned %x\n", b);
 695     ok(sp.spin == 0, "sp.spin = %u\n", sp.spin);
 696     CHECK_CALLED(yield_func);
 697     b = call_func1(pSpinWait__SpinOnce, &sp);
 698     ok(!b, "_SpinWait::_SpinOnce returned %x\n", b);
 699     ok(sp.spin==0 || sp.spin==4000, "sp.spin = %u\n", sp.spin);
 700
 701     call_func1(pSpinWait_dtor, &sp);
 702 }
 703
 704 static DWORD WINAPI lock_read_thread(void *rw_lock)
 705 {
 706     return (MSVCRT_bool)call_func1(preader_writer_lock_try_lock_read, rw_lock);
 707 }
 708
 709 static void test_reader_writer_lock(void)
 710 {
 711     /* define reader_writer_lock data big enough to hold every version of structure */
 712     char rw_lock[100];
 713     MSVCRT_bool ret;
 714     HANDLE thread;
 715     DWORD d;
 716
 717     call_func1(preader_writer_lock_ctor, rw_lock);
 718
 719     ret = call_func1(preader_writer_lock_try_lock, rw_lock);
 720     ok(ret, "reader_writer_lock:try_lock returned %x\n", ret);
 721     ret = call_func1(preader_writer_lock_try_lock, rw_lock);
 722     ok(!ret, "reader_writer_lock:try_lock returned %x\n", ret);
 723     ret = call_func1(preader_writer_lock_try_lock_read, rw_lock);
 724     ok(!ret, "reader_writer_lock:try_lock_read returned %x\n", ret);
 725     call_func1(preader_writer_lock_unlock, rw_lock);
 726
 727     /* test lock for read on already locked section */
 728     ret = call_func1(preader_writer_lock_try_lock_read, rw_lock);
 729     ok(ret, "reader_writer_lock:try_lock_read returned %x\n", ret);
 730     ret = call_func1(preader_writer_lock_try_lock_read, rw_lock);
 731     ok(ret, "reader_writer_lock:try_lock_read returned %x\n", ret);
 732     ret = call_func1(preader_writer_lock_try_lock, rw_lock);
 733     ok(!ret, "reader_writer_lock:try_lock returned %x\n", ret);
 734     call_func1(preader_writer_lock_unlock, rw_lock);
 735     ret = call_func1(preader_writer_lock_try_lock, rw_lock);
 736     ok(!ret, "reader_writer_lock:try_lock returned %x\n", ret);
 737     call_func1(preader_writer_lock_unlock, rw_lock);
 738     ret = call_func1(preader_writer_lock_try_lock, rw_lock);
 739     ok(ret, "reader_writer_lock:try_lock returned %x\n", ret);
 740     call_func1(preader_writer_lock_unlock, rw_lock);
 741
 742     call_func1(preader_writer_lock_lock, rw_lock);
 743     thread = CreateThread(NULL, 0, lock_read_thread, rw_lock, 0, NULL);
 744     ok(thread != NULL, "CreateThread failed: %d\n", GetLastError());
 745     WaitForSingleObject(thread, INFINITE);
 746     ok(GetExitCodeThread(thread, &d), "GetExitCodeThread failed\n");
 747     ok(!d, "reader_writer_lock::try_lock_read succeeded on already locked object\n");
 748     CloseHandle(thread);
 749     call_func1(preader_writer_lock_unlock, rw_lock);
 750
 751     call_func1(preader_writer_lock_lock_read, rw_lock);
 752     thread = CreateThread(NULL, 0, lock_read_thread, rw_lock, 0, NULL);
 753     ok(thread != NULL, "CreateThread failed: %d\n", GetLastError());
 754     WaitForSingleObject(thread, INFINITE);
 755     ok(GetExitCodeThread(thread, &d), "GetExitCodeThread failed\n");
 756     ok(d, "reader_writer_lock::try_lock_read failed on object locked for reading\n");
 757     CloseHandle(thread);
 758     call_func1(preader_writer_lock_unlock, rw_lock);
 759
 760     call_func1(preader_writer_lock_dtor, rw_lock);
 761 }
 762
 763 static void test__ReentrantBlockingLock(void)
 764 {
 765     _ReentrantBlockingLock rbl;
 766     MSVCRT_bool ret;
 767
 768     call_func1(p_ReentrantBlockingLock_ctor, &rbl);
 769     ret = call_func1(p_ReentrantBlockingLock__TryAcquire, &rbl);
 770     ok(ret, "_ReentrantBlockingLock__TryAcquire failed\n");
 771     call_func1(p_ReentrantBlockingLock__Acquire, &rbl);
 772     ret = call_func1(p_ReentrantBlockingLock__TryAcquire, &rbl);
 773     ok(ret, "_ReentrantBlockingLock__TryAcquire failed\n");
 774     call_func1(p_ReentrantBlockingLock__Release, &rbl);
 775     call_func1(p_ReentrantBlockingLock__Release, &rbl);
 776     call_func1(p_ReentrantBlockingLock__Release, &rbl);
 777     call_func1(p_ReentrantBlockingLock_dtor, &rbl);
 778
 779     call_func1(p_NonReentrantBlockingLock_ctor, &rbl);
 780     ret = call_func1(p_NonReentrantBlockingLock__TryAcquire, &rbl);
 781     ok(ret, "_NonReentrantBlockingLock__TryAcquire failed\n");
 782     call_func1(p_NonReentrantBlockingLock__Acquire, &rbl);
 783     ret = call_func1(p_NonReentrantBlockingLock__TryAcquire, &rbl);
 784     ok(ret, "_NonReentrantBlockingLock__TryAcquire failed\n");
 785     call_func1(p_NonReentrantBlockingLock__Release, &rbl);
 786     call_func1(p_NonReentrantBlockingLock__Release, &rbl);
 787     call_func1(p_NonReentrantBlockingLock__Release, &rbl);
 788     call_func1(p_NonReentrantBlockingLock_dtor, &rbl);
 789 }
 790
 791 static DWORD WINAPI test_event_thread(void *arg)
 792 {
 793     event *evt = arg;
 794     call_func1(p_event_set, evt);
 795     return 0;
 796 }
 797
 798 static DWORD WINAPI multiple_events_thread(void *arg)
 799 {
 800      event **events = arg;
 801
 802      Sleep(50);
 803      call_func1(p_event_set, events[0]);
 804      call_func1(p_event_reset, events[0]);
 805      call_func1(p_event_set, events[1]);
 806      call_func1(p_event_reset, events[1]);
 807      return 0;
 808 }
 809
 810 static void test_event(void)
 811 {
 812     int i;
 813     int ret;
 814     event evt;
 815     event *evts[70];
 816     HANDLE thread;
 817     HANDLE threads[NUMELMS(evts)];
 818
 819     call_func1(p_event_ctor, &evt);
 820
 821     ret = call_func2(p_event_wait, &evt, 100);
 822     ok(ret == -1, "expected -1, got %d\n", ret);
 823
 824     call_func1(p_event_set, &evt);
 825     ret = call_func2(p_event_wait, &evt, 100);
 826     ok(!ret, "expected 0, got %d\n", ret);
 827
 828     ret = call_func2(p_event_wait, &evt, 100);
 829     ok(!ret, "expected 0, got %d\n", ret);
 830
 831     call_func1(p_event_reset, &evt);
 832     ret = call_func2(p_event_wait, &evt, 100);
 833     ok(ret == -1, "expected -1, got %d\n", ret);
 834
 835     thread = CreateThread(NULL, 0, test_event_thread, (void*)&evt, 0, NULL);
 836     ret = call_func2(p_event_wait, &evt, 5000);
 837     ok(!ret, "expected 0, got %d\n", ret);
 838     WaitForSingleObject(thread, INFINITE);
 839     CloseHandle(thread);
 840
 841     if (0) /* crashes on Windows */
 842         p_event_wait_for_multiple(NULL, 10, TRUE, 0);
 843
 844     for (i = 0; i < NUMELMS(evts); i++) {
 845         evts[i] = malloc(sizeof(evt));
 846         call_func1(p_event_ctor, evts[i]);
 847     }
 848
 849     ret = p_event_wait_for_multiple(evts, 0, TRUE, 100);
 850     ok(!ret, "expected 0, got %d\n", ret);
 851
 852     ret = p_event_wait_for_multiple(evts, NUMELMS(evts), TRUE, 100);
 853     ok(ret == -1, "expected -1, got %d\n", ret);
 854
 855     /* reset and test wait for multiple with all */
 856     for (i = 0; i < NUMELMS(evts); i++)
 857         threads[i] = CreateThread(NULL, 0, test_event_thread, (void*)evts[i], 0, NULL);
 858
 859     ret = p_event_wait_for_multiple(evts, NUMELMS(evts), TRUE, 5000);
 860     ok(ret != -1, "didn't expect -1\n");
 861
 862     for (i = 0; i < NUMELMS(evts); i++) {
 863         WaitForSingleObject(threads[i], INFINITE);
 864         CloseHandle(threads[i]);
 865     }
 866
 867     /* reset and test wait for multiple with any */
 868     call_func1(p_event_reset, evts[0]);
 869
 870     thread = CreateThread(NULL, 0, test_event_thread, (void*)evts[0], 0, NULL);
 871     ret = p_event_wait_for_multiple(evts, 1, FALSE, 5000);
 872     ok(!ret, "expected 0, got %d\n", ret);
 873     WaitForSingleObject(thread, INFINITE);
 874     CloseHandle(thread);
 875
 876     call_func1(p_event_reset, evts[0]);
 877     call_func1(p_event_reset, evts[1]);
 878     thread = CreateThread(NULL, 0, multiple_events_thread, (void*)evts, 0, NULL);
 879     ret = p_event_wait_for_multiple(evts, 2, TRUE, 500);
 880     ok(ret == -1, "expected -1, got %d\n", ret);
 881     WaitForSingleObject(thread, INFINITE);
 882     CloseHandle(thread);
 883
 884     call_func1(p_event_reset, evts[0]);
 885     call_func1(p_event_set, evts[1]);
 886     ret = p_event_wait_for_multiple(evts, 2, FALSE, 0);
 887     ok(ret == 1, "expected 1, got %d\n", ret);
 888
 889     for (i = 0; i < NUMELMS(evts); i++) {
 890         call_func1(p_event_dtor, evts[i]);
 891         free(evts[i]);
 892     }
 893
 894     call_func1(p_event_dtor, &evt);
 895 }
 896
 897 static DWORD WINAPI external_context_thread(void *arg)
 898 {
 899     unsigned int id;
 900     Context *ctx;
 901
 902     id = p_Context_Id();
 903     ok(id == -1, "Context::Id() = %u\n", id);
 904
 905     ctx = p_Context_CurrentContext();
 906     ok(ctx != NULL, "Context::CurrentContext() = NULL\n");
 907     id = p_Context_Id();
 908     ok(id == 1, "Context::Id() = %u\n", id);
 909     return 0;
 910 }
 911
 912 static void test_ExternalContextBase(void)
 913 {
 914     unsigned int id;
 915     Context *ctx;
 916     HANDLE thread;
 917
 918     id = p_Context_Id();
 919     ok(id == -1, "Context::Id() = %u\n", id);
 920
 921     ctx = p_Context_CurrentContext();
 922     ok(ctx != NULL, "Context::CurrentContext() = NULL\n");
 923     id = p_Context_Id();
 924     ok(id == 0, "Context::Id() = %u\n", id);
 925
 926     ctx = p_Context_CurrentContext();
 927     ok(ctx != NULL, "Context::CurrentContext() = NULL\n");
 928     id = p_Context_Id();
 929     ok(id == 0, "Context::Id() = %u\n", id);
 930
 931     thread = CreateThread(NULL, 0, external_context_thread, NULL, 0, NULL);
 932     ok(thread != NULL, "CreateThread failed: %d\n", GetLastError());
 933     WaitForSingleObject(thread, INFINITE);
 934 }
 935
 936 static void test_Scheduler(void)
 937 {
 938     Scheduler *scheduler, *current_scheduler;
 939     SchedulerPolicy policy;
 940     unsigned int i;
 941
 942     call_func1(p_SchedulerPolicy_ctor, &policy);
 943     scheduler = p_Scheduler_Create(&policy);
 944     ok(scheduler != NULL, "Scheduler::Create() = NULL\n");
 945
 946     call_func1(scheduler->vtable->Attach, scheduler);
 947     current_scheduler = p_CurrentScheduler_Get();
 948     ok(current_scheduler == scheduler, "CurrentScheduler::Get() = %p, expected %p\n",
 949             current_scheduler, scheduler);
 950     p_CurrentScheduler_Detach();
 951
 952     current_scheduler = p_CurrentScheduler_Get();
 953     ok(current_scheduler != scheduler, "scheduler has not changed after detach\n");
 954     call_func1(scheduler->vtable->Release, scheduler);
 955
 956     i = p_CurrentScheduler_Id();
 957     ok(!i, "CurrentScheduler::Id() = %u\n", i);
 958
 959     call_func3(p_SchedulerPolicy_SetConcurrencyLimits, &policy, 1, 1);
 960     scheduler = p_Scheduler_Create(&policy);
 961     ok(scheduler != NULL, "Scheduler::Create() = NULL\n");
 962
 963     i = call_func1(scheduler->vtable->GetNumberOfVirtualProcessors, scheduler);
 964     ok(i == 1, "Scheduler::GetNumberOfVirtualProcessors() = %u\n", i);
 965     call_func1(scheduler->vtable->Release, scheduler);
 966     call_func1(p_SchedulerPolicy_dtor, &policy);
 967 }
 968
 969 START_TEST(msvcr100)
 970 {
 971     if (!init())
 972         return;
 973
 974     test_ExternalContextBase();
 975     test_Scheduler();
 976     test_wmemcpy_s();
 977     test_wmemmove_s();
 978     test_fread_s();
 979     test__aligned_msize();
 980     test_atoi();
 981     test__SpinWait();
 982     test_reader_writer_lock();
 983     test__ReentrantBlockingLock();
 984     test_event();
 985 }