msdasql/tests: Initial tests.

configure

@@ -19411,6 +19411,7 @@ wine_fn_config_makefile dlls/msctf/tests enable_tests
 wine_fn_config_makefile dlls/msctfp enable_msctfp
 wine_fn_config_makefile dlls/msdaps enable_msdaps
 wine_fn_config_makefile dlls/msdasql enable_msdasql
+wine_fn_config_makefile dlls/msdasql/tests enable_tests
 wine_fn_config_makefile dlls/msdelta enable_msdelta
 wine_fn_config_makefile dlls/msdmo enable_msdmo
 wine_fn_config_makefile dlls/msdmo/tests enable_tests

configure.ac

@@ -3120,6 +3120,7 @@ WINE_CONFIG_MAKEFILE(dlls/msctf/tests)
 WINE_CONFIG_MAKEFILE(dlls/msctfp)
 WINE_CONFIG_MAKEFILE(dlls/msdaps)
 WINE_CONFIG_MAKEFILE(dlls/msdasql)
+WINE_CONFIG_MAKEFILE(dlls/msdasql/tests)
 WINE_CONFIG_MAKEFILE(dlls/msdelta)
 WINE_CONFIG_MAKEFILE(dlls/msdmo)
 WINE_CONFIG_MAKEFILE(dlls/msdmo/tests)

dlls/msdasql/tests/Makefile.in

+TESTDLL   = msdasql.dll
+IMPORTS   = uuid oleaut32 ole32 odbccp32
+
+C_SRCS = \
+	provider.c

dlls/msdasql/tests/provider.c

+/*
+ * Copyright 2019 Alistair Leslie-Hughes
+ *
+ * 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>
+#define COBJMACROS
+
+#include "msdasc.h"
+#include "oledb.h"
+#include "odbcinst.h"
+
+#include "initguid.h"
+
+#include "msdasql.h"
+
+#include "wine/test.h"
+
+DEFINE_GUID(DBPROPSET_DBINITALL, 0xc8b522ca, 0x5cf3, 0x11ce, 0xad, 0xe5, 0x00, 0xaa, 0x00, 0x44, 0x77, 0x3d);
+
+static BOOL db_created;
+static char mdbpath[MAX_PATH];
+
+static void test_Properties(void)
+{
+    HRESULT hr;
+    IDBProperties *props;
+    DBPROPIDSET propidset;
+    ULONG infocount;
+    DBPROPINFOSET *propinfoset;
+    WCHAR *desc;
+
+    hr = CoCreateInstance( &CLSID_MSDASQL, NULL, CLSCTX_ALL, &IID_IDBProperties, (void **)&props);
+    ok(hr == S_OK, "Failed to create object 0x%08x\n", hr);
+
+    propidset.rgPropertyIDs = NULL;
+    propidset.cPropertyIDs = 0;
+    propidset.guidPropertySet = DBPROPSET_DBINITALL;
+
+    infocount = 0;
+    hr = IDBProperties_GetPropertyInfo(props, 1, &propidset, &infocount, &propinfoset, &desc);
+    todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
+    if (hr == S_OK)
+    {
+        ULONG i;
+
+        ok(propinfoset->cPropertyInfos == 14, "got %d\n", propinfoset->cPropertyInfos);
+
+        for (i = 0; i < propinfoset->cPropertyInfos; i++)
+        {
+            trace("%d: pwszDescription: %s\n", i, debugstr_w(propinfoset->rgPropertyInfos[i].pwszDescription) );
+        }
+
+        for (i = 0; i < propinfoset->cPropertyInfos; i++)
+            VariantClear(&propinfoset->rgPropertyInfos[i].vValues);
+
+        CoTaskMemFree(propinfoset->rgPropertyInfos);
+        CoTaskMemFree(propinfoset);
+    }
+
+    IDBProperties_Release(props);
+}
+
+static void test_command_interfaces(IUnknown *cmd)
+{
+    HRESULT hr;
+    ICommandProperties *commandProp;
+    ICommandText *comand_text;
+    IConvertType *convertype;
+    ICommandPrepare *commandprepare;
+    ICommandStream *commandstream;
+    IColumnsInfo *colinfo;
+    IMultipleResults *multiple;
+
+    hr = IUnknown_QueryInterface(cmd, &IID_ICommandProperties, (void**)&commandProp);
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+    ICommandProperties_Release(commandProp);
+
+    hr = IUnknown_QueryInterface(cmd, &IID_ICommandText, (void**)&comand_text);
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+    ICommandText_Release(comand_text);
+
+    hr = IUnknown_QueryInterface(cmd, &IID_IConvertType, (void**)&convertype);
+    todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
+    if (hr == S_OK)
+        IConvertType_Release(convertype);
+
+    hr = IUnknown_QueryInterface(cmd, &IID_ICommandPrepare, (void**)&commandprepare);
+    todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
+    if (hr == S_OK)
+        ICommandPrepare_Release(commandprepare);
+
+    hr = IUnknown_QueryInterface(cmd, &IID_IColumnsInfo, (void**)&colinfo);
+    todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
+    if (hr == S_OK)
+        IColumnsInfo_Release(colinfo);
+
+    hr = IUnknown_QueryInterface(cmd, &IID_ICommandStream, (void**)&commandstream);
+    ok(hr == E_NOINTERFACE, "got 0x%08x\n", hr);
+
+    hr = IUnknown_QueryInterface(cmd, &IID_IMultipleResults, (void**)&multiple);
+    ok(hr == E_NOINTERFACE, "got 0x%08x\n", hr);
+}
+
+static void test_sessions(void)
+{
+    IDBProperties *props;
+    IDBInitialize *dbinit = NULL;
+    IDataInitialize *datainit;
+    IDBCreateSession *dbsession = NULL;
+    IUnknown *session = NULL;
+    IOpenRowset *openrowset = NULL;
+    IDBCreateCommand *create_command = NULL;
+    IUnknown *cmd = NULL;
+    HRESULT hr;
+    BSTR connect_str;
+
+    if (!db_created)
+    {
+        skip("ODBC source wine_test not available.\n");
+        return;
+    }
+
+    connect_str = SysAllocString(L"Provider=MSDASQL.1;Persist Security Info=False;Data Source=wine_test");
+
+    hr = CoCreateInstance( &CLSID_MSDAINITIALIZE, NULL, CLSCTX_INPROC_SERVER, &IID_IDataInitialize,
+                                (void **)&datainit );
+    ok(hr == S_OK, "Failed to create object 0x%08x\n", hr);
+    hr = IDataInitialize_GetDataSource( datainit, NULL, CLSCTX_INPROC_SERVER, connect_str, &IID_IDBInitialize,
+                                             (IUnknown **)&dbinit );
+    SysFreeString(connect_str);
+    todo_wine ok(hr == S_OK, "got 0x%08x\n", hr);
+    if(FAILED(hr))
+    {
+        IDataInitialize_Release( datainit );
+        return;
+    }
+
+    hr = IDBInitialize_QueryInterface( dbinit, &IID_IDBProperties, (void **)&props );
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+    IDBProperties_Release(props);
+
+    hr = IDBInitialize_Initialize( dbinit );
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+    if(FAILED(hr))
+    {
+        IDBInitialize_Release( dbinit );
+        IDataInitialize_Release( datainit );
+        return;
+    }
+
+    hr = IDBInitialize_QueryInterface( dbinit, &IID_IDBCreateSession, (void **)&dbsession );
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+
+    hr = IDBCreateSession_CreateSession( dbsession, NULL, &IID_IUnknown, &session );
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+
+    hr = IUnknown_QueryInterface(session, &IID_IOpenRowset, (void**)&openrowset);
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+
+    hr = IOpenRowset_QueryInterface(openrowset, &IID_IDBCreateCommand, (void**)&create_command);
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+
+    hr = IDBCreateCommand_CreateCommand(create_command, NULL, &IID_IUnknown, (IUnknown **)&cmd);
+    ok(hr == S_OK, "got 0x%08x\n", hr);
+    if (hr == S_OK)
+    {
+        test_command_interfaces(cmd);
+        IUnknown_Release(cmd);
+    }
+
+    IDBCreateCommand_Release(create_command);
+    IOpenRowset_Release(openrowset);
+    IUnknown_Release( session );
+    IDBCreateSession_Release(dbsession);
+    IDBInitialize_Uninitialize( dbinit );
+    IDBInitialize_Release( dbinit );
+    IDataInitialize_Release( datainit );
+}
+
+static void setup_database(void)
+{
+    char *driver;
+    DWORD code;
+    char buffer[1024];
+    WORD size;
+
+    if (winetest_interactive)
+    {
+        trace("assuming odbc 'wine_test' is available\n");
+        db_created = TRUE;
+        return;
+    }
+
+    /*
+     * 32 bit Windows has a default driver for "Microsoft Access Driver" (Windows 7+)
+     *  and has the ability to create files on the fly.
+     *
+     * 64 bit Windows ONLY has a driver for "SQL Server", which we cannot use since we don't have a
+     *   server to connect to.
+     *
+     * The filename passed to CREATE_DB must end in mdb.
+     */
+    GetTempPathA(sizeof(mdbpath), mdbpath);
+    strcat(mdbpath, "wine_test.mdb");
+
+    driver = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof("DSN=wine_test\0CREATE_DB=") + strlen(mdbpath) + 2);
+    memcpy(driver, "DSN=wine_test\0CREATE_DB=", sizeof("DSN=wine_test\0CREATE_DB="));
+    strcat(driver+sizeof("DSN=wine_test\0CREATE_DB=")-1, mdbpath);
+
+    db_created = SQLConfigDataSource(NULL, ODBC_ADD_DSN, "Microsoft Access Driver (*.mdb)", driver);
+    if (!db_created)
+    {
+        SQLInstallerError(1, &code, buffer, sizeof(buffer), &size);
+        trace("code  %d, buffer %s, size %d\n", code, debugstr_a(buffer), size);
+
+        HeapFree(GetProcessHeap(), 0, driver);
+
+        return;
+    }
+
+    memcpy(driver, "DSN=wine_test\0DBQ=", sizeof("DSN=wine_test\0DBQ="));
+    strcat(driver+sizeof("DSN=wine_test\0DBQ=")-1, mdbpath);
+    db_created = SQLConfigDataSource(NULL, ODBC_ADD_DSN, "Microsoft Access Driver (*.mdb)", driver);
+
+    HeapFree(GetProcessHeap(), 0, driver);
+}
+
+static void cleanup_database(void)
+{
+    if (winetest_interactive)
+        return;
+
+    DeleteFileA(mdbpath);
+}
+
+START_TEST(provider)
+{
+    CoInitialize(0);
+
+    setup_database();
+
+    test_Properties();
+    test_sessions();
+
+    cleanup_database();
+
+    CoUninitialize();
+}