automation.c File Reference

#include <stdio.h>
#include <initguid.h>
#include <windows.h>
#include <msiquery.h>
#include <msidefs.h>
#include <msi.h>
#include <fci.h>
#include <oaidl.h>
#include "wine/test.h"

Include dependency graph for automation.c:

Go to the source code of this file.

Classes
struct	_msi_table
struct	_msi_summary_info
struct	get_did_t

Macros
#define	COBJMACROS
#define	ADD_TABLE(x)   {#x".idt", x##_dat, sizeof(x##_dat)}
#define	ADD_INFO_I2(property, iValue)   {property, VT_I2, iValue, NULL, NULL}
#define	ADD_INFO_I4(property, iValue)   {property, VT_I4, iValue, NULL, NULL}
#define	ADD_INFO_LPSTR(property, szValue)   {property, VT_LPSTR, 0, NULL, szValue}
#define	ADD_INFO_FILETIME(property, pftValue)   {property, VT_FILETIME, 0, pftValue, NULL}
#define	GET_PROC(dll, func)
#define	ok_w2(format, szString1, szString2)
#define	ok_w2n(format, szString1, szString2, len)
#define	ok_aw(format, aString, wString)
#define	ok_awplus(format, extra, aString, wString)
#define	ok_exception(hr, szDescription)
#define	TEST_SUMMARYINFO_PROPERTIES_MODIFIED   4

Typedefs
typedef struct _msi_table	msi_table
typedef struct _msi_summary_info	msi_summary_info

Functions
static	LONG (WINAPI *pRegDeleteKeyExA)(HKEY
static	BOOL (WINAPI *pIsWow64Process)(HANDLE
	DEFINE_GUID (GUID_NULL, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
static void	init_functionpointers (void)
static BOOL	is_process_limited (void)
static LONG	delete_key_portable (HKEY key, LPCSTR subkey, REGSAM access)
static void	write_file (const CHAR *filename, const char *data, int data_size)
static void	write_msi_summary_info (MSIHANDLE db, const msi_summary_info *info, int num_info)
static void	create_database (const CHAR *name, const msi_table *tables, int num_tables, const msi_summary_info *info, int num_info)
static BOOL	create_package (LPWSTR path)
static BOOL	get_program_files_dir (LPSTR buf)
static void	create_file (const CHAR *name, DWORD size)
static void	create_test_files (void)
static BOOL	delete_pf (const CHAR *rel_path, BOOL is_file)
static void	delete_test_files (void)
static DISPID	get_dispid (IDispatch *disp, const char *name)
static void	test_dispid (void)
static void	test_dispatch (void)
static HRESULT	invoke (IDispatch *pDispatch, LPCSTR szName, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, VARTYPE vtResult)
static HRESULT	Installer_CreateRecord (int count, IDispatch **pRecord)
static HRESULT	Installer_RegistryValue (HKEY hkey, LPCWSTR szKey, VARIANT vValue, VARIANT *pVarResult, VARTYPE vtExpect)
static HRESULT	Installer_RegistryValueE (HKEY hkey, LPCWSTR szKey, BOOL *pBool)
static HRESULT	Installer_RegistryValueW (HKEY hkey, LPCWSTR szKey, LPCWSTR szValue, LPWSTR szString)
static HRESULT	Installer_RegistryValueI (HKEY hkey, LPCWSTR szKey, int iValue, LPWSTR szString, VARTYPE vtResult)
static HRESULT	Installer_OpenPackage (LPCWSTR szPackagePath, int options, IDispatch **pSession)
static HRESULT	Installer_OpenDatabase (LPCWSTR szDatabasePath, int openmode, IDispatch **pDatabase)
static HRESULT	Installer_InstallProduct (LPCWSTR szPackagePath, LPCWSTR szPropertyValues)
static HRESULT	Installer_ProductState (LPCWSTR szProduct, int *pInstallState)
static HRESULT	Installer_ProductInfo (LPCWSTR szProduct, LPCWSTR szAttribute, LPWSTR szString)
static HRESULT	Installer_Products (IDispatch **pStringList)
static HRESULT	Installer_RelatedProducts (LPCWSTR szProduct, IDispatch **pStringList)
static HRESULT	Installer_VersionGet (LPWSTR szVersion)
static HRESULT	Installer_UILevelPut (int level)
static HRESULT	Installer_SummaryInformation (BSTR PackagePath, int UpdateCount, IDispatch **pSumInfo)
static HRESULT	Session_Installer (IDispatch *pSession, IDispatch **pInst)
static HRESULT	Session_PropertyGet (IDispatch *pSession, LPCWSTR szName, LPWSTR szReturn)
static HRESULT	Session_PropertyPut (IDispatch *pSession, LPCWSTR szName, LPCWSTR szValue)
static HRESULT	Session_LanguageGet (IDispatch *pSession, UINT *pLangId)
static HRESULT	Session_ModeGet (IDispatch *pSession, int iFlag, VARIANT_BOOL *mode)
static HRESULT	Session_ModePut (IDispatch *pSession, int iFlag, VARIANT_BOOL mode)
static HRESULT	Session_Database (IDispatch *pSession, IDispatch **pDatabase)
static HRESULT	Session_DoAction (IDispatch *pSession, LPCWSTR szAction, int *iReturn)
static HRESULT	Session_EvaluateCondition (IDispatch *pSession, LPCWSTR szCondition, int *iReturn)
static HRESULT	Session_Message (IDispatch *pSession, LONG kind, IDispatch *record, int *ret)
static HRESULT	Session_SetInstallLevel (IDispatch *pSession, LONG iInstallLevel)
static HRESULT	Session_FeatureCurrentState (IDispatch *pSession, LPCWSTR szName, int *pState)
static HRESULT	Session_FeatureRequestStateGet (IDispatch *pSession, LPCWSTR szName, int *pState)
static HRESULT	Session_FeatureRequestStatePut (IDispatch *pSession, LPCWSTR szName, int iState)
static HRESULT	Database_OpenView (IDispatch *pDatabase, LPCWSTR szSql, IDispatch **pView)
static HRESULT	Database_SummaryInformation (IDispatch *pDatabase, int iUpdateCount, IDispatch **pSummaryInfo)
static HRESULT	View_Execute (IDispatch *pView, IDispatch *pRecord)
static HRESULT	View_Fetch (IDispatch *pView, IDispatch **ppRecord)
static HRESULT	View_Modify (IDispatch *pView, int iMode, IDispatch *pRecord)
static HRESULT	View_Close (IDispatch *pView)
static HRESULT	Record_FieldCountGet (IDispatch *pRecord, int *pFieldCount)
static HRESULT	Record_StringDataGet (IDispatch *pRecord, int iField, LPWSTR szString)
static HRESULT	Record_StringDataPut (IDispatch *pRecord, int iField, LPCWSTR szString)
static HRESULT	Record_IntegerDataGet (IDispatch *pRecord, int iField, int *pValue)
static HRESULT	Record_IntegerDataPut (IDispatch *pRecord, int iField, int iValue)
static HRESULT	StringList__NewEnum (IDispatch *pList, IUnknown **ppEnumVARIANT)
static HRESULT	StringList_Item (IDispatch *pStringList, int iIndex, LPWSTR szString)
static HRESULT	StringList_Count (IDispatch *pStringList, int *pCount)
static HRESULT	SummaryInfo_PropertyGet (IDispatch *pSummaryInfo, int pid, VARIANT *pVarResult, VARTYPE vtExpect)
static HRESULT	SummaryInfo_PropertyPut (IDispatch *pSummaryInfo, int pid, VARIANT *pVariant)
static HRESULT	SummaryInfo_PropertyCountGet (IDispatch *pSummaryInfo, int *pCount)
static void	test_SummaryInfo (IDispatch *pSummaryInfo, const msi_summary_info *info, int num_info, BOOL readonly)
static void	test_Database (IDispatch *pDatabase, BOOL readonly)
static void	test_Session (IDispatch *pSession)
static DWORD	delete_key (HKEY hkey)
static void	test_Installer_RegistryValue (void)
static void	test_Installer_Products (BOOL bProductInstalled)
static UINT	delete_registry_key (HKEY hkeyParent, LPCSTR subkey, REGSAM access)
static UINT	find_registry_key (HKEY hkeyParent, LPCSTR subkey, LPCSTR findkey, REGSAM access, HKEY *phkey)
static void	test_Installer_InstallProduct (void)
static void	test_Installer (void)
	START_TEST (automation)

Variables
static BOOL	is_wow64
static	LPCSTR
static	REGSAM
static	DWORD
static	PBOOL
static const char *	msifile = "winetest-automation.msi"
static FILETIME	systemtime
static CHAR	CURR_DIR [MAX_PATH]
static EXCEPINFO	excepinfo
static IDispatch *	pInstaller
static const CHAR	component_dat []
static const CHAR	directory_dat []
static const CHAR	feature_dat []
static const CHAR	feature_comp_dat []
static const CHAR	file_dat []
static const CHAR	install_exec_seq_dat []
static const CHAR	media_dat []
static const CHAR	property_dat []
static const CHAR	registry_dat []
static const msi_table	tables []
static const msi_summary_info	summary_info []
static char	PROG_FILES_DIR [MAX_PATH]
static CHAR	string1 [MAX_PATH]
static CHAR	string2 [MAX_PATH]
static const get_did_t	get_did_data []
static int	_invoke_todo_vtResult = 0

Macro Definition Documentation

ADD_INFO_FILETIME

#define ADD_INFO_FILETIME	(		property,
			pftValue
	)		{property, VT_FILETIME, 0, pftValue, NULL}

Definition at line 193 of file automation.c.

ADD_INFO_I2

#define ADD_INFO_I2	(		property,
			iValue
	)		{property, VT_I2, iValue, NULL, NULL}

Definition at line 190 of file automation.c.

ADD_INFO_I4

#define ADD_INFO_I4	(		property,
			iValue
	)		{property, VT_I4, iValue, NULL, NULL}

Definition at line 191 of file automation.c.

ADD_INFO_LPSTR

#define ADD_INFO_LPSTR	(		property,
			szValue
	)		{property, VT_LPSTR, 0, NULL, szValue}

Definition at line 192 of file automation.c.

ADD_TABLE

#define ADD_TABLE

(

x

)

{#x".idt", x##_dat, sizeof(x##_dat)}

Definition at line 166 of file automation.c.

COBJMACROS

#define COBJMACROS

Definition at line 22 of file automation.c.

GET_PROC

#define GET_PROC	(		dll,
			func
	)

Value:

    p ## func = (void *)GetProcAddress(dll, #func); \
    if(!p ## func) \
      trace("GetProcAddress(%s) failed\n", #func);

ok_aw

#define ok_aw	(		format,
			aString,
			wString
	)

Value:

\
    WideCharToMultiByte(CP_ACP, 0, wString, -1, string1, MAX_PATH, NULL, NULL); \
    if (lstrcmpA(string1, aString) != 0) \
        ok(0, format, string1, aString); \

Definition at line 469 of file automation.c.

ok_awplus

#define ok_awplus	(		format,
			extra,
			aString,
			wString
	)

Value:

\
    WideCharToMultiByte(CP_ACP, 0, wString, -1, string1, MAX_PATH, NULL, NULL); \
    if (lstrcmpA(string1, aString) != 0) \
        ok(0, format, extra, string1, aString);  \

Definition at line 475 of file automation.c.

ok_exception

#define ok_exception	(		hr,
			szDescription
	)

Value:

    if (hr == DISP_E_EXCEPTION) \
    { \
        /* Compare wtype, source, and destination */                    \
        ok(excepinfo.wCode == 1000, "Exception info was %d, expected 1000\n", excepinfo.wCode); \
\
        ok(excepinfo.bstrSource != NULL, "Exception source was NULL\n"); \
        if (excepinfo.bstrSource)                                       \
            ok_w2("Exception source was \"%s\" but expected to be \"%s\"\n", excepinfo.bstrSource, L"Msi API Error"); \
\
        ok(excepinfo.bstrDescription != NULL, "Exception description was NULL\n"); \
        if (excepinfo.bstrDescription) \
            ok_w2("Exception description was \"%s\" but expected to be \"%s\"\n", excepinfo.bstrDescription, szDescription); \
\
        SysFreeString(excepinfo.bstrSource); \
        SysFreeString(excepinfo.bstrDescription); \
        SysFreeString(excepinfo.bstrHelpFile); \
    }

Definition at line 482 of file automation.c.

ok_w2

#define ok_w2	(		format,
			szString1,
			szString2
	)

Value:

\
    do { \
    WideCharToMultiByte(CP_ACP, 0, szString1, -1, string1, MAX_PATH, NULL, NULL); \
    WideCharToMultiByte(CP_ACP, 0, szString2, -1, string2, MAX_PATH, NULL, NULL); \
    if (lstrcmpA(string1, string2) != 0) \
        ok(0, format, string1, string2); \
    } while(0);

Definition at line 451 of file automation.c.

ok_w2n

#define ok_w2n	(		format,
			szString1,
			szString2,
			len
	)

Value:

\
    if (memcmp(szString1, szString2, len * sizeof(WCHAR)) != 0) \
    { \
        WideCharToMultiByte(CP_ACP, 0, szString1, -1, string1, MAX_PATH, NULL, NULL); \
        WideCharToMultiByte(CP_ACP, 0, szString2, -1, string2, MAX_PATH, NULL, NULL); \
        ok(0, format, string1, string2); \
    }

Definition at line 460 of file automation.c.

TEST_SUMMARYINFO_PROPERTIES_MODIFIED

#define TEST_SUMMARYINFO_PROPERTIES_MODIFIED   4

Definition at line 1580 of file automation.c.

Typedef Documentation

msi_summary_info

typedef struct _msi_summary_info msi_summary_info

msi_table

typedef struct _msi_table msi_table

Function Documentation

BOOL()

static BOOL ( WINAPI *  pIsWow64Process )

static

create_database()

static void create_database ( const CHAR *  name, const msi_table *  tables, int  num_tables, const msi_summary_info *  info, int  num_info  )

static

Definition at line 304 of file automation.c.

{
    MSIHANDLE db;
    UINT r;
    WCHAR *nameW;
    int j, len;
 
    len = MultiByteToWideChar( CP_ACP, 0, name, -1, NULL, 0 );
    if (!(nameW = malloc( len * sizeof(WCHAR) ))) return;
    MultiByteToWideChar( CP_ACP, 0, name, -1, nameW, len );
 
    r = MsiOpenDatabaseW(nameW, MSIDBOPEN_CREATE, &db);
    ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %u\n", r);
 
    /* import the tables into the database */
    for (j = 0; j < num_tables; j++)
    {
        const msi_table *table = &tables[j];
 
        write_file(table->filename, table->data, (table->size - 1) * sizeof(char));
 
        r = MsiDatabaseImportA(db, CURR_DIR, table->filename);
        ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %u\n", r);
 
        DeleteFileA(table->filename);
    }
 
    write_msi_summary_info(db, info, num_info);
 
    r = MsiDatabaseCommit(db);
    ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %u\n", r);
 
    MsiCloseHandle(db);
    free( nameW );
}

create_file()

static void create_file ( const CHAR *  name, DWORD  size  )

static

Definition at line 381 of file automation.c.

{
    HANDLE file;
    DWORD written, left;
 
    file = CreateFileA(name, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, NULL);
    ok(file != INVALID_HANDLE_VALUE, "Failure to open file %s\n", name);
    WriteFile(file, name, strlen(name), &written, NULL);
    WriteFile(file, "\n", strlen("\n"), &written, NULL);
 
    left = size - lstrlenA(name) - 1;
 
    SetFilePointer(file, left, NULL, FILE_CURRENT);
    SetEndOfFile(file);
 
    CloseHandle(file);
}

create_package()

static BOOL create_package ( LPWSTR  path )

static

Definition at line 341 of file automation.c.

{
    DWORD len;
 
    /* Prepare package */
    create_database(msifile, tables, ARRAY_SIZE(tables), summary_info, ARRAY_SIZE(summary_info));
 
    len = MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED,
                              CURR_DIR, -1, path, MAX_PATH);
    ok(len, "MultiByteToWideChar returned error %lu\n", GetLastError());
    if (!len)
        return FALSE;
 
    lstrcatW(path, L"\\winetest-automation.msi");
    return TRUE;
}

Referenced by test_dispatch(), and test_Installer().

create_test_files()

static void create_test_files ( void  )

static

Definition at line 399 of file automation.c.

{
    CreateDirectoryA("msitest", NULL);
    create_file("msitest\\one.txt", 100);
    CreateDirectoryA("msitest\\first", NULL);
    create_file("msitest\\first\\two.txt", 100);
    CreateDirectoryA("msitest\\second", NULL);
    create_file("msitest\\second\\three.txt", 100);
    CreateDirectoryA("msitest\\cabout",NULL);
    create_file("msitest\\cabout\\four.txt", 100);
    CreateDirectoryA("msitest\\cabout\\new",NULL);
    create_file("msitest\\cabout\\new\\five.txt", 100);
    create_file("msitest\\filename", 100);
}

Referenced by test_Installer_InstallProduct().

Database_OpenView()

static HRESULT Database_OpenView ( IDispatch *  pDatabase, LPCWSTR  szSql, IDispatch **  pView  )

static

Definition at line 1346 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szSql);
 
    hr = invoke(pDatabase, "OpenView", DISPATCH_METHOD, &dispparams, &varresult, VT_DISPATCH);
    *pView = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Database().

Database_SummaryInformation()

static HRESULT Database_SummaryInformation ( IDispatch *  pDatabase, int  iUpdateCount, IDispatch **  pSummaryInfo  )

static

Definition at line 1362 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iUpdateCount;
 
    hr = invoke(pDatabase, "SummaryInformation", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
    *pSummaryInfo = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Database().

DEFINE_GUID()

DEFINE_GUID	(	GUID_NULL	,
		0	,
		0	,
		0	,
		0	,
		0	,
		0	,
		0	,
		0	,
		0	,
		0	,
		0
	)

delete_key()

static DWORD delete_key ( HKEY  hkey )

static

Definition at line 1998 of file automation.c.

{
    char name[MAX_PATH];
    DWORD ret;
 
    while (!(ret = RegEnumKeyA(hkey, 0, name, sizeof(name))))
    {
        HKEY tmp;
        if (!(ret = RegOpenKeyExA( hkey, name, 0, KEY_ENUMERATE_SUB_KEYS, &tmp )))
        {
            ret = delete_key( tmp );
            RegCloseKey( tmp );
        }
        if (ret) break;
    }
    if (ret != ERROR_NO_MORE_ITEMS) return ret;
    RegDeleteKeyA( hkey, "" );
    return 0;
}

delete_key_portable()

static LONG delete_key_portable ( HKEY  key, LPCSTR  subkey, REGSAM  access  )

static

Definition at line 257 of file automation.c.

{
    if (pRegDeleteKeyExA)
        return pRegDeleteKeyExA( key, subkey, access, 0 );
    return RegDeleteKeyA( key, subkey );
}

Referenced by delete_registry_key(), and test_Installer_InstallProduct().

delete_pf()

static BOOL delete_pf ( const CHAR *  rel_path, BOOL  is_file  )

static

Definition at line 414 of file automation.c.

{
    CHAR path[MAX_PATH];
 
    lstrcpyA(path, PROG_FILES_DIR);
    lstrcatA(path, "\\");
    lstrcatA(path, rel_path);
 
    if (is_file)
        return DeleteFileA(path);
    else
        return RemoveDirectoryA(path);
}

Referenced by test_concurrentinstall(), test_create_remove_shortcut(), test_delete_services(), test_duplicate_files(), test_find_related_products(), test_ini_values(), test_install_remove_odbc(), test_install_services(), test_Installer_InstallProduct(), test_move_files(), test_MsiConfigureProductEx(), test_process_components(), test_publish_components(), test_publish_features(), test_publish_product(), test_register_class_info(), test_register_extension_info(), test_register_font(), test_register_mime_info(), test_register_product(), test_register_progid_info(), test_register_typelib(), test_register_user(), test_remove_duplicate_files(), test_remove_existing_products(), test_remove_files(), test_self_registration(), test_setpropertyfolder(), test_sourcedir_props(), test_start_stop_services(), and test_validate_product_id().

delete_registry_key()

static UINT delete_registry_key ( HKEY  hkeyParent, LPCSTR  subkey, REGSAM  access  )

static

Definition at line 2326 of file automation.c.

{
    UINT ret;
    CHAR *string = NULL;
    HKEY hkey;
    DWORD dwSize;
 
    ret = RegOpenKeyExA(hkeyParent, subkey, 0, access, &hkey);
    if (ret != ERROR_SUCCESS) return ret;
    ret = RegQueryInfoKeyA(hkey, NULL, NULL, NULL, NULL, &dwSize, NULL, NULL, NULL, NULL, NULL, NULL);
    if (ret != ERROR_SUCCESS) return ret;
    if (!(string = malloc(++dwSize))) return ERROR_NOT_ENOUGH_MEMORY;
 
    while (RegEnumKeyA(hkey, 0, string, dwSize) == ERROR_SUCCESS)
        delete_registry_key(hkey, string, access);
 
    RegCloseKey(hkey);
    free(string);
    delete_key_portable(hkeyParent, subkey, access);
    return ERROR_SUCCESS;
}

Referenced by delete_registry_key(), and test_Installer_InstallProduct().

delete_test_files()

static void delete_test_files ( void  )

static

Definition at line 428 of file automation.c.

{
    DeleteFileA(msifile);
    DeleteFileA("msitest\\cabout\\new\\five.txt");
    DeleteFileA("msitest\\cabout\\four.txt");
    DeleteFileA("msitest\\second\\three.txt");
    DeleteFileA("msitest\\first\\two.txt");
    DeleteFileA("msitest\\one.txt");
    DeleteFileA("msitest\\filename");
    RemoveDirectoryA("msitest\\cabout\\new");
    RemoveDirectoryA("msitest\\cabout");
    RemoveDirectoryA("msitest\\second");
    RemoveDirectoryA("msitest\\first");
    RemoveDirectoryA("msitest");
}

Referenced by test_Installer_InstallProduct().

find_registry_key()

static UINT find_registry_key ( HKEY  hkeyParent, LPCSTR  subkey, LPCSTR  findkey, REGSAM  access, HKEY *  phkey  )

static

Definition at line 2349 of file automation.c.

{
    UINT ret;
    CHAR *string = NULL;
    int idx = 0;
    HKEY hkey;
    DWORD dwSize;
    BOOL found = FALSE;
 
    *phkey = 0;
 
    ret = RegOpenKeyExA(hkeyParent, subkey, 0, access, &hkey);
    if (ret != ERROR_SUCCESS) return ret;
    ret = RegQueryInfoKeyA(hkey, NULL, NULL, NULL, NULL, &dwSize, NULL, NULL, NULL, NULL, NULL, NULL);
    if (ret != ERROR_SUCCESS) return ret;
    if (!(string = malloc(++dwSize))) return ERROR_NOT_ENOUGH_MEMORY;
 
    while (!found &&
           RegEnumKeyA(hkey, idx++, string, dwSize) == ERROR_SUCCESS)
    {
        if (!strcmp(string, findkey))
        {
            *phkey = hkey;
            found = TRUE;
        }
        else if (find_registry_key(hkey, string, findkey, access, phkey) == ERROR_SUCCESS) found = TRUE;
    }
 
    if (*phkey != hkey) RegCloseKey(hkey);
    free(string);
    return (found ? ERROR_SUCCESS : ERROR_FILE_NOT_FOUND);
}

Referenced by find_registry_key(), and test_Installer_InstallProduct().

get_dispid()

static DISPID get_dispid ( IDispatch *  disp, const char *  name  )

static

Definition at line 501 of file automation.c.

{
    LPOLESTR str;
    UINT len;
    DISPID id = -1;
    HRESULT r;
 
    len = MultiByteToWideChar(CP_ACP, 0, name, -1, NULL, 0 );
    str = malloc( len * sizeof(WCHAR) );
    if (str)
    {
        MultiByteToWideChar(CP_ACP, 0, name, -1, str, len );
        r = IDispatch_GetIDsOfNames( disp, &IID_NULL, &str, 1, 0, &id );
        free( str );
        if (r != S_OK)
            return -1;
    }
 
    return id;
}

Referenced by test_dispid().

get_program_files_dir()

static BOOL get_program_files_dir ( LPSTR  buf )

static

Definition at line 364 of file automation.c.

{
    HKEY hkey;
    DWORD type = REG_EXPAND_SZ, size;
 
    if (RegOpenKeyA(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion", &hkey))
        return FALSE;
 
    size = MAX_PATH;
    if (RegQueryValueExA(hkey, "ProgramFilesDir (x86)", 0, &type, (LPBYTE)buf, &size) &&
        RegQueryValueExA(hkey, "ProgramFilesDir", 0, &type, (LPBYTE)buf, &size))
        return FALSE;
 
    RegCloseKey(hkey);
    return TRUE;
}

Referenced by START_TEST().

init_functionpointers()

static void init_functionpointers ( void  )

static

Definition at line 205 of file automation.c.

{
    HMODULE hadvapi32 = GetModuleHandleA("advapi32.dll");
    HMODULE hkernel32 = GetModuleHandleA("kernel32.dll");
 
#define GET_PROC(dll, func) \
    p ## func = (void *)GetProcAddress(dll, #func); \
    if(!p ## func) \
      trace("GetProcAddress(%s) failed\n", #func);
 
    GET_PROC(hadvapi32, RegDeleteKeyExA)
    GET_PROC(hkernel32, IsWow64Process)
 
#undef GET_PROC
}

Referenced by START_TEST().

Installer_CreateRecord()

static HRESULT Installer_CreateRecord ( int  count, IDispatch **  pRecord  )

static

Definition at line 882 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = count;
 
    hr = invoke(pInstaller, "CreateRecord", DISPATCH_METHOD, &dispparams, &varresult, VT_DISPATCH);
    *pRecord = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Installer(), and test_Session().

Installer_InstallProduct()

static HRESULT Installer_InstallProduct ( LPCWSTR  szPackagePath, LPCWSTR  szPropertyValues  )

static

Definition at line 1000 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szPackagePath);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szPropertyValues);
 
    return invoke(pInstaller, "InstallProduct", DISPATCH_METHOD, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Installer_InstallProduct().

Installer_OpenDatabase()

static HRESULT Installer_OpenDatabase ( LPCWSTR  szDatabasePath, int  openmode, IDispatch **  pDatabase  )

static

Definition at line 981 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szDatabasePath);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = openmode;
 
    hr = invoke(pInstaller, "OpenDatabase", DISPATCH_METHOD, &dispparams, &varresult, VT_DISPATCH);
    *pDatabase = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Installer().

Installer_OpenPackage()

static HRESULT Installer_OpenPackage ( LPCWSTR  szPackagePath, int  options, IDispatch **  pSession  )

static

Definition at line 962 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szPackagePath);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = options;
 
    hr = invoke(pInstaller, "OpenPackage", DISPATCH_METHOD, &dispparams, &varresult, VT_DISPATCH);
    *pSession = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Installer().

Installer_ProductInfo()

static HRESULT Installer_ProductInfo ( LPCWSTR  szProduct, LPCWSTR  szAttribute, LPWSTR  szString  )

static

Definition at line 1033 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szProduct);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szAttribute);
 
    hr = invoke(pInstaller, "ProductInfo", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_BSTR);
    if (V_BSTR(&varresult)) lstrcpyW(szString, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer(), and test_Installer_InstallProduct().

Installer_Products()

static HRESULT Installer_Products ( IDispatch **  pStringList )

static

Definition at line 1053 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr;
 
    hr = invoke(pInstaller, "Products", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
    *pStringList = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Installer_Products().

Installer_ProductState()

static HRESULT Installer_ProductState ( LPCWSTR  szProduct, int *  pInstallState  )

static

Definition at line 1016 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szProduct);
 
    hr = invoke(pInstaller, "ProductState", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pInstallState = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer(), test_Installer_InstallProduct(), and test_Installer_Products().

Installer_RegistryValue()

static HRESULT Installer_RegistryValue ( HKEY  hkey, LPCWSTR  szKey, VARIANT  vValue, VARIANT *  pVarResult, VARTYPE  vtExpect  )

static

Definition at line 898 of file automation.c.

{
    VARIANTARG vararg[3];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
 
    VariantInit(&vararg[2]);
    V_VT(&vararg[2]) = VT_I4;
    V_I4(&vararg[2]) = (INT_PTR)hkey;
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szKey);
    VariantInit(&vararg[0]);
    VariantCopy(&vararg[0], &vValue);
    VariantClear(&vValue);
 
    return invoke(pInstaller, "RegistryValue", DISPATCH_METHOD, &dispparams, pVarResult, vtExpect);
}

Referenced by Installer_RegistryValueE(), Installer_RegistryValueI(), Installer_RegistryValueW(), and test_Installer_RegistryValue().

Installer_RegistryValueE()

static HRESULT Installer_RegistryValueE ( HKEY  hkey, LPCWSTR  szKey, BOOL *  pBool  )

static

Definition at line 916 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg;
    HRESULT hr;
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_EMPTY;
    hr = Installer_RegistryValue(hkey, szKey, vararg, &varresult, VT_BOOL);
    *pBool = V_BOOL(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer_RegistryValue().

Installer_RegistryValueI()

static HRESULT Installer_RegistryValueI ( HKEY  hkey, LPCWSTR  szKey, int  iValue, LPWSTR  szString, VARTYPE  vtResult  )

static

Definition at line 946 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg;
    HRESULT hr;
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_I4;
    V_I4(&vararg) = iValue;
 
    hr = Installer_RegistryValue(hkey, szKey, vararg, &varresult, vtResult);
    if (SUCCEEDED(hr) && vtResult == VT_BSTR) lstrcpyW(szString, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer_RegistryValue().

Installer_RegistryValueW()

static HRESULT Installer_RegistryValueW ( HKEY  hkey, LPCWSTR  szKey, LPCWSTR  szValue, LPWSTR  szString  )

static

Definition at line 930 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg;
    HRESULT hr;
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_BSTR;
    V_BSTR(&vararg) = SysAllocString(szValue);
 
    hr = Installer_RegistryValue(hkey, szKey, vararg, &varresult, VT_BSTR);
    if (V_BSTR(&varresult)) lstrcpyW(szString, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer_RegistryValue().

Installer_RelatedProducts()

static HRESULT Installer_RelatedProducts ( LPCWSTR  szProduct, IDispatch **  pStringList  )

static

Definition at line 1064 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szProduct);
 
    hr = invoke(pInstaller, "RelatedProducts", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
    *pStringList = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Installer(), and test_Installer_InstallProduct().

Installer_SummaryInformation()

static HRESULT Installer_SummaryInformation ( BSTR  PackagePath, int  UpdateCount, IDispatch **  pSumInfo  )

static

Definition at line 1106 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(PackagePath);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = UpdateCount;
 
    hr = invoke(pInstaller, "SummaryInformation", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
    *pSumInfo = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Installer().

Installer_UILevelPut()

static HRESULT Installer_UILevelPut ( int  level )

static

Definition at line 1092 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg;
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {&vararg, &dispid, sizeof(vararg)/sizeof(VARIANTARG), 1};
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_I4;
    V_I4(&vararg) = level;
 
    return invoke(pInstaller, "UILevel", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Installer_InstallProduct().

Installer_VersionGet()

static HRESULT Installer_VersionGet ( LPWSTR  szVersion )

static

Definition at line 1080 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr;
 
    hr = invoke(pInstaller, "Version", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_BSTR);
    if (V_BSTR(&varresult)) lstrcpyW(szVersion, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer().

invoke()

static HRESULT invoke ( IDispatch *  pDispatch, LPCSTR  szName, WORD  wFlags, DISPPARAMS *  pDispParams, VARIANT *  pVarResult, VARTYPE  vtResult  )

static

Definition at line 840 of file automation.c.

{
    OLECHAR *name = NULL;
    DISPID dispid;
    HRESULT hr;
    UINT i;
    UINT len;
 
    memset(pVarResult, 0, sizeof(VARIANT));
    VariantInit(pVarResult);
 
    len = MultiByteToWideChar(CP_ACP, 0, szName, -1, NULL, 0 );
    name = malloc(len * sizeof(WCHAR));
    if (!name) return E_FAIL;
    MultiByteToWideChar(CP_ACP, 0, szName, -1, name, len );
    hr = IDispatch_GetIDsOfNames(pDispatch, &IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &dispid);
    free(name);
    ok(hr == S_OK, "IDispatch::GetIDsOfNames returned %#lx\n", hr);
    if (hr != S_OK) return hr;
 
    memset(&excepinfo, 0, sizeof(excepinfo));
    hr = IDispatch_Invoke(pDispatch, dispid, &IID_NULL, LOCALE_NEUTRAL, wFlags, pDispParams, pVarResult, &excepinfo, NULL);
 
    if (hr == S_OK)
    {
        todo_wine_if (_invoke_todo_vtResult)
            ok(V_VT(pVarResult) == vtResult, "Variant result type is %d, expected %d\n", V_VT(pVarResult), vtResult);
        if (vtResult != VT_EMPTY)
        {
            hr = VariantChangeTypeEx(pVarResult, pVarResult, LOCALE_NEUTRAL, 0, vtResult);
            ok(hr == S_OK, "VariantChangeTypeEx returned %#lx\n", hr);
        }
    }
 
    for (i=0; i<pDispParams->cArgs; i++)
        VariantClear(&pDispParams->rgvarg[i]);
 
    return hr;
}

Referenced by Database_OpenView(), Database_SummaryInformation(), Installer_CreateRecord(), Installer_InstallProduct(), Installer_OpenDatabase(), Installer_OpenPackage(), Installer_ProductInfo(), Installer_Products(), Installer_ProductState(), Installer_RegistryValue(), Installer_RelatedProducts(), Installer_SummaryInformation(), Installer_UILevelPut(), Installer_VersionGet(), Record_FieldCountGet(), Record_IntegerDataGet(), Record_IntegerDataPut(), Record_StringDataGet(), Record_StringDataPut(), Session_Database(), Session_DoAction(), Session_EvaluateCondition(), Session_FeatureCurrentState(), Session_FeatureRequestStateGet(), Session_FeatureRequestStatePut(), Session_Installer(), Session_LanguageGet(), Session_Message(), Session_ModeGet(), Session_ModePut(), Session_PropertyGet(), Session_PropertyPut(), Session_SetInstallLevel(), StringList__NewEnum(), StringList_Count(), StringList_Item(), SummaryInfo_PropertyCountGet(), SummaryInfo_PropertyGet(), SummaryInfo_PropertyPut(), View_Close(), View_Execute(), View_Fetch(), and View_Modify().

is_process_limited()

static BOOL is_process_limited ( void  )

static

Definition at line 221 of file automation.c.

{
    SID_IDENTIFIER_AUTHORITY NtAuthority = {SECURITY_NT_AUTHORITY};
    PSID Group = NULL;
    BOOL IsInGroup;
    HANDLE token;
 
    if (!AllocateAndInitializeSid(&NtAuthority, 2, SECURITY_BUILTIN_DOMAIN_RID,
                                  DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, &Group) ||
        !CheckTokenMembership(NULL, Group, &IsInGroup))
    {
        trace("Could not check if the current user is an administrator\n");
        FreeSid(Group);
        return FALSE;
    }
    FreeSid(Group);
 
    if (!IsInGroup)
    {
        /* Only administrators have enough privileges for these tests */
        return TRUE;
    }
 
    if (OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, &token))
    {
        BOOL ret;
        TOKEN_ELEVATION_TYPE type = TokenElevationTypeDefault;
        DWORD size;
 
        ret = GetTokenInformation(token, TokenElevationType, &type, sizeof(type), &size);
        CloseHandle(token);
        return (ret && type == TokenElevationTypeLimited);
    }
    return FALSE;
}

Referenced by test_Installer_InstallProduct().

LONG()

static LONG ( WINAPI *  pRegDeleteKeyExA )

static

Record_FieldCountGet()

static HRESULT Record_FieldCountGet ( IDispatch *  pRecord, int *  pFieldCount  )

static

Definition at line 1425 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr = invoke(pRecord, "FieldCount", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pFieldCount = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer().

Record_IntegerDataGet()

static HRESULT Record_IntegerDataGet ( IDispatch *  pRecord, int  iField, int *  pValue  )

static

Definition at line 1469 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iField;
 
    hr = invoke(pRecord, "IntegerData", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pValue = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer().

Record_IntegerDataPut()

static HRESULT Record_IntegerDataPut ( IDispatch *  pRecord, int  iField, int  iValue  )

static

Definition at line 1486 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {vararg, &dispid, ARRAY_SIZE(vararg), 1};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_I4;
    V_I4(&vararg[1]) = iField;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iValue;
 
    return invoke(pRecord, "IntegerData", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Installer().

Record_StringDataGet()

static HRESULT Record_StringDataGet ( IDispatch *  pRecord, int  iField, LPWSTR  szString  )

static

Definition at line 1435 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iField;
 
    hr = invoke(pRecord, "StringData", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_BSTR);
    if (V_BSTR(&varresult)) lstrcpyW(szString, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Database().

Record_StringDataPut()

static HRESULT Record_StringDataPut ( IDispatch *  pRecord, int  iField, LPCWSTR  szString  )

static

Definition at line 1452 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {vararg, &dispid, ARRAY_SIZE(vararg), 1};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_I4;
    V_I4(&vararg[1]) = iField;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szString);
 
    return invoke(pRecord, "StringData", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Database().

Session_Database()

static HRESULT Session_Database ( IDispatch *  pSession, IDispatch **  pDatabase  )

static

Definition at line 1216 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr;
 
    hr = invoke(pSession, "Database", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
    *pDatabase = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Session().

Session_DoAction()

static HRESULT Session_DoAction ( IDispatch *  pSession, LPCWSTR  szAction, int *  iReturn  )

static

Definition at line 1227 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szAction);
 
    hr = invoke(pSession, "DoAction", DISPATCH_METHOD, &dispparams, &varresult, VT_I4);
    *iReturn = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_EvaluateCondition()

static HRESULT Session_EvaluateCondition ( IDispatch *  pSession, LPCWSTR  szCondition, int *  iReturn  )

static

Definition at line 1244 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szCondition);
 
    hr = invoke(pSession, "EvaluateCondition", DISPATCH_METHOD, &dispparams, &varresult, VT_I4);
    *iReturn = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_FeatureCurrentState()

static HRESULT Session_FeatureCurrentState ( IDispatch *  pSession, LPCWSTR  szName, int *  pState  )

static

Definition at line 1295 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szName);
 
    hr = invoke(pSession, "FeatureCurrentState", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pState = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_FeatureRequestStateGet()

static HRESULT Session_FeatureRequestStateGet ( IDispatch *  pSession, LPCWSTR  szName, int *  pState  )

static

Definition at line 1312 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szName);
 
    hr = invoke(pSession, "FeatureRequestState", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pState = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_FeatureRequestStatePut()

static HRESULT Session_FeatureRequestStatePut ( IDispatch *  pSession, LPCWSTR  szName, int  iState  )

static

Definition at line 1329 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {vararg, &dispid, ARRAY_SIZE(vararg), 1};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szName);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iState;
 
    return invoke(pSession, "FeatureRequestState", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Session().

Session_Installer()

static HRESULT Session_Installer ( IDispatch *  pSession, IDispatch **  pInst  )

static

Definition at line 1125 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr;
 
    hr = invoke(pSession, "Installer", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_DISPATCH);
    *pInst = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Session().

Session_LanguageGet()

static HRESULT Session_LanguageGet ( IDispatch *  pSession, UINT *  pLangId  )

static

Definition at line 1170 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr;
 
    hr = invoke(pSession, "Language", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pLangId = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_Message()

static HRESULT Session_Message ( IDispatch *  pSession, LONG  kind, IDispatch *  record, int *  ret  )

static

Definition at line 1261 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&varresult);
    V_VT(vararg) = VT_DISPATCH;
    V_DISPATCH(vararg) = record;
    V_VT(vararg+1) = VT_I4;
    V_I4(vararg+1) = kind;
 
    hr = invoke(pSession, "Message", DISPATCH_METHOD, &dispparams, &varresult, VT_I4);
 
    ok(V_VT(&varresult) == VT_I4, "V_VT(varresult) = %d\n", V_VT(&varresult));
    *ret = V_I4(&varresult);
 
    return hr;
}

Referenced by test_Session().

Session_ModeGet()

static HRESULT Session_ModeGet ( IDispatch *  pSession, int  iFlag, VARIANT_BOOL *  mode  )

static

Definition at line 1182 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iFlag;
 
    hr = invoke(pSession, "Mode", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_BOOL);
    *mode = V_BOOL(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_ModePut()

static HRESULT Session_ModePut ( IDispatch *  pSession, int  iFlag, VARIANT_BOOL  mode  )

static

Definition at line 1199 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {vararg, &dispid, ARRAY_SIZE(vararg), 1};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_I4;
    V_I4(&vararg[1]) = iFlag;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BOOL;
    V_BOOL(&vararg[0]) = mode;
 
    return invoke(pSession, "Mode", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Session().

Session_PropertyGet()

static HRESULT Session_PropertyGet ( IDispatch *  pSession, LPCWSTR  szName, LPWSTR  szReturn  )

static

Definition at line 1136 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szName);
 
    hr = invoke(pSession, "Property", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_BSTR);
    if (V_BSTR(&varresult)) lstrcpyW(szReturn, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Session().

Session_PropertyPut()

static HRESULT Session_PropertyPut ( IDispatch *  pSession, LPCWSTR  szName, LPCWSTR  szValue  )

static

Definition at line 1153 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {vararg, &dispid, ARRAY_SIZE(vararg), 1};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(szName);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(szValue);
 
    return invoke(pSession, "Property", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Session().

Session_SetInstallLevel()

static HRESULT Session_SetInstallLevel ( IDispatch *  pSession, LONG  iInstallLevel  )

static

Definition at line 1282 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iInstallLevel;
 
    return invoke(pSession, "SetInstallLevel", DISPATCH_METHOD, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Session().

START_TEST()

START_TEST

(

automation

)

Definition at line 2700 of file automation.c.

{
    DWORD len;
    char temp_path[MAX_PATH], prev_path[MAX_PATH];
    HRESULT hr;
    CLSID clsid;
    IUnknown *pUnk;
 
    init_functionpointers();
 
    if (pIsWow64Process)
        pIsWow64Process(GetCurrentProcess(), &is_wow64);
 
    GetSystemTimeAsFileTime(&systemtime);
 
    GetCurrentDirectoryA(MAX_PATH, prev_path);
    GetTempPathA(MAX_PATH, temp_path);
    SetCurrentDirectoryA(temp_path);
 
    lstrcpyA(CURR_DIR, temp_path);
    len = lstrlenA(CURR_DIR);
 
    if(len && (CURR_DIR[len - 1] == '\\'))
        CURR_DIR[len - 1] = 0;
 
    get_program_files_dir(PROG_FILES_DIR);
 
    hr = OleInitialize(NULL);
    ok (hr == S_OK, "OleInitialize returned %#lx\n", hr);
    hr = CLSIDFromProgID(L"WindowsInstaller.Installer", &clsid);
    ok (hr == S_OK, "CLSIDFromProgID returned %#lx\n", hr);
    hr = CoCreateInstance(&clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IUnknown, (void **)&pUnk);
    ok(hr == S_OK, "CoCreateInstance returned %#lx\n", hr);
 
    if (pUnk)
    {
        hr = IUnknown_QueryInterface(pUnk, &IID_IDispatch, (void **)&pInstaller);
        ok (hr == S_OK, "IUnknown::QueryInterface returned %#lx\n", hr);
 
        test_dispid();
        test_dispatch();
        test_Installer();
 
        IDispatch_Release(pInstaller);
        IUnknown_Release(pUnk);
    }
 
    OleUninitialize();
 
    SetCurrentDirectoryA(prev_path);
}

StringList__NewEnum()

static HRESULT StringList__NewEnum ( IDispatch *  pList, IUnknown **  ppEnumVARIANT  )

static

Definition at line 1503 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr = invoke(pList, "_NewEnum", DISPATCH_METHOD, &dispparams, &varresult, VT_UNKNOWN);
    *ppEnumVARIANT = V_UNKNOWN(&varresult);
    return hr;
}

Referenced by test_Installer_Products().

StringList_Count()

static HRESULT StringList_Count ( IDispatch *  pStringList, int *  pCount  )

static

Definition at line 1529 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr = invoke(pStringList, "Count", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pCount = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer(), test_Installer_InstallProduct(), and test_Installer_Products().

StringList_Item()

static HRESULT StringList_Item ( IDispatch *  pStringList, int  iIndex, LPWSTR  szString  )

static

Definition at line 1512 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
    HRESULT hr;
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = iIndex;
 
    hr = invoke(pStringList, "Item", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_BSTR);
    if (V_BSTR(&varresult)) lstrcpyW(szString, V_BSTR(&varresult));
    VariantClear(&varresult);
    return hr;
}

Referenced by test_Installer_InstallProduct(), and test_Installer_Products().

SummaryInfo_PropertyCountGet()

static HRESULT SummaryInfo_PropertyCountGet ( IDispatch *  pSummaryInfo, int *  pCount  )

static

Definition at line 1566 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr;
 
    hr = invoke(pSummaryInfo, "PropertyCount", DISPATCH_PROPERTYGET, &dispparams, &varresult, VT_I4);
    *pCount = V_I4(&varresult);
    VariantClear(&varresult);
    return hr;
}

Referenced by test_SummaryInfo().

SummaryInfo_PropertyGet()

static HRESULT SummaryInfo_PropertyGet ( IDispatch *  pSummaryInfo, int  pid, VARIANT *  pVarResult, VARTYPE  vtExpect  )

static

Definition at line 1539 of file automation.c.

{
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I4;
    V_I4(&vararg[0]) = pid;
    return invoke(pSummaryInfo, "Property", DISPATCH_PROPERTYGET, &dispparams, pVarResult, vtExpect);
}

Referenced by test_SummaryInfo().

SummaryInfo_PropertyPut()

static HRESULT SummaryInfo_PropertyPut ( IDispatch *  pSummaryInfo, int  pid, VARIANT *  pVariant  )

static

Definition at line 1550 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPID dispid = DISPID_PROPERTYPUT;
    DISPPARAMS dispparams = {vararg, &dispid, ARRAY_SIZE(vararg), 1};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_I4;
    V_I4(&vararg[1]) = pid;
    VariantInit(&vararg[0]);
    VariantCopyInd(vararg, pVariant);
 
    return invoke(pSummaryInfo, "Property", DISPATCH_PROPERTYPUT, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_SummaryInfo().

test_Database()

static void test_Database ( IDispatch *  pDatabase, BOOL  readonly  )

static

Definition at line 1723 of file automation.c.

{
    IDispatch *pView = NULL, *pSummaryInfo = NULL;
    HRESULT hr;
 
    hr = Database_OpenView(pDatabase, L"SELECT `Feature` FROM `Feature` WHERE `Feature_Parent`='One'", &pView);
    ok(hr == S_OK, "Database_OpenView failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        IDispatch *pRecord = NULL;
        WCHAR szString[MAX_PATH];
 
        /* View::Execute */
        hr = View_Execute(pView, NULL);
        ok(hr == S_OK, "View_Execute failed, hresult %#lx\n", hr);
 
        /* View::Fetch */
        hr = View_Fetch(pView, &pRecord);
        ok(hr == S_OK, "View_Fetch failed, hresult %#lx\n", hr);
        ok(pRecord != NULL, "View_Fetch should not have returned NULL record\n");
        if (pRecord)
        {
            /* Record::StringDataGet */
            memset(szString, 0, sizeof(szString));
            hr = Record_StringDataGet(pRecord, 1, szString);
            ok(hr == S_OK, "Record_StringDataGet failed, hresult %#lx\n", hr);
            ok_w2("Record_StringDataGet result was %s but expected %s\n", szString, L"Three");
 
            /* Record::StringDataPut with correct index */
            hr = Record_StringDataPut(pRecord, 1, L"Two");
            ok(hr == S_OK, "Record_StringDataPut failed, hresult %#lx\n", hr);
 
            /* Record::StringDataGet */
            memset(szString, 0, sizeof(szString));
            hr = Record_StringDataGet(pRecord, 1, szString);
            ok(hr == S_OK, "Record_StringDataGet failed, hresult %#lx\n", hr);
            ok_w2("Record_StringDataGet result was %s but expected %s\n", szString, L"Two");
 
            /* Record::StringDataPut with incorrect index */
            hr = Record_StringDataPut(pRecord, -1, szString);
            ok(hr == DISP_E_EXCEPTION, "Record_StringDataPut failed, hresult %#lx\n", hr);
            ok_exception(hr, L"StringData,Field");
 
            /* View::Modify with incorrect parameters */
            hr = View_Modify(pView, -5, NULL);
            ok(hr == DISP_E_EXCEPTION, "View_Modify failed, hresult %#lx\n", hr);
            ok_exception(hr, L"Modify,Mode,Record");
 
            hr = View_Modify(pView, -5, pRecord);
            ok(hr == DISP_E_EXCEPTION, "View_Modify failed, hresult %#lx\n", hr);
            ok_exception(hr, L"Modify,Mode,Record");
 
            hr = View_Modify(pView, MSIMODIFY_REFRESH, NULL);
            ok(hr == DISP_E_EXCEPTION, "View_Modify failed, hresult %#lx\n", hr);
            ok_exception(hr, L"Modify,Mode,Record");
 
            hr = View_Modify(pView, MSIMODIFY_REFRESH, pRecord);
            ok(hr == S_OK, "View_Modify failed, hresult %#lx\n", hr);
 
            /* Record::StringDataGet, confirm that the record is back to its unmodified value */
            memset(szString, 0, sizeof(szString));
            hr = Record_StringDataGet(pRecord, 1, szString);
            ok(hr == S_OK, "Record_StringDataGet failed, hresult %#lx\n", hr);
            todo_wine ok_w2("Record_StringDataGet result was %s but expected %s\n", szString, L"Three");
 
            IDispatch_Release(pRecord);
        }
 
        /* View::Fetch */
        hr = View_Fetch(pView, &pRecord);
        ok(hr == S_OK, "View_Fetch failed, hresult %#lx\n", hr);
        ok(pRecord != NULL, "View_Fetch should not have returned NULL record\n");
        if (pRecord)
        {
            /* Record::StringDataGet */
            memset(szString, 0, sizeof(szString));
            hr = Record_StringDataGet(pRecord, 1, szString);
            ok(hr == S_OK, "Record_StringDataGet failed, hresult %#lx\n", hr);
            ok_w2("Record_StringDataGet result was %s but expected %s\n", szString, L"Two");
 
            IDispatch_Release(pRecord);
        }
 
        /* View::Fetch */
        hr = View_Fetch(pView, &pRecord);
        ok(hr == S_OK, "View_Fetch failed, hresult %#lx\n", hr);
        ok(pRecord == NULL, "View_Fetch should have returned NULL record\n");
        if (pRecord)
            IDispatch_Release(pRecord);
 
        /* View::Close */
        hr = View_Close(pView);
        ok(hr == S_OK, "View_Close failed, hresult %#lx\n", hr);
 
        IDispatch_Release(pView);
    }
 
    /* Database::SummaryInformation */
    hr = Database_SummaryInformation(pDatabase, TEST_SUMMARYINFO_PROPERTIES_MODIFIED, &pSummaryInfo);
    ok(hr == S_OK, "Database_SummaryInformation failed, hresult %#lx\n", hr);
    ok(pSummaryInfo != NULL, "Database_SummaryInformation should not have returned NULL record\n");
    if (pSummaryInfo)
    {
        test_SummaryInfo(pSummaryInfo, summary_info, ARRAY_SIZE(summary_info), readonly);
        IDispatch_Release(pSummaryInfo);
    }
}

Referenced by test_Installer(), and test_Session().

test_dispatch()

static void test_dispatch ( void  )

static

Definition at line 617 of file automation.c.

{
    HRESULT hr;
    DISPID dispid;
    OLECHAR *name;
    VARIANT varresult;
    VARIANTARG vararg[3];
    WCHAR path[MAX_PATH];
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
 
    /* Test getting ID of a function name that does not exist */
    name = (WCHAR *)L"winetest-automation.msi";
    hr = IDispatch_GetIDsOfNames(pInstaller, &IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &dispid);
    ok(hr == DISP_E_UNKNOWNNAME, "IDispatch::GetIDsOfNames returned %#lx\n", hr);
 
    /* Test invoking this function */
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, NULL, NULL, NULL, NULL);
    ok(hr == DISP_E_MEMBERNOTFOUND, "IDispatch::Invoke returned %#lx\n", hr);
 
    /* Test getting ID of a function name that does exist */
    name = (WCHAR *)L"OpenPackage";
    hr = IDispatch_GetIDsOfNames(pInstaller, &IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &dispid);
    ok(hr == S_OK, "IDispatch::GetIDsOfNames returned %#lx\n", hr);
 
    /* Test invoking this function (without parameters passed) */
    if (0) /* All of these crash MSI on Windows XP */
    {
        IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, NULL, NULL, NULL, NULL);
        IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, NULL, NULL, &excepinfo, NULL);
        VariantInit(&varresult);
        IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, NULL, &varresult, &excepinfo, NULL);
    }
 
    /* Try with NULL params */
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_TYPEMISMATCH, "IDispatch::Invoke returned %#lx\n", hr);
 
    /* Try one empty parameter */
    dispparams.rgvarg = vararg;
    dispparams.cArgs = 1;
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_TYPEMISMATCH, "IDispatch::Invoke returned %#lx\n", hr);
 
    /* Try two empty parameters */
    dispparams.cArgs = 2;
    VariantInit(&vararg[0]);
    VariantInit(&vararg[1]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_TYPEMISMATCH, "IDispatch::Invoke returned %#lx\n", hr);
 
    /* Try one parameter, the required BSTR.  Second parameter is optional.
     * NOTE: The specified package does not exist, which is why the call fails.
     */
    dispparams.cArgs = 1;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(L"winetest-automation.msi");
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_EXCEPTION, "IDispatch::Invoke returned %#lx\n", hr);
    ok_exception(hr, L"OpenPackage,PackagePath,Options");
    VariantClear(&vararg[0]);
 
    /* Provide the required BSTR and an empty second parameter.
     * NOTE: The specified package does not exist, which is why the call fails.
     */
    dispparams.cArgs = 2;
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(L"winetest-automation.msi");
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_EXCEPTION, "IDispatch::Invoke returned %#lx\n", hr);
    ok_exception(hr, L"OpenPackage,PackagePath,Options");
    VariantClear(&vararg[1]);
 
    /* Provide the required BSTR and two empty parameters.
     * NOTE: The specified package does not exist, which is why the call fails.
     */
    dispparams.cArgs = 3;
    VariantInit(&vararg[2]);
    V_VT(&vararg[2]) = VT_BSTR;
    V_BSTR(&vararg[2]) = SysAllocString(L"winetest-automation.msi");
    VariantInit(&vararg[1]);
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_EXCEPTION, "IDispatch::Invoke returned %#lx\n", hr);
    ok_exception(hr, L"OpenPackage,PackagePath,Options");
    VariantClear(&vararg[2]);
 
    /* Provide the required BSTR and a second parameter with the wrong type. */
    dispparams.cArgs = 2;
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(L"winetest-automation.msi");
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(L"winetest-automation.msi");
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_TYPEMISMATCH, "IDispatch::Invoke returned %#lx\n", hr);
    VariantClear(&vararg[0]);
    VariantClear(&vararg[1]);
 
    /* Create a proper installer package. */
    create_package(path);
 
    /* Try one parameter, the required BSTR.  Second parameter is optional.
     * Proper installer package exists.  Path to the package is relative.
     */
    dispparams.cArgs = 1;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(L"winetest-automation.msi");
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    todo_wine ok(hr == DISP_E_EXCEPTION, "IDispatch::Invoke returned %#lx\n", hr);
    ok_exception(hr, L"OpenPackage,PackagePath,Options");
    VariantClear(&vararg[0]);
    if (hr != DISP_E_EXCEPTION)
        VariantClear(&varresult);
 
    /* Try one parameter, the required BSTR.  Second parameter is optional.
     * Proper installer package exists.  Path to the package is absolute.
     */
    dispparams.cArgs = 1;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(path);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    if (hr == DISP_E_EXCEPTION)
    {
        skip("OpenPackage failed, insufficient rights?\n");
        DeleteFileW(path);
        return;
    }
    ok(hr == S_OK, "IDispatch::Invoke returned %#lx\n", hr);
    VariantClear(&vararg[0]);
    VariantClear(&varresult);
 
    /* Provide the required BSTR and an empty second parameter.  Proper
     * installation package exists.
     */
    dispparams.cArgs = 2;
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(path);
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == S_OK, "IDispatch::Invoke returned %#lx\n", hr);
    VariantClear(&vararg[1]);
    VariantClear(&varresult);
 
    /* Provide the required BSTR and two empty parameters.  Proper
     * installation package exists.
     */
    dispparams.cArgs = 3;
    VariantInit(&vararg[2]);
    V_VT(&vararg[2]) = VT_BSTR;
    V_BSTR(&vararg[2]) = SysAllocString(path);
    VariantInit(&vararg[1]);
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == S_OK, "IDispatch::Invoke returned %#lx\n", hr);
    VariantClear(&vararg[2]);
    VariantClear(&varresult);
 
    /* Provide the required BSTR and a second parameter with the wrong type. */
    dispparams.cArgs = 2;
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(path);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_BSTR;
    V_BSTR(&vararg[0]) = SysAllocString(path);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_TYPEMISMATCH, "IDispatch::Invoke returned %#lx\n", hr);
    VariantClear(&vararg[0]);
    VariantClear(&vararg[1]);
 
    /* Provide the required BSTR and a second parameter that can be coerced to
     * VT_I4.
     */
    dispparams.cArgs = 2;
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_BSTR;
    V_BSTR(&vararg[1]) = SysAllocString(path);
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_I2;
    V_BSTR(&vararg[0]) = 0;
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == S_OK, "IDispatch::Invoke returned %#lx\n", hr);
    VariantClear(&vararg[1]);
    VariantClear(&varresult);
 
    DeleteFileW(path);
 
    /* Test invoking a method as a DISPATCH_PROPERTYGET or DISPATCH_PROPERTYPUT */
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_MEMBERNOTFOUND, "IDispatch::Invoke returned %#lx\n", hr);
 
    VariantInit(&vararg[0]);
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_MEMBERNOTFOUND, "IDispatch::Invoke returned %#lx\n", hr);
 
    /* Test invoking a read-only property as DISPATCH_PROPERTYPUT or as a DISPATCH_METHOD */
    name = (WCHAR *)L"ProductState";
    hr = IDispatch_GetIDsOfNames(pInstaller, &IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &dispid);
    ok(hr == S_OK, "IDispatch::GetIDsOfNames returned %#lx\n", hr);
 
    dispparams.rgvarg = NULL;
    dispparams.cArgs = 0;
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_MEMBERNOTFOUND, "IDispatch::Invoke returned %#lx\n", hr);
 
    dispparams.rgvarg = NULL;
    dispparams.cArgs = 0;
    hr = IDispatch_Invoke(pInstaller, dispid, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
    ok(hr == DISP_E_MEMBERNOTFOUND, "IDispatch::Invoke returned %#lx\n", hr);
}

Referenced by START_TEST().

test_dispid()

static void test_dispid ( void  )

static

Definition at line 579 of file automation.c.

{
    const get_did_t *ptr = get_did_data;
    DISPID dispid;
 
    while (ptr->name)
    {
        dispid = get_dispid(pInstaller, ptr->name);
        todo_wine_if (ptr->todo)
            ok(dispid == ptr->did, "%s: expected %ld, got %ld\n", ptr->name, ptr->did, dispid);
        ptr++;
    }
 
    dispid = get_dispid(pInstaller, "RemovePatches");
    ok(dispid == 49 || dispid == -1, "Expected 49 or -1, got %ld\n", dispid);
    dispid = get_dispid(pInstaller, "ApplyMultiplePatches");
    ok(dispid == 51 || dispid == -1, "Expected 51 or -1, got %ld\n", dispid);
    dispid = get_dispid(pInstaller, "ProductsEx");
    ok(dispid == 52 || dispid == -1, "Expected 52 or -1, got %ld\n", dispid);
    dispid = get_dispid(pInstaller, "PatchesEx");
    ok(dispid == 55 || dispid == -1, "Expected 55 or -1, got %ld\n", dispid);
    dispid = get_dispid(pInstaller, "ExtractPatchXMLData");
    ok(dispid == 57 || dispid == -1, "Expected 57 or -1, got %ld\n", dispid);
    dispid = get_dispid( pInstaller, "ProductElevated" );
    ok(dispid == 59 || dispid == -1, "Expected 59 or -1, got %ld\n", dispid);
    dispid = get_dispid( pInstaller, "ProvideAssembly" );
    ok(dispid == 60 || dispid == -1, "Expected 60 or -1, got %ld\n", dispid);
    dispid = get_dispid( pInstaller, "ProductInfoFromScript" );
    ok(dispid == 61 || dispid == -1, "Expected 61 or -1, got %ld\n", dispid);
    dispid = get_dispid( pInstaller, "AdvertiseProduct" );
    ok(dispid == 62 || dispid == -1, "Expected 62 or -1, got %ld\n", dispid);
    dispid = get_dispid( pInstaller, "CreateAdvertiseScript" );
    ok(dispid == 63 || dispid == -1, "Expected 63 or -1, got %ld\n", dispid);
    dispid = get_dispid( pInstaller, "PatchFiles" );
    ok(dispid == 65 || dispid == -1, "Expected 65 or -1, got %ld\n", dispid);
}

Referenced by START_TEST().

test_Installer()

static void test_Installer ( void  )

static

Definition at line 2561 of file automation.c.

{
    WCHAR szPath[MAX_PATH];
    HRESULT hr;
    IDispatch *pSession = NULL, *pDatabase = NULL, *pRecord = NULL, *pStringList = NULL, *pSumInfo = NULL;
    int iValue, iCount;
 
    if (!pInstaller) return;
 
    /* Installer::CreateRecord */
 
    /* Test for error */
    hr = Installer_CreateRecord(-1, &pRecord);
    ok(hr == DISP_E_EXCEPTION, "Installer_CreateRecord failed, hresult %#lx\n", hr);
    ok_exception(hr, L"CreateRecord,Count");
 
    /* Test for success */
    hr = Installer_CreateRecord(1, &pRecord);
    ok(hr == S_OK, "Installer_CreateRecord failed, hresult %#lx\n", hr);
    ok(pRecord != NULL, "Installer_CreateRecord should not have returned NULL record\n");
    if (pRecord)
    {
        /* Record::FieldCountGet */
        hr = Record_FieldCountGet(pRecord, &iValue);
        ok(hr == S_OK, "Record_FiledCountGet failed, hresult %#lx\n", hr);
        ok(iValue == 1, "Record_FieldCountGet result was %d but expected 1\n", iValue);
 
        /* Record::IntegerDataGet */
        hr = Record_IntegerDataGet(pRecord, 1, &iValue);
        ok(hr == S_OK, "Record_IntegerDataGet failed, hresult %#lx\n", hr);
        ok(iValue == MSI_NULL_INTEGER, "Record_IntegerDataGet result was %d but expected %d\n", iValue, MSI_NULL_INTEGER);
 
        /* Record::IntegerDataGet, bad index */
        hr = Record_IntegerDataGet(pRecord, 10, &iValue);
        ok(hr == S_OK, "Record_IntegerDataGet failed, hresult %#lx\n", hr);
        ok(iValue == MSI_NULL_INTEGER, "Record_IntegerDataGet result was %d but expected %d\n", iValue, MSI_NULL_INTEGER);
 
        /* Record::IntegerDataPut */
        hr = Record_IntegerDataPut(pRecord, 1, 100);
        ok(hr == S_OK, "Record_IntegerDataPut failed, hresult %#lx\n", hr);
 
        /* Record::IntegerDataPut, bad index */
        hr = Record_IntegerDataPut(pRecord, 10, 100);
        ok(hr == DISP_E_EXCEPTION, "Record_IntegerDataPut failed, hresult %#lx\n", hr);
        ok_exception(hr, L"IntegerData,Field");
 
        /* Record::IntegerDataGet */
        hr = Record_IntegerDataGet(pRecord, 1, &iValue);
        ok(hr == S_OK, "Record_IntegerDataGet failed, hresult %#lx\n", hr);
        ok(iValue == 100, "Record_IntegerDataGet result was %d but expected 100\n", iValue);
 
        IDispatch_Release(pRecord);
    }
 
    create_package(szPath);
 
    /* Installer::OpenPackage */
    hr = Installer_OpenPackage(szPath, 0, &pSession);
    if (hr == DISP_E_EXCEPTION)
    {
        skip("OpenPackage failed, insufficient rights?\n");
        DeleteFileW(szPath);
        return;
    }
    ok(hr == S_OK, "Installer_OpenPackage failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        test_Session(pSession);
        IDispatch_Release(pSession);
    }
 
    /* Installer::OpenDatabase */
    hr = Installer_OpenDatabase(szPath, (INT_PTR)MSIDBOPEN_TRANSACT, &pDatabase);
    ok(hr == S_OK, "Installer_OpenDatabase failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        test_Database(pDatabase, FALSE);
        IDispatch_Release(pDatabase);
    }
 
    /* Installer::SummaryInformation */
    hr = Installer_SummaryInformation(szPath, 0, &pSumInfo);
    ok(hr == S_OK, "Installer_SummaryInformation failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        test_SummaryInfo(pSumInfo, summary_info, ARRAY_SIZE(summary_info), TRUE);
        IDispatch_Release(pSumInfo);
    }
 
    hr = Installer_SummaryInformation(NULL, 0, &pSumInfo);
    ok(hr == DISP_E_EXCEPTION, "Installer_SummaryInformation failed, hresult %#lx\n", hr);
 
    /* Installer::RegistryValue */
    test_Installer_RegistryValue();
 
    /* Installer::ProductState for our product code, which should not be installed */
    hr = Installer_ProductState(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", &iValue);
    ok(hr == S_OK, "Installer_ProductState failed, hresult %#lx\n", hr);
    ok(iValue == INSTALLSTATE_UNKNOWN, "Installer_ProductState returned %d, expected %d\n", iValue, INSTALLSTATE_UNKNOWN);
 
    /* Installer::ProductInfo for our product code, which should not be installed */
 
    /* Package name */
    memset(szPath, 0, sizeof(szPath));
    hr = Installer_ProductInfo(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", L"PackageName", szPath);
    ok(hr == DISP_E_EXCEPTION, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    ok_exception(hr, L"ProductInfo,Product,Attribute");
 
    /* NULL attribute and NULL product code */
    memset(szPath, 0, sizeof(szPath));
    hr = Installer_ProductInfo(NULL, NULL, szPath);
    ok(hr == DISP_E_EXCEPTION, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    ok_exception(hr, L"ProductInfo,Product,Attribute");
 
    /* Installer::Products */
    test_Installer_Products(FALSE);
 
    /* Installer::RelatedProducts for our upgrade code, should not find anything */
    hr = Installer_RelatedProducts(L"{CE067E8D-2E1A-4367-B734-4EB2BDAD6565}", &pStringList);
    ok(hr == S_OK, "Installer_RelatedProducts failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        /* StringList::Count */
        hr = StringList_Count(pStringList, &iCount);
        ok(hr == S_OK, "StringList_Count failed, hresult %#lx\n", hr);
        ok(!iCount, "Expected no related products but found %d\n", iCount);
 
        IDispatch_Release(pStringList);
    }
 
    /* Installer::Version */
    memset(szPath, 0, sizeof(szPath));
    hr = Installer_VersionGet(szPath);
    ok(hr == S_OK, "Installer_VersionGet failed, hresult %#lx\n", hr);
 
    /* Installer::InstallProduct and other tests that depend on our product being installed */
    test_Installer_InstallProduct();
}

Referenced by START_TEST().

test_Installer_InstallProduct()

static void test_Installer_InstallProduct ( void  )

static

Definition at line 2382 of file automation.c.

{
    HRESULT hr;
    CHAR path[MAX_PATH];
    WCHAR szString[MAX_PATH];
    LONG res;
    HKEY hkey;
    DWORD num, size, type;
    int iValue, iCount;
    IDispatch *pStringList = NULL;
    REGSAM access = KEY_ALL_ACCESS;
 
    if (is_process_limited())
    {
        /* In fact InstallProduct would succeed but then Windows XP
         * would not allow us to clean up the registry!
         */
        skip("Installer_InstallProduct (insufficient privileges)\n");
        return;
    }
 
    if (is_wow64)
        access |= KEY_WOW64_64KEY;
 
    create_test_files();
 
    /* Avoid an interactive dialog in case of insufficient privileges. */
    hr = Installer_UILevelPut(INSTALLUILEVEL_NONE);
    ok(hr == S_OK, "Expected UILevel property put invoke to return S_OK, got %#lx\n", hr);
 
    /* Installer::InstallProduct */
    hr = Installer_InstallProduct(L"winetest-automation.msi", NULL);
    if (hr == DISP_E_EXCEPTION)
    {
        skip("InstallProduct failed, insufficient rights?\n");
        delete_test_files();
        return;
    }
    ok(hr == S_OK, "Installer_InstallProduct failed, hresult %#lx\n", hr);
 
    /* Installer::ProductState for our product code, which has been installed */
    hr = Installer_ProductState(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", &iValue);
    ok(hr == S_OK, "Installer_ProductState failed, hresult %#lx\n", hr);
    ok(iValue == INSTALLSTATE_DEFAULT, "Installer_ProductState returned %d, expected %d\n", iValue, INSTALLSTATE_DEFAULT);
 
    /* Installer::ProductInfo for our product code */
 
    /* NULL attribute */
    memset(szString, 0, sizeof(szString));
    hr = Installer_ProductInfo(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", NULL, szString);
    ok(hr == DISP_E_EXCEPTION, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    ok_exception(hr, L"ProductInfo,Product,Attribute");
 
    /* Nonexistent attribute */
    memset(szString, 0, sizeof(szString));
    hr = Installer_ProductInfo(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", L"winetest-automation.msi", szString);
    ok(hr == DISP_E_EXCEPTION, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    ok_exception(hr, L"ProductInfo,Product,Attribute");
 
    /* Package name */
    memset(szString, 0, sizeof(szString));
    hr = Installer_ProductInfo(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", L"PackageName", szString);
    ok(hr == S_OK, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    todo_wine ok_w2("Installer_ProductInfo returned %s but expected %s\n", szString, L"winetest-automation.msi");
 
    /* Product name */
    memset(szString, 0, sizeof(szString));
    hr = Installer_ProductInfo(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", L"ProductName", szString);
    ok(hr == S_OK, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    todo_wine ok_w2("Installer_ProductInfo returned %s but expected %s\n", szString, L"MSITEST");
 
    /* Installer::Products */
    test_Installer_Products(TRUE);
 
    /* Installer::RelatedProducts for our upgrade code */
    hr = Installer_RelatedProducts(L"{CE067E8D-2E1A-4367-B734-4EB2BDAD6565}", &pStringList);
    ok(hr == S_OK, "Installer_RelatedProducts failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        /* StringList::Count */
        hr = StringList_Count(pStringList, &iCount);
        ok(hr == S_OK, "StringList_Count failed, hresult %#lx\n", hr);
        ok(iCount == 1, "Expected one related product but found %d\n", iCount);
 
        /* StringList::Item */
        memset(szString, 0, sizeof(szString));
        hr = StringList_Item(pStringList, 0, szString);
        ok(hr == S_OK, "StringList_Item failed (idx 0, count %d), hresult %#lx\n", iCount, hr);
        ok_w2("StringList_Item returned %s but expected %s\n", szString, L"{837450fa-a39b-4bc8-b321-08b393f784b3}");
 
        IDispatch_Release(pStringList);
    }
 
    hr = Installer_ProductInfo(L"{837450fa-a39b-4bc8-b321-08b393f784b3}", L"LocalPackage", szString);
    ok(hr == S_OK, "Installer_ProductInfo failed, hresult %#lx\n", hr);
    DeleteFileW( szString );
 
    /* Check & clean up installed files & registry keys */
    ok(delete_pf("msitest\\cabout\\new\\five.txt", TRUE), "File not installed\n");
    ok(delete_pf("msitest\\cabout\\new", FALSE), "Directory not created\n");
    ok(delete_pf("msitest\\cabout\\four.txt", TRUE), "File not installed\n");
    ok(delete_pf("msitest\\cabout", FALSE), "Directory not created\n");
    ok(delete_pf("msitest\\changed\\three.txt", TRUE), "File not installed\n");
    ok(delete_pf("msitest\\changed", FALSE), "Directory not created\n");
    ok(delete_pf("msitest\\first\\two.txt", TRUE), "File not installed\n");
    ok(delete_pf("msitest\\first", FALSE), "Directory not created\n");
    ok(delete_pf("msitest\\one.txt", TRUE), "File not installed\n");
    ok(delete_pf("msitest\\filename", TRUE), "File not installed\n");
    ok(delete_pf("msitest", FALSE), "Directory not created\n");
 
    res = RegOpenKeyA(HKEY_CURRENT_USER, "SOFTWARE\\Wine\\msitest", &hkey);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    size = MAX_PATH;
    type = REG_SZ;
    res = RegQueryValueExA(hkey, "Name", NULL, &type, (LPBYTE)path, &size);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
    ok(!lstrcmpA(path, "imaname"), "Expected imaname, got %s\n", path);
 
    size = MAX_PATH;
    type = REG_SZ;
    res = RegQueryValueExA(hkey, "blah", NULL, &type, (LPBYTE)path, &size);
    ok(res == ERROR_FILE_NOT_FOUND, "Expected ERROR_FILE_NOT_FOUND, got %ld\n", res);
 
    size = sizeof(num);
    type = REG_DWORD;
    res = RegQueryValueExA(hkey, "number", NULL, &type, (LPBYTE)&num, &size);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
    ok(num == 314, "Expected 314, got %lu\n", num);
 
    size = MAX_PATH;
    type = REG_SZ;
    res = RegQueryValueExA(hkey, "OrderTestName", NULL, &type, (LPBYTE)path, &size);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
    ok(!lstrcmpA(path, "OrderTestValue"), "Expected imaname, got %s\n", path);
 
    RegCloseKey(hkey);
 
    res = RegDeleteKeyA(HKEY_CURRENT_USER, "SOFTWARE\\Wine\\msitest");
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    /* Remove registry keys written by RegisterProduct standard action */
    res = delete_key_portable(HKEY_LOCAL_MACHINE,
        "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{837450fa-a39b-4bc8-b321-08b393f784b3}",
                              KEY_WOW64_32KEY);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    res = delete_key_portable(HKEY_LOCAL_MACHINE,
        "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Installer\\UpgradeCodes\\D8E760ECA1E276347B43E42BDBDA5656", access);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    res = find_registry_key(HKEY_LOCAL_MACHINE,
        "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Installer\\UserData", "af054738b93a8cb43b12803b397f483b", access, &hkey);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    res = delete_registry_key(hkey, "af054738b93a8cb43b12803b397f483b", access);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
    RegCloseKey(hkey);
 
    res = delete_key_portable(HKEY_LOCAL_MACHINE,
        "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Installer\\Products\\af054738b93a8cb43b12803b397f483b", access);
    ok(res == ERROR_FILE_NOT_FOUND, "Expected ERROR_FILE_NOT_FOUND, got %ld\n", res);
 
    /* Remove registry keys written by PublishProduct standard action */
    res = RegOpenKeyA(HKEY_CURRENT_USER, "SOFTWARE\\Microsoft\\Installer", &hkey);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    res = delete_registry_key(hkey, "Products\\af054738b93a8cb43b12803b397f483b", KEY_ALL_ACCESS);
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    res = RegDeleteKeyA(hkey, "UpgradeCodes\\D8E760ECA1E276347B43E42BDBDA5656");
    ok(res == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %ld\n", res);
 
    RegCloseKey(hkey);
 
    /* Delete installation files we created */
    delete_test_files();
}

Referenced by test_Installer().

test_Installer_Products()

static void test_Installer_Products ( BOOL  bProductInstalled )

static

Definition at line 2171 of file automation.c.

{
    WCHAR szString[MAX_PATH];
    HRESULT hr;
    int idx;
    IUnknown *pUnk = NULL;
    IEnumVARIANT *pEnum = NULL;
    VARIANT var;
    ULONG celt;
    int iCount, iValue;
    IDispatch *pStringList = NULL;
    BOOL bProductFound = FALSE;
 
    /* Installer::Products */
    hr = Installer_Products(&pStringList);
    ok(hr == S_OK, "Installer_Products failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        /* StringList::_NewEnum */
        hr = StringList__NewEnum(pStringList, &pUnk);
        ok(hr == S_OK, "StringList_NewEnum failed, hresult %#lx\n", hr);
        if (hr == S_OK)
        {
            hr = IUnknown_QueryInterface(pUnk, &IID_IEnumVARIANT, (void **)&pEnum);
            ok (hr == S_OK, "IUnknown::QueryInterface returned %#lx\n", hr);
        }
        if (!pEnum)
            skip("IEnumVARIANT tests\n");
 
        /* StringList::Count */
        hr = StringList_Count(pStringList, &iCount);
        ok(hr == S_OK, "StringList_Count failed, hresult %#lx\n", hr);
 
        for (idx=0; idx<iCount; idx++)
        {
            /* StringList::Item */
            memset(szString, 0, sizeof(szString));
            hr = StringList_Item(pStringList, idx, szString);
            ok(hr == S_OK, "StringList_Item failed (idx %d, count %d), hresult %#lx\n", idx, iCount, hr);
 
            if (hr == S_OK)
            {
                /* Installer::ProductState */
                hr = Installer_ProductState(szString, &iValue);
                ok(hr == S_OK, "Installer_ProductState failed, hresult %#lx\n", hr);
                if (hr == S_OK)
                    ok(iValue == INSTALLSTATE_DEFAULT || iValue == INSTALLSTATE_ADVERTISED,
                       "Installer_ProductState returned %d, expected %d or %d\n", iValue, INSTALLSTATE_DEFAULT, INSTALLSTATE_ADVERTISED);
 
                /* Not found our product code yet? Check */
                if (!bProductFound && !lstrcmpW(szString, L"{837450fa-a39b-4bc8-b321-08b393f784b3}"))
                    bProductFound = TRUE;
 
                /* IEnumVARIANT::Next */
                if (pEnum)
                {
                    hr = IEnumVARIANT_Next(pEnum, 1, &var, &celt);
                    ok(hr == S_OK, "IEnumVARIANT_Next failed (idx %d, count %d), hresult %#lx\n", idx, iCount, hr);
                    ok(celt == 1, "%lu items were retrieved, expected 1\n", celt);
                    ok(V_VT(&var) == VT_BSTR, "IEnumVARIANT_Next returned variant of type %d, expected %d\n", V_VT(&var), VT_BSTR);
                    ok_w2("%s returned by StringList_Item does not match %s returned by IEnumVARIANT_Next\n", szString, V_BSTR(&var));
                    VariantClear(&var);
                }
            }
        }
 
        if (bProductInstalled)
        {
            ok(bProductInstalled == bProductFound, "Product expected to %s installed but product code was %s\n",
               bProductInstalled ? "be" : "not be",
               bProductFound ? "found" : "not found");
        }
 
        if (pEnum)
        {
            IEnumVARIANT *pEnum2 = NULL;
 
            if (0) /* Crashes on Windows XP */
            {
                /* IEnumVARIANT::Clone, NULL pointer */
                IEnumVARIANT_Clone(pEnum, NULL);
            }
 
            /* IEnumVARIANT::Clone */
            hr = IEnumVARIANT_Clone(pEnum, &pEnum2);
            ok(hr == S_OK, "IEnumVARIANT_Clone failed, hresult %#lx\n", hr);
            if (hr == S_OK)
            {
                /* IEnumVARIANT::Clone is supposed to save the position, but it actually just goes back to the beginning */
 
                /* IEnumVARIANT::Next of the clone */
                if (iCount)
                {
                    hr = IEnumVARIANT_Next(pEnum2, 1, &var, &celt);
                    ok(hr == S_OK, "IEnumVARIANT_Next failed, hresult %#lx\n", hr);
                    ok(celt == 1, "%lu items were retrieved, expected 0\n", celt);
                    ok(V_VT(&var) == VT_BSTR, "IEnumVARIANT_Next returned variant of type %d, expected %d\n", V_VT(&var), VT_BSTR);
                    VariantClear(&var);
                }
                else
                    skip("IEnumVARIANT::Next of clone will not return success with 0 products\n");
 
                IEnumVARIANT_Release(pEnum2);
            }
 
            /* IEnumVARIANT::Skip should fail */
            hr = IEnumVARIANT_Skip(pEnum, 1);
            ok(hr == S_FALSE, "IEnumVARIANT_Skip failed, hresult %#lx\n", hr);
 
            /* IEnumVARIANT::Next, NULL variant pointer */
            hr = IEnumVARIANT_Next(pEnum, 1, NULL, &celt);
            ok(hr == S_FALSE, "IEnumVARIANT_Next failed, hresult %#lx\n", hr);
            ok(celt == 0, "%lu items were retrieved, expected 0\n", celt);
 
            /* IEnumVARIANT::Next, should not return any more items */
            hr = IEnumVARIANT_Next(pEnum, 1, &var, &celt);
            ok(hr == S_FALSE, "IEnumVARIANT_Next failed, hresult %#lx\n", hr);
            ok(celt == 0, "%lu items were retrieved, expected 0\n", celt);
            VariantClear(&var);
 
            /* IEnumVARIANT::Reset */
            hr = IEnumVARIANT_Reset(pEnum);
            ok(hr == S_OK, "IEnumVARIANT_Reset failed, hresult %#lx\n", hr);
 
            if (iCount)
            {
                /* IEnumVARIANT::Skip to the last product */
                hr = IEnumVARIANT_Skip(pEnum, iCount-1);
                ok(hr == S_OK, "IEnumVARIANT_Skip failed, hresult %#lx\n", hr);
 
                /* IEnumVARIANT::Next should match the very last retrieved value, also makes sure it works with
                 * NULL celt pointer. */
                hr = IEnumVARIANT_Next(pEnum, 1, &var, NULL);
                ok(hr == S_OK, "IEnumVARIANT_Next failed (idx %d, count %d), hresult %#lx\n", idx, iCount, hr);
                ok(V_VT(&var) == VT_BSTR, "IEnumVARIANT_Next returned variant of type %d, expected %d\n", V_VT(&var), VT_BSTR);
                ok_w2("%s returned by StringList_Item does not match %s returned by IEnumVARIANT_Next\n", szString, V_BSTR(&var));
                VariantClear(&var);
            }
            else
                skip("IEnumVARIANT::Skip impossible for 0 products\n");
        }
 
        /* StringList::Item using an invalid index */
        memset(szString, 0, sizeof(szString));
        hr = StringList_Item(pStringList, iCount, szString);
        ok(hr == DISP_E_BADINDEX, "StringList_Item for an invalid index did not return DISP_E_BADINDEX, hresult %#lx\n", hr);
 
        if (pEnum) IEnumVARIANT_Release(pEnum);
        if (pUnk) IUnknown_Release(pUnk);
        IDispatch_Release(pStringList);
    }
}

Referenced by test_Installer(), and test_Installer_InstallProduct().

test_Installer_RegistryValue()

static void test_Installer_RegistryValue ( void  )

static

Definition at line 2018 of file automation.c.

{
    static const DWORD qw[2] = { 0x12345678, 0x87654321 };
    VARIANT varresult;
    VARIANTARG vararg;
    WCHAR szString[MAX_PATH];
    HKEY hkey, hkey_sub;
    HKEY curr_user = (HKEY)1;
    HRESULT hr;
    BOOL bRet;
    LONG lRet;
 
    /* Delete keys */
    SetLastError(0xdeadbeef);
    lRet = RegOpenKeyW( HKEY_CURRENT_USER, L"Software\\Wine\\Test", &hkey );
    if (!lRet && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
    {
        win_skip("Needed W-functions are not implemented\n");
        return;
    }
    if (!lRet)
        delete_key( hkey );
 
    /* Does our key exist? Shouldn't; check with all three possible value parameter types */
    hr = Installer_RegistryValueE(curr_user, L"Software\\Wine\\Test", &bRet);
    ok(hr == S_OK, "Installer_RegistryValueE failed, hresult %#lx\n", hr);
    ok(!bRet, "Registry key expected to not exist, but Installer_RegistryValue claims it does\n");
 
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", NULL, szString);
    ok(hr == DISP_E_BADINDEX, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
 
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueI(curr_user, L"Software\\Wine\\Test", 0, szString, VT_BSTR);
    ok(hr == DISP_E_BADINDEX, "Installer_RegistryValueI failed, hresult %#lx\n", hr);
 
    /* Create key */
    ok(!RegCreateKeyW( HKEY_CURRENT_USER, L"Software\\Wine\\Test", &hkey ), "RegCreateKeyW failed\n");
 
    ok(!RegSetValueExW(hkey, L"One", 0, REG_SZ, (const BYTE *)L"One", sizeof(L"one")),
        "RegSetValueExW failed\n");
    ok(!RegSetValueExW(hkey, L"Two", 0, REG_DWORD, (const BYTE *)qw, 4),
        "RegSetValueExW failed\n");
    ok(!RegSetValueExW(hkey, L"Three", 0, REG_BINARY, (const BYTE *)qw, 4),
        "RegSetValueExW failed\n");
    bRet = SetEnvironmentVariableA("MSITEST", "Four");
    ok(bRet, "SetEnvironmentVariableA failed %lu\n", GetLastError());
    ok(!RegSetValueExW(hkey, L"Four", 0, REG_EXPAND_SZ, (const BYTE *)L"%MSITEST%", sizeof(L"%MSITEST%")),
        "RegSetValueExW failed\n");
    ok(!RegSetValueExW(hkey, L"Five\0Hi\0", 0, REG_MULTI_SZ, (const BYTE *)L"Five\0Hi\0", sizeof(L"Five\0Hi\0")),
        "RegSetValueExW failed\n");
    ok(!RegSetValueExW(hkey, L"Six", 0, REG_QWORD, (const BYTE *)qw, 8),
        "RegSetValueExW failed\n");
    ok(!RegSetValueExW(hkey, L"Seven", 0, REG_NONE, NULL, 0),
        "RegSetValueExW failed\n");
 
    ok(!RegSetValueExW(hkey, NULL, 0, REG_SZ, (const BYTE *)L"One", sizeof(L"One")),
        "RegSetValueExW failed\n");
 
    ok(!RegCreateKeyW( hkey, L"Eight", &hkey_sub ), "RegCreateKeyW failed\n");
 
    /* Does our key exist? It should, and make sure we retrieve the correct default value */
    bRet = FALSE;
    hr = Installer_RegistryValueE(curr_user, L"Software\\Wine\\Test", &bRet);
    ok(hr == S_OK, "Installer_RegistryValueE failed, hresult %#lx\n", hr);
    ok(bRet, "Registry key expected to exist, but Installer_RegistryValue claims it does not\n");
 
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", NULL, szString);
    ok(hr == S_OK, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
    ok_w2("Default registry value \"%s\" does not match expected \"%s\"\n", szString, L"One");
 
    /* Ask for the value of a nonexistent key */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", L"%MSITEST%", szString);
    ok(hr == DISP_E_BADINDEX, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
 
    /* Get values of keys */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", L"One", szString);
    ok(hr == S_OK, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
    ok_w2("Registry value \"%s\" does not match expected \"%s\"\n", szString, L"One");
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_BSTR;
    V_BSTR(&vararg) = SysAllocString(L"Two");
    hr = Installer_RegistryValue(curr_user, L"Software\\Wine\\Test", vararg, &varresult, VT_I4);
    ok(hr == S_OK, "Installer_RegistryValue failed, hresult %#lx\n", hr);
    ok(V_I4(&varresult) == 305419896, "Registry value %ld does not match expected value\n", V_I4(&varresult));
    VariantClear(&varresult);
 
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", L"Three", szString);
    ok(hr == S_OK, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
    ok_w2("Registry value \"%s\" does not match expected \"%s\"\n", szString, L"(REG_BINARY)");
 
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", L"Four", szString);
    ok(hr == S_OK, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
    ok_w2("Registry value \"%s\" does not match expected \"%s\"\n", szString, L"Four");
 
    /* Vista does not NULL-terminate this case */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", L"Five\0Hi\0", szString);
    ok(hr == S_OK, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
    ok_w2n("Registry value \"%s\" does not match expected \"%s\"\n",
           szString, L"Five\nHi", lstrlenW(L"Five\nHi"));
 
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueW(curr_user, L"Software\\Wine\\Test", L"Six", szString);
    ok(hr == S_OK, "Installer_RegistryValueW failed, hresult %#lx\n", hr);
    ok(!lstrcmpW(szString, L"(REG_\?\?)") || broken(!lstrcmpW(szString, L"(REG_]")),
       "Registry value does not match\n");
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_BSTR;
    V_BSTR(&vararg) = SysAllocString(L"Seven");
    hr = Installer_RegistryValue(curr_user, L"Software\\Wine\\Test", vararg, &varresult, VT_EMPTY);
    ok(hr == S_OK, "Installer_RegistryValue failed, hresult %#lx\n", hr);
 
    /* Get string class name for the key */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueI(curr_user, L"Software\\Wine\\Test", 0, szString, VT_BSTR);
    ok(hr == S_OK, "Installer_RegistryValueI failed, hresult %#lx\n", hr);
    ok_w2("Registry name \"%s\" does not match expected \"%s\"\n", szString, L"");
 
    /* Get name of a value by positive number (RegEnumValue like), valid index */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueI(curr_user, L"Software\\Wine\\Test", 2, szString, VT_BSTR);
    ok(hr == S_OK, "Installer_RegistryValueI failed, hresult %#lx\n", hr);
    /* RegEnumValue order seems different on wine */
    todo_wine ok_w2("Registry name \"%s\" does not match expected \"%s\"\n", szString, L"Two");
 
    /* Get name of a value by positive number (RegEnumValue like), invalid index */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueI(curr_user, L"Software\\Wine\\Test", 10, szString, VT_EMPTY);
    ok(hr == S_OK, "Installer_RegistryValueI failed, hresult %#lx\n", hr);
 
    /* Get name of a subkey by negative number (RegEnumValue like), valid index */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueI(curr_user, L"Software\\Wine\\Test", -1, szString, VT_BSTR);
    ok(hr == S_OK, "Installer_RegistryValueI failed, hresult %#lx\n", hr);
    ok_w2("Registry name \"%s\" does not match expected \"%s\"\n", szString, L"Eight");
 
    /* Get name of a subkey by negative number (RegEnumValue like), invalid index */
    memset(szString, 0, sizeof(szString));
    hr = Installer_RegistryValueI(curr_user, L"Software\\Wine\\Test", -10, szString, VT_EMPTY);
    ok(hr == S_OK, "Installer_RegistryValueI failed, hresult %#lx\n", hr);
 
    /* clean up */
    delete_key(hkey);
}

Referenced by test_Installer().

test_Session()

static void test_Session ( IDispatch *  pSession )

static

Definition at line 1831 of file automation.c.

{
    WCHAR stringw[MAX_PATH];
    CHAR string[MAX_PATH];
    UINT len;
    VARIANT_BOOL bool;
    int myint;
    IDispatch *pDatabase = NULL, *pInst = NULL, *record = NULL;
    ULONG refs_before, refs_after;
    HRESULT hr;
 
    /* Session::Installer */
    hr = Session_Installer(pSession, &pInst);
    ok(hr == S_OK, "Session_Installer failed, hresult %#lx\n", hr);
    ok(pInst != NULL, "Session_Installer returned NULL IDispatch pointer\n");
    ok(pInst == pInstaller, "Session_Installer does not match Installer instance from CoCreateInstance\n");
    refs_before = IDispatch_AddRef(pInst);
 
    hr = Session_Installer(pSession, &pInst);
    ok(hr == S_OK, "Session_Installer failed, hresult %#lx\n", hr);
    ok(pInst != NULL, "Session_Installer returned NULL IDispatch pointer\n");
    ok(pInst == pInstaller, "Session_Installer does not match Installer instance from CoCreateInstance\n");
    refs_after = IDispatch_Release(pInst);
    ok(refs_before == refs_after, "got %lu and %lu\n", refs_before, refs_after);
 
    /* Session::Property, get */
    memset(stringw, 0, sizeof(stringw));
    hr = Session_PropertyGet(pSession, L"ProductName", stringw);
    ok(hr == S_OK, "Session_PropertyGet failed, hresult %#lx\n", hr);
    if (lstrcmpW(stringw, L"MSITEST") != 0)
    {
        len = WideCharToMultiByte(CP_ACP, 0, stringw, -1, string, MAX_PATH, NULL, NULL);
        ok(len, "WideCharToMultiByteChar returned error %lu\n", GetLastError());
        ok(0, "Property \"ProductName\" expected to be \"MSITEST\" but was \"%s\"\n", string);
    }
 
    /* Session::Property, put */
    hr = Session_PropertyPut(pSession, L"ProductName", L"ProductName");
    ok(hr == S_OK, "Session_PropertyPut failed, hresult %#lx\n", hr);
    memset(stringw, 0, sizeof(stringw));
    hr = Session_PropertyGet(pSession, L"ProductName", stringw);
    ok(hr == S_OK, "Session_PropertyGet failed, hresult %#lx\n", hr);
    if (lstrcmpW(stringw, L"ProductName") != 0)
    {
        len = WideCharToMultiByte(CP_ACP, 0, stringw, -1, string, MAX_PATH, NULL, NULL);
        ok(len, "WideCharToMultiByteChar returned error %lu\n", GetLastError());
        ok(0, "Property \"ProductName\" expected to be \"ProductName\" but was \"%s\"\n", string);
    }
 
    /* Try putting a property using empty property identifier */
    hr = Session_PropertyPut(pSession, L"", L"ProductName");
    ok(hr == DISP_E_EXCEPTION, "Session_PropertyPut failed, hresult %#lx\n", hr);
    ok_exception(hr, L"Property,Name");
 
    /* Try putting a property using illegal property identifier */
    hr = Session_PropertyPut(pSession, L"=", L"ProductName");
    ok(hr == S_OK, "Session_PropertyPut failed, hresult %#lx\n", hr);
 
    /* Session::Language, get */
    hr = Session_LanguageGet(pSession, &len);
    ok(hr == S_OK, "Session_LanguageGet failed, hresult %#lx\n", hr);
    /* Not sure how to check the language is correct */
 
    /* Session::Mode, get */
    hr = Session_ModeGet(pSession, MSIRUNMODE_REBOOTATEND, &bool);
    ok(hr == S_OK, "Session_ModeGet failed, hresult %#lx\n", hr);
    ok(!bool, "Reboot at end session mode is %d\n", bool);
 
    hr = Session_ModeGet(pSession, MSIRUNMODE_MAINTENANCE, &bool);
    ok(hr == S_OK, "Session_ModeGet failed, hresult %#lx\n", hr);
    ok(!bool, "Maintenance mode is %d\n", bool);
 
    /* Session::Mode, put */
    hr = Session_ModePut(pSession, MSIRUNMODE_REBOOTATEND, VARIANT_TRUE);
    ok(hr == S_OK, "Session_ModePut failed, hresult %#lx\n", hr);
    hr = Session_ModeGet(pSession, MSIRUNMODE_REBOOTATEND, &bool);
    ok(hr == S_OK, "Session_ModeGet failed, hresult %#lx\n", hr);
    ok(bool, "Reboot at end session mode is %d, expected 1\n", bool);
    hr = Session_ModePut(pSession, MSIRUNMODE_REBOOTATEND, VARIANT_FALSE);  /* set it again so we don't reboot */
    ok(hr == S_OK, "Session_ModePut failed, hresult %#lx\n", hr);
 
    hr = Session_ModePut(pSession, MSIRUNMODE_REBOOTNOW, VARIANT_TRUE);
    ok(hr == S_OK, "Session_ModePut failed, hresult %#lx\n", hr);
    ok_exception(hr, L"Mode,Flag");
 
    hr = Session_ModeGet(pSession, MSIRUNMODE_REBOOTNOW, &bool);
    ok(hr == S_OK, "Session_ModeGet failed, hresult %#lx\n", hr);
    ok(bool, "Reboot now mode is %d, expected 1\n", bool);
 
    hr = Session_ModePut(pSession, MSIRUNMODE_REBOOTNOW, VARIANT_FALSE);  /* set it again so we don't reboot */
    ok(hr == S_OK, "Session_ModePut failed, hresult %#lx\n", hr);
    ok_exception(hr, L"Mode,Flag");
 
    hr = Session_ModePut(pSession, MSIRUNMODE_MAINTENANCE, VARIANT_TRUE);
    ok(hr == DISP_E_EXCEPTION, "Session_ModePut failed, hresult %#lx\n", hr);
    ok_exception(hr, L"Mode,Flag");
 
    /* Session::Database, get */
    hr = Session_Database(pSession, &pDatabase);
    ok(hr == S_OK, "Session_Database failed, hresult %#lx\n", hr);
    if (hr == S_OK)
    {
        test_Database(pDatabase, TRUE);
        IDispatch_Release(pDatabase);
    }
 
    /* Session::EvaluateCondition */
    hr = Session_EvaluateCondition(pSession, NULL, &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_NONE, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    hr = Session_EvaluateCondition(pSession, L"", &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_NONE, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    hr = Session_EvaluateCondition(pSession, L"=", &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_ERROR, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    /* Session::DoAction(CostInitialize) must occur before the next statements */
    hr = Session_DoAction(pSession, L"CostInitialize", &myint);
    ok(hr == S_OK, "Session_DoAction failed, hresult %#lx\n", hr);
    ok(myint == IDOK, "DoAction(CostInitialize) returned %d, %d expected\n", myint, IDOK);
 
    /* Session::SetInstallLevel */
    hr = Session_SetInstallLevel(pSession, INSTALLLEVEL_MINIMUM);
    ok(hr == S_OK, "Session_SetInstallLevel failed, hresult %#lx\n", hr);
 
    /* Session::FeatureCurrentState, get */
    hr = Session_FeatureCurrentState(pSession, L"One", &myint);
    ok(hr == S_OK, "Session_FeatureCurrentState failed, hresult %#lx\n", hr);
    ok(myint == INSTALLSTATE_UNKNOWN, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    /* Session::Message */
    hr = Installer_CreateRecord(0, &record);
    ok(hr == S_OK, "Installer_CreateRecord failed: %#lx\n", hr);
    hr = Session_Message(pSession, INSTALLMESSAGE_INFO, record, &myint);
    ok(hr == S_OK, "Session_Message failed: %#lx\n", hr);
    ok(myint == 0, "Session_Message returned %x\n", myint);
 
    /* Session::EvaluateCondition */
    hr = Session_EvaluateCondition(pSession, L"!One>0", &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_FALSE, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    hr = Session_EvaluateCondition(pSession, L"!One=-1", &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_TRUE, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    /* Session::FeatureRequestState, put */
    hr = Session_FeatureRequestStatePut(pSession, L"One", INSTALLSTATE_ADVERTISED);
    ok(hr == S_OK, "Session_FeatureRequestStatePut failed, hresult %#lx\n", hr);
    hr = Session_FeatureRequestStateGet(pSession, L"One", &myint);
    ok(hr == S_OK, "Session_FeatureRequestStateGet failed, hresult %#lx\n", hr);
    ok(myint == INSTALLSTATE_ADVERTISED, "Feature request state was %d but expected %d\n", myint, INSTALLSTATE_ADVERTISED);
 
    /* Session::EvaluateCondition */
    hr = Session_EvaluateCondition(pSession, L"$One=-1", &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_FALSE, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
 
    hr = Session_EvaluateCondition(pSession, L"$One>0", &myint);
    ok(hr == S_OK, "Session_EvaluateCondition failed, hresult %#lx\n", hr);
    ok(myint == MSICONDITION_TRUE, "Feature current state was %d but expected %d\n", myint, INSTALLSTATE_UNKNOWN);
}

Referenced by test_Installer().

test_SummaryInfo()

static void test_SummaryInfo ( IDispatch *  pSummaryInfo, const msi_summary_info *  info, int  num_info, BOOL  readonly  )

static

Definition at line 1582 of file automation.c.

{
    VARIANT varresult, var;
    SYSTEMTIME st;
    HRESULT hr;
    int j;
 
    /* SummaryInfo::PropertyCount */
    hr = SummaryInfo_PropertyCountGet(pSummaryInfo, &j);
    ok(hr == S_OK, "SummaryInfo_PropertyCount failed, hresult %#lx\n", hr);
    ok(j == num_info, "SummaryInfo_PropertyCount returned %d, expected %d\n", j, num_info);
 
    /* SummaryInfo::Property, get for properties we have set */
    for (j = 0; j < num_info; j++)
    {
        const msi_summary_info *entry = &info[j];
 
        int vt = entry->datatype;
        if (vt == VT_LPSTR) vt = VT_BSTR;
        else if (vt == VT_FILETIME) vt = VT_DATE;
        else if (vt == VT_I2) vt = VT_I4;
 
        hr = SummaryInfo_PropertyGet(pSummaryInfo, entry->property, &varresult, vt);
        ok(hr == S_OK, "SummaryInfo_Property (pid %d) failed, hresult %#lx\n", entry->property, hr);
        if (V_VT(&varresult) != vt)
            skip("Skipping property tests due to type mismatch\n");
        else if (vt == VT_I4)
            ok(V_I4(&varresult) == entry->iValue, "SummaryInfo_Property (pid %d) I4 result expected to be %d, but was %ld\n",
               entry->property, entry->iValue, V_I4(&varresult));
        else if (vt == VT_DATE)
        {
            FILETIME ft;
            DATE d;
 
            FileTimeToLocalFileTime(entry->pftValue, &ft);
            FileTimeToSystemTime(&ft, &st);
            SystemTimeToVariantTime(&st, &d);
            ok(d == V_DATE(&varresult), "SummaryInfo_Property (pid %d) DATE result expected to be %lf, but was %lf\n", entry->property, d, V_DATE(&varresult));
        }
        else if (vt == VT_BSTR)
        {
            ok_awplus("SummaryInfo_Property (pid %d) BSTR result expected to be %s, but was %s\n", entry->property, entry->szValue, V_BSTR(&varresult));
        }
        else
            skip("SummaryInfo_Property (pid %d) unhandled result type %d\n", entry->property, vt);
 
        VariantClear(&varresult);
    }
 
    /* SummaryInfo::Property, get; invalid arguments */
 
    /* Invalid pids */
    hr = SummaryInfo_PropertyGet(pSummaryInfo, -1, &varresult, VT_EMPTY);
    ok(hr == DISP_E_EXCEPTION, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
    ok_exception(hr, L"Property,Pid");
 
    hr = SummaryInfo_PropertyGet(pSummaryInfo, 1000, &varresult, VT_EMPTY);
    ok(hr == DISP_E_EXCEPTION, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
    ok_exception(hr, L"Property,Pid");
 
    /* Unsupported pids */
    hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_DICTIONARY, &varresult, VT_EMPTY);
    ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
 
    hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_THUMBNAIL, &varresult, VT_EMPTY);
    ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
 
    /* Pids we have not set, one for each type */
    hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_CODEPAGE, &varresult, VT_EMPTY);
    ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
 
    hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_TITLE, &varresult, VT_EMPTY);
    ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
 
    hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_EDITTIME, &varresult, VT_EMPTY);
    ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
 
    hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_CHARCOUNT, &varresult, VT_EMPTY);
    ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
 
    if (!readonly)
    {
        /* SummaryInfo::Property, put; one for each type */
 
        /* VT_I2 */
        VariantInit(&var);
        V_VT(&var) = VT_I2;
        V_I2(&var) = 1;
        hr = SummaryInfo_PropertyPut(pSummaryInfo, PID_CODEPAGE, &var);
        ok(hr == S_OK, "SummaryInfo_PropertyPut failed, hresult %#lx\n", hr);
 
        hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_CODEPAGE, &varresult, VT_I4 /* NOT VT_I2 */);
        ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
        ok(V_I2(&var) == V_I2(&varresult), "SummaryInfo_PropertyGet expected %d, but returned %d\n", V_I2(&var), V_I2(&varresult));
        VariantClear(&varresult);
        VariantClear(&var);
 
        /* VT_BSTR */
        V_VT(&var) = VT_BSTR;
        V_BSTR(&var) = SysAllocString(L"Title");
        hr = SummaryInfo_PropertyPut(pSummaryInfo, PID_TITLE, &var);
        ok(hr == S_OK, "SummaryInfo_PropertyPut failed, hresult %#lx\n", hr);
 
        hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_TITLE, &varresult, V_VT(&var));
        ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
        ok_w2("SummaryInfo_PropertyGet expected %s, but returned %s\n", V_BSTR(&var), V_BSTR(&varresult));
        VariantClear(&varresult);
        VariantClear(&var);
 
        /* VT_DATE */
        V_VT(&var) = VT_DATE;
        FileTimeToSystemTime(&systemtime, &st);
        SystemTimeToVariantTime(&st, &V_DATE(&var));
        hr = SummaryInfo_PropertyPut(pSummaryInfo, PID_LASTSAVE_DTM, &var);
        ok(hr == S_OK, "SummaryInfo_PropertyPut failed, hresult %#lx\n", hr);
 
        hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_LASTSAVE_DTM, &varresult, V_VT(&var));
        ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
        ok(V_DATE(&var) == V_DATE(&varresult), "SummaryInfo_PropertyGet expected %lf, but returned %lf\n", V_DATE(&var), V_DATE(&varresult));
        VariantClear(&varresult);
        VariantClear(&var);
 
        /* VT_I4 */
        V_VT(&var) = VT_I4;
        V_I4(&var) = 1000;
        hr = SummaryInfo_PropertyPut(pSummaryInfo, PID_CHARCOUNT, &var);
        ok(hr == S_OK, "SummaryInfo_PropertyPut failed, hresult %#lx\n", hr);
 
        hr = SummaryInfo_PropertyGet(pSummaryInfo, PID_CHARCOUNT, &varresult, V_VT(&var));
        ok(hr == S_OK, "SummaryInfo_PropertyGet failed, hresult %#lx\n", hr);
        ok(V_I4(&var) == V_I4(&varresult), "SummaryInfo_PropertyGet expected %ld, but returned %ld\n", V_I4(&var), V_I4(&varresult));
        VariantClear(&varresult);
        VariantClear(&var);
 
        /* SummaryInfo::PropertyCount */
        hr = SummaryInfo_PropertyCountGet(pSummaryInfo, &j);
        ok(hr == S_OK, "SummaryInfo_PropertyCount failed, hresult %#lx\n", hr);
        ok(j == num_info+4, "SummaryInfo_PropertyCount returned %d, expected %d\n", j, num_info);
    }
}

Referenced by test_Database(), and test_Installer().

View_Close()

static HRESULT View_Close ( IDispatch *  pView )

static

Definition at line 1418 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    return invoke(pView, "Close", DISPATCH_METHOD, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Database().

View_Execute()

static HRESULT View_Execute ( IDispatch *  pView, IDispatch *  pRecord  )

static

Definition at line 1378 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[1];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
 
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_DISPATCH;
    V_DISPATCH(&vararg[0]) = pRecord;
 
    return invoke(pView, "Execute", DISPATCH_METHOD, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Database().

View_Fetch()

static HRESULT View_Fetch ( IDispatch *  pView, IDispatch **  ppRecord  )

static

Definition at line 1391 of file automation.c.

{
    VARIANT varresult;
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};
    HRESULT hr = invoke(pView, "Fetch", DISPATCH_METHOD, &dispparams, &varresult, VT_DISPATCH);
    *ppRecord = V_DISPATCH(&varresult);
    return hr;
}

Referenced by test_Database().

View_Modify()

static HRESULT View_Modify ( IDispatch *  pView, int  iMode, IDispatch *  pRecord  )

static

Definition at line 1400 of file automation.c.

{
    VARIANT varresult;
    VARIANTARG vararg[2];
    DISPPARAMS dispparams = {vararg, NULL, ARRAY_SIZE(vararg), 0};
 
    VariantInit(&vararg[1]);
    V_VT(&vararg[1]) = VT_I4;
    V_I4(&vararg[1]) = iMode;
    VariantInit(&vararg[0]);
    V_VT(&vararg[0]) = VT_DISPATCH;
    V_DISPATCH(&vararg[0]) = pRecord;
    if (pRecord)
        IDispatch_AddRef(pRecord);   /* VariantClear in invoke will call IDispatch_Release */
 
    return invoke(pView, "Modify", DISPATCH_METHOD, &dispparams, &varresult, VT_EMPTY);
}

Referenced by test_Database().

write_file()

static void write_file ( const CHAR *  filename, const char *  data, int  data_size  )

static

Definition at line 268 of file automation.c.

{
    DWORD size;
 
    HANDLE hf = CreateFileA(filename, GENERIC_WRITE, 0, NULL,
                            CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
    WriteFile(hf, data, data_size, &size, NULL);
    CloseHandle(hf);
}

Referenced by create_database().

write_msi_summary_info()

static void write_msi_summary_info ( MSIHANDLE  db, const msi_summary_info *  info, int  num_info  )

static

Definition at line 278 of file automation.c.

{
    MSIHANDLE summary;
    UINT r;
    int j;
 
    r = MsiGetSummaryInformationA(db, NULL, num_info, &summary);
    ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %u\n", r);
 
    /* import summary information into the stream */
    for (j = 0; j < num_info; j++)
    {
        const msi_summary_info *entry = &info[j];
 
        r = MsiSummaryInfoSetPropertyA(summary, entry->property, entry->datatype,
                                       entry->iValue, entry->pftValue, entry->szValue);
        ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %u\n", r);
    }
 
    /* write the summary changes back to the stream */
    r = MsiSummaryInfoPersist(summary);
    ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %u\n", r);
 
    MsiCloseHandle(summary);
}

Referenced by create_database().

Variable Documentation

_invoke_todo_vtResult

int _invoke_todo_vtResult = 0

static

Definition at line 838 of file automation.c.

Referenced by invoke().

component_dat

const CHAR component_dat[]

static

Initial value:

= "Component\tComponentId\tDirectory_\tAttributes\tCondition\tKeyPath\n"
                                    "s72\tS38\ts72\ti2\tS255\tS72\n"
                                    "Component\tComponent\n"
                                    "Five\t{8CC92E9D-14B2-4CA4-B2AA-B11D02078087}\tNEWDIR\t2\t\tfive.txt\n"
                                    "Four\t{FD37B4EA-7209-45C0-8917-535F35A2F080}\tCABOUTDIR\t2\t\tfour.txt\n"
                                    "One\t{783B242E-E185-4A56-AF86-C09815EC053C}\tMSITESTDIR\t2\t\tone.txt\n"
                                    "Three\t{010B6ADD-B27D-4EDD-9B3D-34C4F7D61684}\tCHANGEDDIR\t2\t\tthree.txt\n"
                                    "Two\t{BF03D1A6-20DA-4A65-82F3-6CAC995915CE}\tFIRSTDIR\t2\t\ttwo.txt\n"
                                    "dangler\t{6091DF25-EF96-45F1-B8E9-A9B1420C7A3C}\tTARGETDIR\t4\t\tregdata\n"
                                    "component\t\tMSITESTDIR\t0\t1\tfile\n"

Definition at line 59 of file automation.c.

CURR_DIR

CHAR CURR_DIR[MAX_PATH]

static

Definition at line 49 of file automation.c.

Referenced by create_database(), create_package(), and START_TEST().

directory_dat

const CHAR directory_dat[]

static

Initial value:

= "Directory\tDirectory_Parent\tDefaultDir\n"
                                    "s72\tS72\tl255\n"
                                    "Directory\tDirectory\n"
                                    "CABOUTDIR\tMSITESTDIR\tcabout\n"
                                    "CHANGEDDIR\tMSITESTDIR\tchanged:second\n"
                                    "FIRSTDIR\tMSITESTDIR\tfirst\n"
                                    "MSITESTDIR\tProgramFilesFolder\tmsitest\n"
                                    "NEWDIR\tCABOUTDIR\tnew\n"
                                    "ProgramFilesFolder\tTARGETDIR\t.\n"
                                    "TARGETDIR\t\tSourceDir\n"

Definition at line 70 of file automation.c.

DWORD

DWORD

Definition at line 42 of file automation.c.

excepinfo

EXCEPINFO excepinfo

static

Definition at line 50 of file automation.c.

Referenced by invoke(), parse_elem_text(), test_dispatch(), test_StaticWidget(), test_typelibmarshal(), and VBScriptError_GetExceptionInfo().

feature_comp_dat

const CHAR feature_comp_dat[]

static

Initial value:

= "Feature_\tComponent_\n"
                                       "s38\ts72\n"
                                       "FeatureComponents\tFeature_\tComponent_\n"
                                       "Five\tFive\n"
                                       "Four\tFour\n"
                                       "One\tOne\n"
                                       "Three\tThree\n"
                                       "Two\tTwo\n"
                                       "feature\tcomponent\n"

Definition at line 91 of file automation.c.

feature_dat

const CHAR feature_dat[]

static

Initial value:

= "Feature\tFeature_Parent\tTitle\tDescription\tDisplay\tLevel\tDirectory_\tAttributes\n"
                                  "s38\tS38\tL64\tL255\tI2\ti2\tS72\ti2\n"
                                  "Feature\tFeature\n"
                                  "Five\t\tFive\tThe Five Feature\t5\t3\tNEWDIR\t0\n"
                                  "Four\t\tFour\tThe Four Feature\t4\t3\tCABOUTDIR\t0\n"
                                  "One\t\tOne\tThe One Feature\t1\t3\tMSITESTDIR\t0\n"
                                  "Three\tOne\tThree\tThe Three Feature\t3\t3\tCHANGEDDIR\t0\n"
                                  "Two\tOne\tTwo\tThe Two Feature\t2\t3\tFIRSTDIR\t0\n"
                                  "feature\t\t\t\t2\t1\tTARGETDIR\t0\n"

Definition at line 81 of file automation.c.

file_dat

const CHAR file_dat[]

static

Initial value:

= "File\tComponent_\tFileName\tFileSize\tVersion\tLanguage\tAttributes\tSequence\n"
                               "s72\ts72\tl255\ti4\tS72\tS20\tI2\ti2\n"
                               "File\tFile\n"
                               "five.txt\tFive\tfive.txt\t1000\t\t\t0\t5\n"
                               "four.txt\tFour\tfour.txt\t1000\t\t\t0\t4\n"
                               "one.txt\tOne\tone.txt\t1000\t\t\t0\t1\n"
                               "three.txt\tThree\tthree.txt\t1000\t\t\t0\t3\n"
                               "two.txt\tTwo\ttwo.txt\t1000\t\t\t0\t2\n"
                               "file\tcomponent\tfilename\t100\t\t\t8192\t1\n"

Definition at line 101 of file automation.c.

get_did_data

const get_did_t get_did_data[]

static

Definition at line 528 of file automation.c.

Referenced by test_dispid().

install_exec_seq_dat

const CHAR install_exec_seq_dat[]

static

Initial value:

= "Action\tCondition\tSequence\n"
                                           "s72\tS255\tI2\n"
                                           "InstallExecuteSequence\tAction\n"
                                           "AllocateRegistrySpace\tNOT Installed\t1550\n"
                                           "CostFinalize\t\t1000\n"
                                           "CostInitialize\t\t800\n"
                                           "FileCost\t\t900\n"
                                           "InstallFiles\t\t4000\n"
                                           "RegisterProduct\t\t6100\n"
                                           "PublishProduct\t\t6400\n"
                                           "InstallFinalize\t\t6600\n"
                                           "InstallInitialize\t\t1500\n"
                                           "InstallValidate\t\t1400\n"
                                           "LaunchConditions\t\t100\n"
                                           "WriteRegistryValues\tSourceDir And SOURCEDIR\t5000\n"

Definition at line 111 of file automation.c.

is_wow64

BOOL is_wow64

static

Definition at line 40 of file automation.c.

Referenced by START_TEST(), and test_Installer_InstallProduct().

LPCSTR

LPCSTR

Definition at line 42 of file automation.c.

media_dat

const CHAR media_dat[]

static

Initial value:

= "DiskId\tLastSequence\tDiskPrompt\tCabinet\tVolumeLabel\tSource\n"
                                "i2\ti4\tL64\tS255\tS32\tS72\n"
                                "Media\tDiskId\n"
                                "1\t5\t\t\tDISK1\t\n"

Definition at line 127 of file automation.c.

msifile

const char* msifile = "winetest-automation.msi"

static

Definition at line 47 of file automation.c.

Referenced by create_package(), and delete_test_files().

PBOOL

PBOOL

Definition at line 43 of file automation.c.

pInstaller

IDispatch* pInstaller

static

Definition at line 55 of file automation.c.

Referenced by Installer_CreateRecord(), Installer_InstallProduct(), Installer_OpenDatabase(), Installer_OpenPackage(), Installer_ProductInfo(), Installer_Products(), Installer_ProductState(), Installer_RegistryValue(), Installer_RelatedProducts(), Installer_SummaryInformation(), Installer_UILevelPut(), Installer_VersionGet(), START_TEST(), test_dispatch(), test_dispid(), test_Installer(), and test_Session().

PROG_FILES_DIR

char PROG_FILES_DIR[MAX_PATH]

static

Definition at line 362 of file automation.c.

Referenced by delete_pf(), delete_pfmsitest_files(), START_TEST(), test_ini_values(), test_move_files(), and test_process_components().

property_dat

const CHAR property_dat[]

static

Initial value:

= "Property\tValue\n"
                                   "s72\tl0\n"
                                   "Property\tProperty\n"
                                   "DefaultUIFont\tDlgFont8\n"
                                   "HASUIRUN\t0\n"
                                   "INSTALLLEVEL\t3\n"
                                   "InstallMode\tTypical\n"
                                   "Manufacturer\tWine\n"
                                   "PIDTemplate\t12345<###-%%%%%%%>@@@@@\n"
                                   "ProductCode\t{837450fa-a39b-4bc8-b321-08b393f784b3}\n"
                                   "ProductID\tnone\n"
                                   "ProductLanguage\t1033\n"
                                   "ProductName\tMSITEST\n"
                                   "ProductVersion\t1.1.1\n"
                                   "PROMPTROLLBACKCOST\tP\n"
                                   "Setup\tSetup\n"
                                   "UpgradeCode\t{CE067E8D-2E1A-4367-B734-4EB2BDAD6565}\n"
                                   "MSIFASTINSTALL\t1\n"

Definition at line 132 of file automation.c.

registry_dat

const CHAR registry_dat[]

static

Initial value:

= "Registry\tRoot\tKey\tName\tValue\tComponent_\n"
                                   "s72\ti2\tl255\tL255\tL0\ts72\n"
                                   "Registry\tRegistry\n"
                                   "Apples\t1\tSOFTWARE\\Wine\\msitest\tName\timaname\tOne\n"
                                   "Oranges\t1\tSOFTWARE\\Wine\\msitest\tnumber\t#314\tTwo\n"
                                   "regdata\t1\tSOFTWARE\\Wine\\msitest\tblah\tbad\tdangler\n"
                                   "OrderTest\t1\tSOFTWARE\\Wine\\msitest\tOrderTestName\tOrderTestValue\tcomponent\n"

Definition at line 151 of file automation.c.

REGSAM

REGSAM

Definition at line 42 of file automation.c.

string1

CHAR string1[MAX_PATH]

static

Definition at line 449 of file automation.c.

string2

CHAR string2[MAX_PATH]

static

Definition at line 449 of file automation.c.

Referenced by _test_shape_ok(), CompareStorageDuids(), InternetTimeToSystemTimeA_test(), InternetTimeToSystemTimeW_test(), test_effect_setvalue_object(), test_menu_add_string(), and test_StringTableStringFromId().

summary_info

const msi_summary_info summary_info[]

static

Initial value:

=
{
    ADD_INFO_LPSTR(PID_TEMPLATE, ";1033"),
    ADD_INFO_LPSTR(PID_REVNUMBER, "{004757CA-5092-49C2-AD20-28E1CE0DF5F2}"),
    ADD_INFO_I4(PID_PAGECOUNT, 100),
    ADD_INFO_I4(PID_WORDCOUNT, 0),
    ADD_INFO_FILETIME(PID_CREATE_DTM, &systemtime),
 
}

Definition at line 195 of file automation.c.

Referenced by create_package(), test_Database(), and test_Installer().

systemtime

FILETIME systemtime

static

Definition at line 48 of file automation.c.

Referenced by day_of_month(), START_TEST(), test_GetTimeZoneInformationForYear(), and test_SummaryInfo().

tables

const msi_table tables[]

static

Initial value:

=
{
    ADD_TABLE(component),
    ADD_TABLE(directory),
    ADD_TABLE(feature),
    ADD_TABLE(feature_comp),
    ADD_TABLE(file),
    ADD_TABLE(install_exec_seq),
    ADD_TABLE(media),
    ADD_TABLE(property),
 
}

Definition at line 168 of file automation.c.

Referenced by create_database(), and create_package().