Piotr Caban : msvcp100/tests: Added _Yarn<char> class tests.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: bdac12949c689ae10dc3315c2811b822b6bf1a53
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=bdac12949c689ae10dc3315c28...

Author: Piotr Caban <piotr(a)codeweavers.com>
Date:   Wed Oct 17 09:56:37 2012 +0200

msvcp100/tests: Added _Yarn<char> class tests.

---

 configure                       |    1 +
 configure.ac                    |    1 +
 dlls/msvcp100/tests/Makefile.in |    9 ++
 dlls/msvcp100/tests/string.c    |  168 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 179 insertions(+), 0 deletions(-)

diff --git a/configure b/configure
index 4350884..217d06e 100755
--- a/configure
+++ b/configure
@@ -15608,6 +15608,7 @@ wine_fn_config_dll msvcirt enable_msvcirt
 wine_fn_config_dll msvcm80 enable_msvcm80
 wine_fn_config_dll msvcm90 enable_msvcm90
 wine_fn_config_dll msvcp100 enable_msvcp100
+wine_fn_config_test dlls/msvcp100/tests msvcp100_test
 wine_fn_config_dll msvcp60 enable_msvcp60
 wine_fn_config_dll msvcp70 enable_msvcp70
 wine_fn_config_dll msvcp71 enable_msvcp71
diff --git a/configure.ac b/configure.ac
index fc1d93c..d5d99f0 100644
--- a/configure.ac
+++ b/configure.ac
@@ -2831,6 +2831,7 @@ WINE_CONFIG_DLL(msvcirt)
 WINE_CONFIG_DLL(msvcm80)
 WINE_CONFIG_DLL(msvcm90)
 WINE_CONFIG_DLL(msvcp100)
+WINE_CONFIG_TEST(dlls/msvcp100/tests)
 WINE_CONFIG_DLL(msvcp60)
 WINE_CONFIG_DLL(msvcp70)
 WINE_CONFIG_DLL(msvcp71)
diff --git a/dlls/msvcp100/tests/Makefile.in b/dlls/msvcp100/tests/Makefile.in
new file mode 100644
index 0000000..fe92d54
--- /dev/null
+++ b/dlls/msvcp100/tests/Makefile.in
@@ -0,0 +1,9 @@
+TESTDLL   = msvcp100.dll
+APPMODE   = -mno-cygwin
+MODCFLAGS = @BUILTINFLAG@
+EXTRAINCL = -I$(top_srcdir)/include/msvcrt
+
+C_SRCS = \
+	string.c
+
+(a)MAKE_TEST_RULES@
diff --git a/dlls/msvcp100/tests/string.c b/dlls/msvcp100/tests/string.c
new file mode 100644
index 0000000..b33b145
--- /dev/null
+++ b/dlls/msvcp100/tests/string.c
@@ -0,0 +1,168 @@
+/*
+ * Copyright 2012 Piotr Caban for CodeWeavers
+ *
+ * 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 <stdio.h>
+#include <limits.h>
+
+#include <windef.h>
+#include <winbase.h>
+#include "wine/test.h"
+
+typedef struct
+{
+    char *str;
+    char null_str;
+} _Yarn_char;
+
+#undef __thiscall
+#ifdef __i386__
+#define __thiscall __stdcall
+#else
+#define __thiscall __cdecl
+#endif
+
+/* Emulate a __thiscall */
+#ifdef __i386__
+
+#include "pshpack1.h"
+struct thiscall_thunk
+{
+    BYTE pop_eax;    /* popl  %eax (ret addr) */
+    BYTE pop_edx;    /* popl  %edx (func) */
+    BYTE pop_ecx;    /* popl  %ecx (this) */
+    BYTE push_eax;   /* pushl %eax */
+    WORD jmp_edx;    /* jmp  *%edx */
+};
+#include "poppack.h"
+
+static void * (WINAPI *call_thiscall_func1)( void *func, void *this );
+static void * (WINAPI *call_thiscall_func2)( void *func, void *this, const void *a );
+
+static void init_thiscall_thunk(void)
+{
+    struct thiscall_thunk *thunk = VirtualAlloc( NULL, sizeof(*thunk),
+            MEM_COMMIT, PAGE_EXECUTE_READWRITE );
+    thunk->pop_eax  = 0x58;   /* popl  %eax */
+    thunk->pop_edx  = 0x5a;   /* popl  %edx */
+    thunk->pop_ecx  = 0x59;   /* popl  %ecx */
+    thunk->push_eax = 0x50;   /* pushl %eax */
+    thunk->jmp_edx  = 0xe2ff; /* jmp  *%edx */
+    call_thiscall_func1 = (void *)thunk;
+    call_thiscall_func2 = (void *)thunk;
+}
+
+#define call_func1(func,_this) call_thiscall_func1(func,_this)
+#define call_func2(func,_this,a) call_thiscall_func2(func,_this,(const void*)a)
+
+#else
+
+#define init_thiscall_thunk()
+#define call_func1(func,_this) func(_this)
+#define call_func2(func,_this,a) func(_this,a)
+
+#endif /* __i386__ */
+
+static _Yarn_char* (__thiscall *_Yarn_char_ctor_cstr)(_Yarn_char *this, const char *str);
+static _Yarn_char* (__thiscall *_Yarn_char_copy_ctor)(_Yarn_char *this, const _Yarn_char *copy);
+static void (__thiscall *_Yarn_char_dtor)(_Yarn_char *this);
+static const char* (__thiscall *_Yarn_char_c_str)(const _Yarn_char *this);
+static char (__thiscall *_Yarn_char_empty)(const _Yarn_char *this);
+
+#define SETNOFAIL(x,y) x = (void*)GetProcAddress(msvcp,y)
+#define SET(x,y) do { SETNOFAIL(x,y); ok(x != NULL, "Export '%s' not found\n", y); } while(0)
+static BOOL init(void)
+{
+    HMODULE msvcp = LoadLibraryA("msvcp100.dll");
+    if(!msvcp) {
+        win_skip("msvcp100.dll not installed\n");
+        return FALSE;
+    }
+
+    if(sizeof(void*) == 8) { /* 64-bit initialization */
+        SET(_Yarn_char_ctor_cstr, "??0?$_Yarn(a)D@std@@QEAA(a)PEBD@Z");
+        SET(_Yarn_char_copy_ctor, "??0?$_Yarn(a)D@std@@QEAA(a)AEBV01@@Z");
+        SET(_Yarn_char_dtor, "??1?$_Yarn(a)D@std@@QEAA(a)XZ");
+        SET(_Yarn_char_c_str, "?_C_str@?$_Yarn(a)D@std@@QEBAPEBDXZ");
+        SET(_Yarn_char_empty, "?_Empty@?$_Yarn(a)D@std@@QEBA_NXZ");
+    }else {
+        SET(_Yarn_char_ctor_cstr, "??0?$_Yarn(a)D@std@@QAE(a)PBD@Z");
+        SET(_Yarn_char_copy_ctor, "??0?$_Yarn(a)D@std@@QAE(a)ABV01@@Z");
+        SET(_Yarn_char_dtor, "??1?$_Yarn(a)D@std@@QAE(a)XZ");
+        SET(_Yarn_char_c_str, "?_C_str@?$_Yarn(a)D@std@@QBEPBDXZ");
+        SET(_Yarn_char_empty, "?_Empty@?$_Yarn(a)D@std@@QBE_NXZ");
+    }
+
+    init_thiscall_thunk();
+    return TRUE;
+}
+
+static void test__Yarn_char(void)
+{
+    _Yarn_char c1, c2;
+    char bool_ret;
+    const char *str;
+
+    call_func2(_Yarn_char_ctor_cstr, &c1, NULL);
+    ok(!c1.str, "c1.str = %s\n", c1.str);
+    ok(!c1.null_str, "c1.null_str = %d\n", c1.null_str);
+    bool_ret = (char)(INT_PTR)call_func1(_Yarn_char_empty, &c1);
+    ok(bool_ret == 1, "ret = %d\n", bool_ret);
+    str = call_func1(_Yarn_char_c_str, &c1);
+    ok(str == &c1.null_str, "str = %p, expected %p\n", str, &c1.null_str);
+    call_func1(_Yarn_char_dtor, &c1);
+
+    call_func2(_Yarn_char_ctor_cstr, &c1, "");
+    ok(c1.str != NULL, "c1.str = NULL\n");
+    ok(!strcmp(c1.str, ""), "c1.str = %s\n", c1.str);
+    ok(!c1.null_str, "c1.null_str = %d\n", c1.null_str);
+    bool_ret = (char)(INT_PTR)call_func1(_Yarn_char_empty, &c1);
+    ok(bool_ret == 0, "ret = %d\n", bool_ret);
+    str = call_func1(_Yarn_char_c_str, &c1);
+    ok(str == c1.str, "str = %p, expected %p\n", str, c1.str);
+    call_func1(_Yarn_char_dtor, &c1);
+
+    call_func2(_Yarn_char_ctor_cstr, &c1, "test");
+    ok(!strcmp(c1.str, "test"), "c1.str = %s\n", c1.str);
+    ok(!c1.null_str, "c1.null_str = %d\n", c1.null_str);
+    bool_ret = (char)(INT_PTR)call_func1(_Yarn_char_empty, &c1);
+    ok(bool_ret == 0, "ret = %d\n", bool_ret);
+    str = call_func1(_Yarn_char_c_str, &c1);
+    ok(str == c1.str, "str = %p, expected %p\n", str, c1.str);
+
+    call_func2(_Yarn_char_copy_ctor, &c2, &c1);
+    ok(c1.str != c2.str, "c1.str = c2.str\n");
+    ok(!strcmp(c2.str, "test"), "c2.str = %s\n", c2.str);
+    ok(!c2.null_str, "c2.null_str = %d\n", c2.null_str);
+    call_func1(_Yarn_char_dtor, &c2);
+
+    c1.null_str = 'a';
+    call_func2(_Yarn_char_copy_ctor, &c2, &c1);
+    ok(c1.str != c2.str, "c1.str = c2.str\n");
+    ok(!strcmp(c2.str, "test"), "c2.str = %s\n", c2.str);
+    ok(!c2.null_str, "c2.null_str = %d\n", c2.null_str);
+    call_func1(_Yarn_char_dtor, &c2);
+    call_func1(_Yarn_char_dtor, &c1);
+}
+
+START_TEST(string)
+{
+    if(!init())
+        return;
+
+    test__Yarn_char();
+}