git.oblomov.eu Git - wine/blob - dlls/ole32/tests/storage32.c

   1 /*
   2  * Unit tests for OLE storage
   3  *
   4  * Copyright (c) 2004 Mike McCormack
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdio.h>
  22
  23 #define COBJMACROS
  24
  25 #include <windows.h>
  26 #include "wine/test.h"
  27
  28 #include "ole2.h"
  29 #include "objidl.h"
  30 #include "initguid.h"
  31
  32 DEFINE_GUID( test_stg_cls, 0x88888888, 0x0425, 0x0000, 0,0,0,0,0,0,0,0);
  33
  34 #define ok_ole_success(hr, func) ok(hr == S_OK, func " failed with error 0x%08x\n", hr)
  35
  36 static void test_hglobal_storage_stat(void)
  37 {
  38     ILockBytes *ilb = NULL;
  39     IStorage *stg = NULL;
  40     HRESULT r;
  41     STATSTG stat;
  42     DWORD mode, refcount;
  43
  44     r = CreateILockBytesOnHGlobal( NULL, TRUE, &ilb );
  45     ok( r == S_OK, "CreateILockBytesOnHGlobal failed\n");
  46
  47     mode = STGM_CREATE|STGM_SHARE_EXCLUSIVE|STGM_READWRITE;/*0x1012*/
  48     r = StgCreateDocfileOnILockBytes( ilb, mode, 0,  &stg );
  49     ok( r == S_OK, "StgCreateDocfileOnILockBytes failed\n");
  50
  51     r = WriteClassStg( stg, &test_stg_cls );
  52     ok( r == S_OK, "WriteClassStg failed\n");
  53
  54     memset( &stat, 0, sizeof stat );
  55     r = IStorage_Stat( stg, &stat, 0 );
  56
  57     ok( stat.pwcsName == NULL, "storage name not null\n");
  58     ok( stat.type == 1, "type is wrong\n");
  59     ok( stat.grfMode == 0x12, "grf mode is incorrect\n");
  60     ok( !memcmp(&stat.clsid, &test_stg_cls, sizeof test_stg_cls), "CLSID is wrong\n");
  61
  62     refcount = IStorage_Release( stg );
  63     ok( refcount == 0, "IStorage refcount is wrong\n");
  64     refcount = ILockBytes_Release( ilb );
  65     ok( refcount == 0, "ILockBytes refcount is wrong\n");
  66 }
  67
  68 static void test_create_storage_modes(void)
  69 {
  70    static const WCHAR szPrefix[] = { 's','t','g',0 };
  71    static const WCHAR szDot[] = { '.',0 };
  72    WCHAR filename[MAX_PATH];
  73    IStorage *stg = NULL;
  74    HRESULT r;
  75
  76    if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
  77       return;
  78
  79    DeleteFileW(filename);
  80
  81    /* test with some invalid parameters */
  82    r = StgCreateDocfile( NULL, 0, 0, &stg);
  83    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
  84    r = StgCreateDocfile( filename, 0, 0, &stg);
  85    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
  86    r = StgCreateDocfile( filename, STGM_CREATE, 0, &stg);
  87    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
  88    r = StgCreateDocfile( filename, STGM_CREATE | STGM_READWRITE, 0, &stg);
  89    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
  90    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE, 0, &stg);
  91    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
  92    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, NULL);
  93    ok(r==STG_E_INVALIDPOINTER, "StgCreateDocfile succeeded\n");
  94    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 1, &stg);
  95    ok(r==STG_E_INVALIDPARAMETER, "StgCreateDocfile succeeded\n");
  96    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_DENY_WRITE | STGM_READWRITE, 0, &stg);
  97    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
  98    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READ, 0, &stg);
  99    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 100    r = StgCreateDocfile( filename, STGM_PRIORITY, 0, &stg);
 101    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 102
 103    /* StgCreateDocfile seems to be very particular about the flags it accepts */
 104    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | STGM_WRITE, 0, &stg);
 105    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 106    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | 8, 0, &stg);
 107    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 108    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | 0x80, 0, &stg);
 109    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 110    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | 0x800, 0, &stg);
 111    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 112    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | 0x8000, 0, &stg);
 113    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 114    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | 0x80000, 0, &stg);
 115    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 116    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED | 0x800000, 0, &stg);
 117    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 118    ok(stg == NULL, "stg was set\n");
 119
 120    /* check what happens if the file already exists (which is how it's meant to be used) */
 121    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, &stg);
 122    ok(r==S_OK, "StgCreateDocfile failed\n");
 123    r = IStorage_Release(stg);
 124    ok(r == 0, "storage not released\n");
 125    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 126    ok(r==STG_E_FILEALREADYEXISTS, "StgCreateDocfile wrong error\n"); /* FAILIFTHERE is default */
 127    r = StgCreateDocfile( filename, STGM_READ, 0, &stg);
 128    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n"); /* need at least readmode and sharemode */
 129    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE, 0, &stg);
 130    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 131    r = StgCreateDocfile( filename, STGM_SHARE_DENY_WRITE, 0, &stg);
 132    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 133    r = StgCreateDocfile( filename, STGM_SHARE_DENY_NONE, 0, &stg);
 134    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile failed\n");
 135    r = StgCreateDocfile( filename, STGM_SHARE_DENY_NONE | STGM_TRANSACTED, 0, &stg);
 136    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile failed\n");
 137    r = StgCreateDocfile( filename, STGM_SHARE_DENY_NONE | STGM_READWRITE, 0, &stg);
 138    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile failed\n");
 139    r = StgCreateDocfile( filename, STGM_SHARE_DENY_NONE | STGM_WRITE, 0, &stg);
 140    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile failed\n");
 141    r = StgCreateDocfile( filename, STGM_SHARE_DENY_WRITE | STGM_WRITE, 0, &stg);
 142    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile failed\n");
 143    r = StgCreateDocfile( filename, STGM_SHARE_DENY_WRITE | STGM_READ, 0, &stg);
 144    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile wrong error\n");
 145    r = StgCreateDocfile( filename, STGM_TRANSACTED | STGM_SHARE_DENY_WRITE | STGM_READ, 0, &stg);
 146    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile wrong error\n");
 147    ok(DeleteFileW(filename), "failed to delete file\n");
 148
 149    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 150    ok(r==S_OK, "StgCreateDocfile failed\n");
 151    r = IStorage_Release(stg);
 152    ok(r == 0, "storage not released\n");
 153    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED |STGM_FAILIFTHERE, 0, &stg);
 154    ok(r==STG_E_FILEALREADYEXISTS, "StgCreateDocfile wrong error\n");
 155    r = StgCreateDocfile( filename, STGM_SHARE_EXCLUSIVE | STGM_WRITE, 0, &stg);
 156    ok(r==STG_E_FILEALREADYEXISTS, "StgCreateDocfile wrong error\n");
 157
 158    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_DENY_WRITE | STGM_READWRITE, 0, &stg);
 159    ok(r==STG_E_INVALIDFLAG, "StgCreateDocfile succeeded\n");
 160    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 161    ok(r==S_OK, "StgCreateDocfile failed\n");
 162    r = IStorage_Release(stg);
 163    ok(r == 0, "storage not released\n");
 164    ok(DeleteFileW(filename), "failed to delete file\n");
 165
 166    /* test the way excel uses StgCreateDocFile */
 167    r = StgCreateDocfile( filename, STGM_TRANSACTED|STGM_CREATE|STGM_SHARE_DENY_WRITE|STGM_READWRITE, 0, &stg);
 168    ok(r==S_OK, "StgCreateDocfile the excel way failed\n");
 169    if(r == S_OK)
 170    {
 171       r = IStorage_Release(stg);
 172       ok(r == 0, "storage not released\n");
 173       ok(DeleteFileW(filename), "failed to delete file\n");
 174    }
 175
 176    /* and the way windows media uses it ... */
 177    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_DENY_NONE | STGM_READWRITE | STGM_TRANSACTED, 0, &stg);
 178    ok(r==S_OK, "StgCreateDocfile the windows media way failed\n");
 179    if (r == S_OK)
 180    {
 181       r = IStorage_Release(stg);
 182       ok(r == 0, "storage not released\n");
 183       ok(DeleteFileW(filename), "failed to delete file\n");
 184    }
 185
 186    /* looks like we need STGM_TRANSACTED or STGM_CREATE */
 187    r = StgCreateDocfile( filename, STGM_TRANSACTED|STGM_SHARE_DENY_WRITE|STGM_READWRITE, 0, &stg);
 188    ok(r==S_OK, "StgCreateDocfile the excel way failed\n");
 189    if(r == S_OK)
 190    {
 191       r = IStorage_Release(stg);
 192       ok(r == 0, "storage not released\n");
 193       ok(DeleteFileW(filename), "failed to delete file\n");
 194    }
 195
 196    r = StgCreateDocfile( filename, STGM_TRANSACTED|STGM_CREATE|STGM_SHARE_DENY_WRITE|STGM_WRITE, 0, &stg);
 197    ok(r==S_OK, "StgCreateDocfile the excel way failed\n");
 198    if(r == S_OK)
 199    {
 200       r = IStorage_Release(stg);
 201       ok(r == 0, "storage not released\n");
 202       ok(DeleteFileW(filename), "failed to delete file\n");
 203    }
 204
 205    r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, &stg);
 206    ok(r==S_OK, "StgCreateDocfile the powerpoint way failed\n");
 207    if(r == S_OK)
 208    {
 209       r = IStorage_Release(stg);
 210       ok(r == 0, "storage not released\n");
 211       ok(DeleteFileW(filename), "failed to delete file\n");
 212    }
 213
 214    /* test the way msi uses StgCreateDocfile */
 215    r = StgCreateDocfile( filename, STGM_DIRECT | STGM_READWRITE | STGM_SHARE_EXCLUSIVE, 0, &stg);
 216    ok(r==S_OK, "StgCreateDocFile failed\n");
 217    r = IStorage_Release(stg);
 218    ok(r == 0, "storage not released\n");
 219    ok(DeleteFileW(filename), "failed to delete file\n");
 220 }
 221
 222 static void test_storage_stream(void)
 223 {
 224     static const WCHAR stmname[] = { 'C','O','N','T','E','N','T','S',0 };
 225     static const WCHAR szPrefix[] = { 's','t','g',0 };
 226     static const WCHAR szDot[] = { '.',0 };
 227     static const WCHAR longname[] = {
 228         'a','a','a','a','a','a','a','a','a','a','a','a','a','a','a','a',
 229         'a','a','a','a','a','a','a','a','a','a','a','a','a','a','a','a',0
 230     };
 231     WCHAR filename[MAX_PATH];
 232     IStorage *stg = NULL;
 233     HRESULT r;
 234     IStream *stm = NULL;
 235     ULONG count = 0;
 236     LARGE_INTEGER pos;
 237     ULARGE_INTEGER p;
 238     unsigned char buffer[0x100];
 239
 240     if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
 241         return;
 242
 243     DeleteFileW(filename);
 244
 245     r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 246     ok(r==S_OK, "StgCreateDocfile failed\n");
 247
 248     /* try create some invalid streams */
 249     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 1, 0, &stm );
 250     ok(r==STG_E_INVALIDPARAMETER, "IStorage->CreateStream wrong error\n");
 251     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 1, &stm );
 252     ok(r==STG_E_INVALIDPARAMETER, "IStorage->CreateStream wrong error\n");
 253     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, NULL );
 254     ok(r==STG_E_INVALIDPOINTER, "IStorage->CreateStream wrong error\n");
 255     r = IStorage_CreateStream(stg, NULL, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 256     ok(r==STG_E_INVALIDNAME, "IStorage->CreateStream wrong error\n");
 257     r = IStorage_CreateStream(stg, longname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 258     ok(r==STG_E_INVALIDNAME, "IStorage->CreateStream wrong error, got %d GetLastError()=%d\n", r, GetLastError());
 259     r = IStorage_CreateStream(stg, stmname, STGM_READWRITE, 0, 0, &stm );
 260     ok(r==STG_E_INVALIDFLAG, "IStorage->CreateStream wrong error\n");
 261     r = IStorage_CreateStream(stg, stmname, STGM_READ, 0, 0, &stm );
 262     ok(r==STG_E_INVALIDFLAG, "IStorage->CreateStream wrong error\n");
 263     r = IStorage_CreateStream(stg, stmname, STGM_WRITE, 0, 0, &stm );
 264     ok(r==STG_E_INVALIDFLAG, "IStorage->CreateStream wrong error\n");
 265     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_DENY_NONE | STGM_READWRITE, 0, 0, &stm );
 266     ok(r==STG_E_INVALIDFLAG, "IStorage->CreateStream wrong error\n");
 267     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_DENY_NONE | STGM_READ, 0, 0, &stm );
 268     ok(r==STG_E_INVALIDFLAG, "IStorage->CreateStream wrong error\n");
 269
 270     /* now really create a stream and delete it */
 271     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 272     ok(r==S_OK, "IStorage->CreateStream failed\n");
 273     r = IStream_Release(stm);
 274     ok(r == 0, "wrong ref count\n");
 275     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 276     ok(r==STG_E_FILEALREADYEXISTS, "IStorage->CreateStream failed\n");
 277     r = IStorage_DestroyElement(stg,stmname);
 278     ok(r==S_OK, "IStorage->DestroyElement failed\n");
 279
 280     /* create a stream and write to it */
 281     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 282     ok(r==S_OK, "IStorage->CreateStream failed\n");
 283
 284     r = IStream_Write(stm, NULL, 0, NULL );
 285     ok(r==STG_E_INVALIDPOINTER, "IStream->Write wrong error\n");
 286     r = IStream_Write(stm, "Hello\n", 0, NULL );
 287     ok(r==S_OK, "failed to write stream\n");
 288     r = IStream_Write(stm, "Hello\n", 0, &count );
 289     ok(r==S_OK, "failed to write stream\n");
 290     r = IStream_Write(stm, "Hello\n", 6, &count );
 291     ok(r==S_OK, "failed to write stream\n");
 292     r = IStream_Commit(stm, STGC_DEFAULT );
 293     ok(r==S_OK, "failed to commit stream\n");
 294     r = IStream_Commit(stm, STGC_DEFAULT );
 295     ok(r==S_OK, "failed to commit stream\n");
 296
 297     /* seek round a bit, reset the stream size */
 298     pos.QuadPart = 0;
 299     r = IStream_Seek(stm, pos, 3, &p );
 300     ok(r==STG_E_INVALIDFUNCTION, "IStream->Seek returned wrong error\n");
 301     r = IStream_Seek(stm, pos, STREAM_SEEK_SET, NULL);
 302     ok(r==S_OK, "failed to seek stream\n");
 303     r = IStream_Seek(stm, pos, STREAM_SEEK_SET, &p );
 304     ok(r==S_OK, "failed to seek stream\n");
 305     r = IStream_SetSize(stm,p);
 306     ok(r==S_OK, "failed to set pos\n");
 307     pos.QuadPart = 10;
 308     r = IStream_Seek(stm, pos, STREAM_SEEK_SET, &p );
 309     ok(r==S_OK, "failed to seek stream\n");
 310     ok(p.QuadPart == 10, "at wrong place\n");
 311     pos.QuadPart = 0;
 312     r = IStream_Seek(stm, pos, STREAM_SEEK_END, &p );
 313     ok(r==S_OK, "failed to seek stream\n");
 314     ok(p.QuadPart == 0, "at wrong place\n");
 315     r = IStream_Read(stm, buffer, sizeof buffer, &count );
 316     ok(r==S_OK, "failed to set pos\n");
 317     ok(count == 0, "read bytes from empty stream\n");
 318
 319     /* wrap up */
 320     r = IStream_Release(stm);
 321     ok(r == 0, "wrong ref count\n");
 322     r = IStorage_Release(stg);
 323     ok(r == 0, "wrong ref count\n");
 324     r = DeleteFileW(filename);
 325     ok(r, "file should exist\n");
 326 }
 327
 328 static BOOL touch_file(LPCWSTR filename)
 329 {
 330     HANDLE file;
 331
 332     file = CreateFileW(filename, GENERIC_READ|GENERIC_WRITE, 0, NULL,
 333                 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
 334     if (file==INVALID_HANDLE_VALUE)
 335         return FALSE;
 336     CloseHandle(file);
 337     return TRUE;
 338 }
 339
 340 static BOOL is_zero_length(LPCWSTR filename)
 341 {
 342     HANDLE file;
 343     DWORD len;
 344
 345     file = CreateFileW(filename, GENERIC_READ, 0, NULL,
 346                 OPEN_EXISTING, 0, NULL);
 347     if (file==INVALID_HANDLE_VALUE)
 348         return FALSE;
 349     len = GetFileSize(file, NULL);
 350     CloseHandle(file);
 351     return len == 0;
 352 }
 353
 354 static BOOL is_existing_file(LPCWSTR filename)
 355 {
 356     HANDLE file;
 357
 358     file = CreateFileW(filename, GENERIC_READ, 0, NULL,
 359                        OPEN_EXISTING, 0, NULL);
 360     if (file==INVALID_HANDLE_VALUE)
 361         return FALSE;
 362     CloseHandle(file);
 363     return TRUE;
 364 }
 365
 366 static void test_open_storage(void)
 367 {
 368     static const WCHAR szPrefix[] = { 's','t','g',0 };
 369     static const WCHAR szNonExist[] = { 'n','o','n','e','x','i','s','t',0 };
 370     static const WCHAR szDot[] = { '.',0 };
 371     WCHAR filename[MAX_PATH];
 372     IStorage *stg = NULL, *stg2 = NULL;
 373     HRESULT r;
 374     DWORD stgm;
 375
 376     if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
 377         return;
 378
 379     /* try opening a zero length file - it should stay zero length */
 380     DeleteFileW(filename);
 381     touch_file(filename);
 382     stgm = STGM_NOSCRATCH | STGM_TRANSACTED | STGM_SHARE_DENY_WRITE | STGM_READWRITE;
 383     r = StgOpenStorage( filename, NULL, stgm, NULL, 0, &stg);
 384     ok(r==STG_E_FILEALREADYEXISTS, "StgOpenStorage didn't fail\n");
 385
 386     stgm = STGM_SHARE_EXCLUSIVE | STGM_READWRITE;
 387     r = StgOpenStorage( filename, NULL, stgm, NULL, 0, &stg);
 388     ok(r==STG_E_FILEALREADYEXISTS, "StgOpenStorage didn't fail\n");
 389     ok(is_zero_length(filename), "file length changed\n");
 390
 391     DeleteFileW(filename);
 392
 393     /* try opening a nonexistent file - it should not create it */
 394     stgm = STGM_DIRECT | STGM_SHARE_EXCLUSIVE | STGM_READWRITE;
 395     r = StgOpenStorage( filename, NULL, stgm, NULL, 0, &stg);
 396     ok(r!=S_OK, "StgOpenStorage failed: 0x%08x\n", r);
 397     if (r==S_OK) IStorage_Release(stg);
 398     ok(!is_existing_file(filename), "StgOpenStorage should not create a file\n");
 399     DeleteFileW(filename);
 400
 401     /* create the file */
 402     r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 403     ok(r==S_OK, "StgCreateDocfile failed\n");
 404     IStorage_Release(stg);
 405
 406     r = StgOpenStorage( filename, NULL, 0, NULL, 0, &stg);
 407     ok(r==STG_E_INVALIDFLAG, "StgOpenStorage wrong error\n");
 408     r = StgOpenStorage( NULL, NULL, STGM_SHARE_EXCLUSIVE, NULL, 0, &stg);
 409     ok(r==STG_E_INVALIDNAME, "StgOpenStorage wrong error\n");
 410     r = StgOpenStorage( filename, NULL, STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 0, NULL);
 411     ok(r==STG_E_INVALIDPOINTER, "StgOpenStorage wrong error\n");
 412     r = StgOpenStorage( filename, NULL, STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 1, &stg);
 413     ok(r==STG_E_INVALIDPARAMETER, "StgOpenStorage wrong error\n");
 414     r = StgOpenStorage( szNonExist, NULL, STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 0, &stg);
 415     ok(r==STG_E_FILENOTFOUND, "StgOpenStorage failed\n");
 416     r = StgOpenStorage( filename, NULL, STGM_CREATE | STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 0, &stg);
 417     ok(r==STG_E_INVALIDFLAG, "StgOpenStorage failed\n");
 418     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_NONE | STGM_READ, NULL, 0, &stg);
 419     ok(r==STG_E_INVALIDFLAG, "StgOpenStorage failed\n");
 420     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_READ | STGM_READ, NULL, 0, &stg);
 421     ok(r==STG_E_INVALIDFLAG, "StgOpenStorage failed\n");
 422     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_WRITE | STGM_READWRITE, NULL, 0, &stg);
 423     ok(r==STG_E_INVALIDFLAG, "StgOpenStorage failed\n");
 424
 425     /* open it for real */
 426     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_NONE | STGM_READ | STGM_TRANSACTED, NULL, 0, &stg); /* XLViewer 97/2000 */
 427     ok(r==S_OK, "StgOpenStorage failed\n");
 428     if(stg)
 429     {
 430         r = IStorage_Release(stg);
 431         ok(r == 0, "wrong ref count\n");
 432     }
 433
 434     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_WRITE | STGM_READ, NULL, 0, &stg);
 435     ok(r==S_OK, "StgOpenStorage failed\n");
 436     if(stg)
 437     {
 438         r = IStorage_Release(stg);
 439         ok(r == 0, "wrong ref count\n");
 440     }
 441
 442     /* test the way word opens its custom dictionary */
 443     r = StgOpenStorage( filename, NULL, STGM_NOSCRATCH | STGM_TRANSACTED |
 444                         STGM_SHARE_DENY_WRITE | STGM_READWRITE, NULL, 0, &stg);
 445     ok(r==S_OK, "StgOpenStorage failed\n");
 446     if(stg)
 447     {
 448         r = IStorage_Release(stg);
 449         ok(r == 0, "wrong ref count\n");
 450     }
 451
 452     r = StgOpenStorage( filename, NULL, STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 0, &stg);
 453     ok(r==S_OK, "StgOpenStorage failed\n");
 454     r = StgOpenStorage( filename, NULL, STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 0, &stg2);
 455     ok(r==STG_E_SHAREVIOLATION, "StgOpenStorage failed\n");
 456     if(stg)
 457     {
 458         r = IStorage_Release(stg);
 459         ok(r == 0, "wrong ref count\n");
 460     }
 461
 462     /* now try write to a storage file we opened read-only */
 463     r = StgOpenStorage( filename, NULL, STGM_SHARE_EXCLUSIVE | STGM_READ, NULL, 0, &stg);
 464     ok(r==S_OK, "StgOpenStorage failed\n");
 465     if(stg)
 466     {
 467         static const WCHAR stmname[] =  { 'w','i','n','e','t','e','s','t',0};
 468         IStream *stm = NULL;
 469         IStorage *stg2 = NULL;
 470
 471         r = IStorage_CreateStream( stg, stmname, STGM_WRITE | STGM_SHARE_EXCLUSIVE,
 472                                    0, 0, &stm );
 473         ok(r == STG_E_ACCESSDENIED, "CreateStream should fail\n");
 474         r = IStorage_CreateStorage( stg, stmname, STGM_WRITE | STGM_SHARE_EXCLUSIVE, 0, 0, &stg2);
 475         ok(r == STG_E_ACCESSDENIED, "CreateStream should fail\n");
 476
 477         r = IStorage_Release(stg);
 478         ok(r == 0, "wrong ref count\n");
 479     }
 480
 481     /* open like visio 2003 */
 482     stg = NULL;
 483     r = StgOpenStorage( filename, NULL, STGM_PRIORITY | STGM_SHARE_DENY_NONE, NULL, 0, &stg);
 484     ok(r == S_OK, "should succeed\n");
 485     if (stg)
 486         IStorage_Release(stg);
 487
 488     /* test other sharing modes with STGM_PRIORITY */
 489     stg = NULL;
 490     r = StgOpenStorage( filename, NULL, STGM_PRIORITY | STGM_SHARE_EXCLUSIVE, NULL, 0, &stg);
 491     ok(r == S_OK, "should succeed\n");
 492     if (stg)
 493         IStorage_Release(stg);
 494
 495     stg = NULL;
 496     r = StgOpenStorage( filename, NULL, STGM_PRIORITY | STGM_SHARE_DENY_WRITE, NULL, 0, &stg);
 497     ok(r == S_OK, "should succeed\n");
 498     if (stg)
 499         IStorage_Release(stg);
 500
 501     stg = NULL;
 502     r = StgOpenStorage( filename, NULL, STGM_PRIORITY | STGM_SHARE_DENY_READ, NULL, 0, &stg);
 503     ok(r == S_OK, "should succeed\n");
 504     if (stg)
 505         IStorage_Release(stg);
 506
 507     /* open like Project 2003 */
 508     stg = NULL;
 509     r = StgOpenStorage( filename, NULL, STGM_PRIORITY, NULL, 0, &stg);
 510     ok(r == S_OK, "should succeed\n");
 511     r = StgOpenStorage( filename, NULL, STGM_PRIORITY, NULL, 0, &stg2);
 512     ok(r == S_OK, "should succeed\n");
 513     if (stg2)
 514         IStorage_Release(stg2);
 515     if (stg)
 516         IStorage_Release(stg);
 517
 518     stg = NULL;
 519     r = StgOpenStorage( filename, NULL, STGM_PRIORITY | STGM_READWRITE, NULL, 0, &stg);
 520     ok(r == STG_E_INVALIDFLAG, "should fail\n");
 521
 522     r = StgOpenStorage( filename, NULL, STGM_TRANSACTED | STGM_PRIORITY, NULL, 0, &stg);
 523     ok(r == STG_E_INVALIDFLAG, "should fail\n");
 524
 525     r = StgOpenStorage( filename, NULL, STGM_SIMPLE | STGM_PRIORITY, NULL, 0, &stg);
 526     ok(r == STG_E_INVALIDFLAG, "should fail\n");
 527
 528     r = StgOpenStorage( filename, NULL, STGM_DELETEONRELEASE | STGM_PRIORITY, NULL, 0, &stg);
 529     ok(r == STG_E_INVALIDFUNCTION, "should fail\n");
 530
 531     r = StgOpenStorage( filename, NULL, STGM_NOSCRATCH | STGM_PRIORITY, NULL, 0, &stg);
 532     ok(r == STG_E_INVALIDFLAG, "should fail\n");
 533
 534     r = StgOpenStorage( filename, NULL, STGM_NOSNAPSHOT | STGM_PRIORITY, NULL, 0, &stg);
 535     ok(r == STG_E_INVALIDFLAG, "should fail\n");
 536
 537     r = DeleteFileW(filename);
 538     ok(r, "file didn't exist\n");
 539 }
 540
 541 static void test_storage_suminfo(void)
 542 {
 543     static const WCHAR szDot[] = { '.',0 };
 544     static const WCHAR szPrefix[] = { 's','t','g',0 };
 545     WCHAR filename[MAX_PATH];
 546     IStorage *stg = NULL;
 547     IPropertySetStorage *propset = NULL;
 548     IPropertyStorage *ps = NULL;
 549     HRESULT r;
 550
 551     if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
 552         return;
 553
 554     DeleteFileW(filename);
 555
 556     /* create the file */
 557     r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE |
 558                             STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 559     ok(r==S_OK, "StgCreateDocfile failed\n");
 560
 561     r = IStorage_QueryInterface( stg, &IID_IPropertySetStorage, (LPVOID) &propset );
 562     ok(r == S_OK, "query interface failed\n");
 563
 564     /* delete it */
 565     r = IPropertySetStorage_Delete( propset, &FMTID_SummaryInformation );
 566     ok(r == STG_E_FILENOTFOUND, "deleted property set storage\n");
 567
 568     r = IPropertySetStorage_Open( propset, &FMTID_SummaryInformation,
 569                                 STGM_READ | STGM_SHARE_EXCLUSIVE, &ps );
 570     ok(r == STG_E_FILENOTFOUND, "opened property set storage\n");
 571
 572     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0,
 573                                 STGM_READ | STGM_SHARE_EXCLUSIVE, &ps );
 574     ok(r == STG_E_INVALIDFLAG, "created property set storage\n");
 575
 576     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0,
 577                                 STGM_READ, &ps );
 578     ok(r == STG_E_INVALIDFLAG, "created property set storage\n");
 579
 580     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0, 0, &ps );
 581     ok(r == STG_E_INVALIDFLAG, "created property set storage\n");
 582
 583     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0,
 584                                 STGM_WRITE|STGM_SHARE_EXCLUSIVE, &ps );
 585     ok(r == STG_E_INVALIDFLAG, "created property set storage\n");
 586
 587     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0,
 588                                 STGM_CREATE|STGM_WRITE|STGM_SHARE_EXCLUSIVE, &ps );
 589     ok(r == STG_E_INVALIDFLAG, "created property set storage\n");
 590
 591     /* now try really creating a property set */
 592     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0,
 593                                 STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps );
 594     ok(r == S_OK, "failed to create property set storage\n");
 595
 596     if( ps )
 597         IPropertyStorage_Release(ps);
 598
 599     /* now try creating the same thing again */
 600     r = IPropertySetStorage_Create( propset, &FMTID_SummaryInformation, NULL, 0,
 601                                 STGM_CREATE|STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps );
 602     ok(r == S_OK, "failed to create property set storage\n");
 603     if( ps )
 604         IPropertyStorage_Release(ps);
 605
 606     /* should be able to open it */
 607     r = IPropertySetStorage_Open( propset, &FMTID_SummaryInformation,
 608             STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps);
 609     ok(r == S_OK, "open failed\n");
 610     if(r == S_OK)
 611         IPropertyStorage_Release(ps);
 612
 613     /* delete it */
 614     r = IPropertySetStorage_Delete( propset, &FMTID_SummaryInformation );
 615     ok(r == S_OK, "failed to delete property set storage\n");
 616
 617     /* try opening with an invalid FMTID */
 618     r = IPropertySetStorage_Open( propset, NULL,
 619             STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps);
 620     ok(r == E_INVALIDARG, "open succeeded\n");
 621     if(r == S_OK)
 622         IPropertyStorage_Release(ps);
 623
 624     /* try a bad guid */
 625     r = IPropertySetStorage_Open( propset, &IID_IStorage,
 626             STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps);
 627     ok(r == STG_E_FILENOTFOUND, "open succeeded\n");
 628     if(r == S_OK)
 629         IPropertyStorage_Release(ps);
 630
 631
 632     /* try some invalid flags */
 633     r = IPropertySetStorage_Open( propset, &FMTID_SummaryInformation,
 634             STGM_CREATE | STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps);
 635     ok(r == STG_E_INVALIDFLAG, "open succeeded\n");
 636     if(r == S_OK)
 637         IPropertyStorage_Release(ps);
 638
 639     /* after deleting it, it should be gone */
 640     r = IPropertySetStorage_Open( propset, &FMTID_SummaryInformation,
 641             STGM_READWRITE|STGM_SHARE_EXCLUSIVE, &ps);
 642     ok(r == STG_E_FILENOTFOUND, "open failed\n");
 643     if(r == S_OK)
 644         IPropertyStorage_Release(ps);
 645
 646     r = IPropertySetStorage_Release( propset );
 647     ok(r == 1, "ref count wrong\n");
 648
 649     r = IStorage_Release(stg);
 650     ok(r == 0, "ref count wrong\n");
 651
 652     DeleteFileW(filename);
 653 }
 654
 655 static void test_storage_refcount(void)
 656 {
 657     static const WCHAR szPrefix[] = { 's','t','g',0 };
 658     static const WCHAR szDot[] = { '.',0 };
 659     WCHAR filename[MAX_PATH];
 660     IStorage *stg = NULL;
 661     IStorage *stgprio = NULL;
 662     HRESULT r;
 663     IStream *stm = NULL;
 664     static const WCHAR stmname[] = { 'C','O','N','T','E','N','T','S',0 };
 665     LARGE_INTEGER pos;
 666     ULARGE_INTEGER upos;
 667     STATSTG stat;
 668     char buffer[10];
 669
 670     if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
 671         return;
 672
 673     DeleteFileW(filename);
 674
 675     /* create the file */
 676     r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE |
 677                             STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 678     ok(r==S_OK, "StgCreateDocfile failed\n");
 679
 680     r = WriteClassStg( stg, &test_stg_cls );
 681     ok( r == S_OK, "WriteClassStg failed\n");
 682
 683     r = IStorage_Commit( stg, STGC_DEFAULT );
 684     ok( r == S_OK, "IStorage_Commit failed\n");
 685
 686     /* now create a stream */
 687     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 688     ok(r==S_OK, "IStorage->CreateStream failed\n");
 689
 690     r = IStorage_Release( stg );
 691     ok (r == 0, "storage not released\n");
 692
 693     pos.QuadPart = 0;
 694     r = IStream_Seek( stm, pos, 0, &upos );
 695     ok (r == STG_E_REVERTED, "seek should fail\n");
 696
 697     r = IStream_Stat( stm, &stat, STATFLAG_DEFAULT );
 698     ok (r == STG_E_REVERTED, "stat should fail\n");
 699
 700     r = IStream_Write( stm, "Test string", strlen("Test string"), NULL);
 701     ok (r == STG_E_REVERTED, "IStream_Write should return STG_E_REVERTED instead of 0x%08x\n", r);
 702
 703     r = IStream_Read( stm, buffer, sizeof(buffer), NULL);
 704     ok (r == STG_E_REVERTED, "IStream_Read should return STG_E_REVERTED instead of 0x%08x\n", r);
 705
 706     r = IStream_Release(stm);
 707     ok (r == 0, "stream not released\n");
 708
 709     /* tests that STGM_PRIORITY doesn't prevent readwrite access from other
 710      * StgOpenStorage calls in transacted mode */
 711     r = StgOpenStorage( filename, NULL, STGM_PRIORITY, NULL, 0, &stgprio);
 712     ok(r==S_OK, "StgOpenStorage failed with error 0x%08x\n", r);
 713
 714     todo_wine {
 715     /* non-transacted mode read/write fails */
 716     r = StgOpenStorage( filename, NULL, STGM_SHARE_EXCLUSIVE|STGM_READWRITE, NULL, 0, &stg);
 717     ok(r==STG_E_LOCKVIOLATION, "StgOpenStorage should return STG_E_LOCKVIOLATION instead of 0x%08x\n", r);
 718     }
 719
 720     /* non-transacted mode read-only succeeds */
 721     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_WRITE|STGM_READ, NULL, 0, &stg);
 722     ok(r==S_OK, "StgOpenStorage failed with error 0x%08x\n", r);
 723     IStorage_Release(stg);
 724
 725     r = StgOpenStorage( filename, NULL, STGM_TRANSACTED|STGM_SHARE_DENY_WRITE|STGM_READWRITE, NULL, 0, &stg);
 726     ok(r==S_OK, "StgOpenStorage failed with error 0x%08x\n", r);
 727     if(stg)
 728     {
 729         static const WCHAR stgname[] = { ' ',' ',' ','2','9',0 };
 730         static const WCHAR stgname2[] = { 'C','V','_','i','e','w',0 };
 731         static const WCHAR stmname2[] = { 'V','a','r','2','D','a','t','a',0 };
 732         IStorage *stg2;
 733         IStorage *stg3;
 734         STATSTG statstg;
 735
 736         r = IStorage_Stat( stg, &statstg, STATFLAG_NONAME );
 737         ok(r == S_OK, "Stat should have succeded instead of returning 0x%08x\n", r);
 738         ok(statstg.type == STGTY_STORAGE, "Statstg type should have been STGTY_STORAGE instead of %d\n", statstg.type);
 739         ok(U(statstg.cbSize).LowPart == 0, "Statstg cbSize.LowPart should have been 0 instead of %d\n", U(statstg.cbSize).LowPart);
 740         ok(U(statstg.cbSize).HighPart == 0, "Statstg cbSize.HighPart should have been 0 instead of %d\n", U(statstg.cbSize).HighPart);
 741         ok(statstg.grfMode == (STGM_TRANSACTED|STGM_SHARE_DENY_WRITE|STGM_READWRITE),
 742             "Statstg grfMode should have been 0x10022 instead of 0x%x\n", statstg.grfMode);
 743         ok(statstg.grfLocksSupported == 0, "Statstg grfLocksSupported should have been 0 instead of %d\n", statstg.grfLocksSupported);
 744         ok(IsEqualCLSID(&statstg.clsid, &test_stg_cls), "Statstg clsid is not test_stg_cls\n");
 745         ok(statstg.grfStateBits == 0, "Statstg grfStateBits should have been 0 instead of %d\n", statstg.grfStateBits);
 746         ok(statstg.reserved == 0, "Statstg reserved should have been 0 instead of %d\n", statstg.reserved);
 747
 748         r = IStorage_CreateStorage( stg, stgname, STGM_SHARE_EXCLUSIVE, 0, 0, &stg2 );
 749         ok(r == S_OK, "CreateStorage should have succeeded instead of returning 0x%08x\n", r);
 750
 751         r = IStorage_Stat( stg2, &statstg, STATFLAG_DEFAULT );
 752         ok(r == S_OK, "Stat should have succeded instead of returning 0x%08x\n", r);
 753         ok(!lstrcmpW(statstg.pwcsName, stgname),
 754             "Statstg pwcsName should have been the name the storage was created with\n");
 755         ok(statstg.type == STGTY_STORAGE, "Statstg type should have been STGTY_STORAGE instead of %d\n", statstg.type);
 756         ok(U(statstg.cbSize).LowPart == 0, "Statstg cbSize.LowPart should have been 0 instead of %d\n", U(statstg.cbSize).LowPart);
 757         ok(U(statstg.cbSize).HighPart == 0, "Statstg cbSize.HighPart should have been 0 instead of %d\n", U(statstg.cbSize).HighPart);
 758         ok(statstg.grfMode == STGM_SHARE_EXCLUSIVE,
 759             "Statstg grfMode should have been STGM_SHARE_EXCLUSIVE instead of 0x%x\n", statstg.grfMode);
 760         ok(statstg.grfLocksSupported == 0, "Statstg grfLocksSupported should have been 0 instead of %d\n", statstg.grfLocksSupported);
 761         ok(IsEqualCLSID(&statstg.clsid, &CLSID_NULL), "Statstg clsid is not CLSID_NULL\n");
 762         ok(statstg.grfStateBits == 0, "Statstg grfStateBits should have been 0 instead of %d\n", statstg.grfStateBits);
 763         ok(statstg.reserved == 0, "Statstg reserved should have been 0 instead of %d\n", statstg.reserved);
 764         CoTaskMemFree(statstg.pwcsName);
 765
 766         r = IStorage_CreateStorage( stg2, stgname2, STGM_SHARE_EXCLUSIVE|STGM_READWRITE, 0, 0, &stg3 );
 767         ok(r == STG_E_ACCESSDENIED, "CreateStorage should have returned STG_E_ACCESSDENIED instead of 0x%08x\n", r);
 768
 769         r = IStorage_CreateStream( stg2, stmname2, STGM_CREATE|STGM_SHARE_EXCLUSIVE, 0, 0, &stm );
 770         ok(r == STG_E_ACCESSDENIED, "CreateStream should have returned STG_E_ACCESSDENIED instead of 0x%08x\n", r);
 771
 772         IStorage_Release(stg2);
 773
 774         r = IStorage_Release(stg);
 775         ok(r == 0, "wrong ref count\n");
 776     }
 777     IStorage_Release(stgprio);
 778
 779     DeleteFileW(filename);
 780 }
 781
 782 static void test_streamenum(void)
 783 {
 784     static const WCHAR szPrefix[] = { 's','t','g',0 };
 785     static const WCHAR szDot[] = { '.',0 };
 786     WCHAR filename[MAX_PATH];
 787     IStorage *stg = NULL;
 788     HRESULT r;
 789     IStream *stm = NULL;
 790     static const WCHAR stmname[] = { 'C','O','N','T','E','N','T','S',0 };
 791     STATSTG stat;
 792     IEnumSTATSTG *ee = NULL;
 793     ULONG count;
 794
 795     if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
 796         return;
 797
 798     DeleteFileW(filename);
 799
 800     /* create the file */
 801     r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE |
 802                             STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 803     ok(r==S_OK, "StgCreateDocfile failed\n");
 804
 805     r = WriteClassStg( stg, &test_stg_cls );
 806     ok( r == S_OK, "WriteClassStg failed\n");
 807
 808     r = IStorage_Commit( stg, STGC_DEFAULT );
 809     ok( r == S_OK, "IStorage_Commit failed\n");
 810
 811     /* now create a stream */
 812     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 813     ok(r==S_OK, "IStorage->CreateStream failed\n");
 814
 815     r = IStream_Release(stm);
 816
 817     /* first enum ... should be 1 stream */
 818     r = IStorage_EnumElements(stg, 0, NULL, 0, &ee);
 819     ok(r==S_OK, "IStorage->EnumElements failed\n");
 820
 821     count = 0xf00;
 822     r = IEnumSTATSTG_Next(ee, 1, &stat, &count);
 823     ok(r==S_OK, "IEnumSTATSTG->Next failed\n");
 824     ok(count == 1, "count wrong\n");
 825
 826     r = IEnumSTATSTG_Release(ee);
 827
 828     /* second enum... destroy the stream before reading */
 829     r = IStorage_EnumElements(stg, 0, NULL, 0, &ee);
 830     ok(r==S_OK, "IStorage->EnumElements failed\n");
 831
 832     r = IStorage_DestroyElement(stg, stmname);
 833     ok(r==S_OK, "IStorage->EnumElements failed\n");
 834
 835     todo_wine {
 836     count = 0xf00;
 837     r = IEnumSTATSTG_Next(ee, 1, &stat, &count);
 838     ok(r==S_FALSE, "IEnumSTATSTG->Next failed\n");
 839     ok(count == 0, "count wrong\n");
 840     }
 841
 842     /* reset and try again */
 843     r = IEnumSTATSTG_Reset(ee);
 844     ok(r==S_OK, "IEnumSTATSTG->Reset failed\n");
 845
 846     count = 0xf00;
 847     r = IEnumSTATSTG_Next(ee, 1, &stat, &count);
 848     ok(r==S_FALSE, "IEnumSTATSTG->Next failed\n");
 849     ok(count == 0, "count wrong\n");
 850
 851     r = IEnumSTATSTG_Release(ee);
 852     ok (r == 0, "enum not released\n");
 853
 854     r = IStorage_Release( stg );
 855     ok (r == 0, "storage not released\n");
 856
 857     DeleteFileW(filename);
 858 }
 859
 860 static void test_transact(void)
 861 {
 862     static const WCHAR szPrefix[] = { 's','t','g',0 };
 863     static const WCHAR szDot[] = { '.',0 };
 864     WCHAR filename[MAX_PATH];
 865     IStorage *stg = NULL, *stg2 = NULL;
 866     HRESULT r;
 867     IStream *stm = NULL;
 868     static const WCHAR stmname[] = { 'C','O','N','T','E','N','T','S',0 };
 869     static const WCHAR stmname2[] = { 'F','O','O',0 };
 870
 871     if(!GetTempFileNameW(szDot, szPrefix, 0, filename))
 872         return;
 873
 874     DeleteFileW(filename);
 875
 876     /* create the file */
 877     r = StgCreateDocfile( filename, STGM_CREATE | STGM_SHARE_EXCLUSIVE |
 878                             STGM_READWRITE |STGM_TRANSACTED, 0, &stg);
 879     ok(r==S_OK, "StgCreateDocfile failed\n");
 880
 881     /* now create a stream, but don't commit it */
 882     r = IStorage_CreateStream(stg, stmname2, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 883     ok(r==S_OK, "IStorage->CreateStream failed\n");
 884
 885     r = IStream_Write(stm, "this is stream 1\n", 16, NULL);
 886     ok(r==S_OK, "IStream->Write failed\n");
 887
 888     r = IStream_Release(stm);
 889
 890     r = IStorage_Commit(stg, 0);
 891     ok(r==S_OK, "IStorage->Commit failed\n");
 892
 893     /* now create a stream, but don't commit it */
 894     stm = NULL;
 895     r = IStorage_CreateStream(stg, stmname, STGM_SHARE_EXCLUSIVE | STGM_READWRITE, 0, 0, &stm );
 896     ok(r==S_OK, "IStorage->CreateStream failed\n");
 897
 898     r = IStream_Write(stm, "this is stream 2\n", 16, NULL);
 899     ok(r==S_OK, "IStream->Write failed\n");
 900
 901     r = IStream_Commit(stm, STGC_ONLYIFCURRENT | STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE);
 902     ok(r==S_OK, "IStream->Commit failed\n");
 903
 904     r = IStream_Release(stm);
 905
 906     IStorage_Release(stg);
 907
 908     stm = NULL;
 909     stg = NULL;
 910     r = StgOpenStorage( filename, NULL, STGM_SHARE_DENY_NONE | STGM_READ | STGM_TRANSACTED, NULL, 0, &stg);
 911     ok(r==S_OK, "StgOpenStorage failed\n");
 912
 913     if (!stg)
 914         return;
 915
 916     r = IStorage_OpenStream(stg, stmname, NULL, STGM_SHARE_DENY_NONE|STGM_READ, 0, &stm );
 917     ok(r==STG_E_INVALIDFLAG, "IStorage->OpenStream failed %08x\n", r);
 918
 919     r = IStorage_OpenStream(stg, stmname, NULL, STGM_DELETEONRELEASE|STGM_SHARE_EXCLUSIVE|STGM_READWRITE, 0, &stm );
 920     ok(r==STG_E_INVALIDFUNCTION, "IStorage->OpenStream failed %08x\n", r);
 921
 922     r = IStorage_OpenStream(stg, stmname, NULL, STGM_TRANSACTED|STGM_SHARE_EXCLUSIVE|STGM_READWRITE, 0, &stm );
 923     ok(r==STG_E_INVALIDFUNCTION, "IStorage->OpenStream failed %08x\n", r);
 924
 925     r = IStorage_OpenStorage(stg, stmname, NULL, STGM_TRANSACTED|STGM_SHARE_EXCLUSIVE|STGM_READWRITE, NULL, 0, &stg2 );
 926     ok(r==STG_E_FILENOTFOUND, "IStorage->OpenStream failed %08x\n", r);
 927
 928     todo_wine {
 929     r = IStorage_OpenStream(stg, stmname, NULL, STGM_SHARE_EXCLUSIVE|STGM_READWRITE, 0, &stm );
 930     ok(r==STG_E_FILENOTFOUND, "IStorage->OpenStream should fail %08x\n", r);
 931     }
 932     if (stm)
 933         r = IStream_Release(stm);
 934
 935     r = IStorage_OpenStorage(stg, stmname2, NULL, STGM_TRANSACTED|STGM_SHARE_EXCLUSIVE|STGM_READWRITE, NULL, 0, &stg2 );
 936     ok(r==STG_E_FILENOTFOUND, "IStorage->OpenStream failed %08x\n", r);
 937
 938     r = IStorage_OpenStream(stg, stmname2, NULL, STGM_SHARE_EXCLUSIVE|STGM_READWRITE, 0, &stm );
 939     ok(r==S_OK, "IStorage->OpenStream should fail %08x\n", r);
 940     if (stm)
 941         r = IStream_Release(stm);
 942
 943     IStorage_Release(stg);
 944
 945     r = DeleteFileW(filename);
 946     ok( r == TRUE, "deleted file\n");
 947 }
 948
 949 static void test_ReadClassStm(void)
 950 {
 951     CLSID clsid;
 952     HRESULT hr;
 953     IStream *pStream;
 954     static const LARGE_INTEGER llZero;
 955
 956     hr = ReadClassStm(NULL, &clsid);
 957     ok(hr == E_INVALIDARG, "ReadClassStm should have returned E_INVALIDARG instead of 0x%08x\n", hr);
 958
 959     hr = CreateStreamOnHGlobal(NULL, TRUE, &pStream);
 960     ok_ole_success(hr, "CreateStreamOnHGlobal");
 961     hr = WriteClassStm(pStream, &test_stg_cls);
 962     ok_ole_success(hr, "WriteClassStm");
 963
 964     hr = ReadClassStm(pStream, NULL);
 965     ok(hr == E_INVALIDARG, "ReadClassStm should have returned E_INVALIDARG instead of 0x%08x\n", hr);
 966
 967     /* test not rewound stream */
 968     hr = ReadClassStm(pStream, &clsid);
 969     ok(hr == STG_E_READFAULT, "ReadClassStm should have returned STG_E_READFAULT instead of 0x%08x\n", hr);
 970     ok(IsEqualCLSID(&clsid, &CLSID_NULL), "clsid should have been zeroed\n");
 971
 972     hr = IStream_Seek(pStream, llZero, STREAM_SEEK_SET, NULL);
 973     ok_ole_success(hr, "IStream_Seek");
 974     hr = ReadClassStm(pStream, &clsid);
 975     ok_ole_success(hr, "ReadClassStm");
 976     ok(IsEqualCLSID(&clsid, &test_stg_cls), "clsid should have been set to CLSID_WineTest\n");
 977 }
 978
 979 START_TEST(storage32)
 980 {
 981     test_hglobal_storage_stat();
 982     test_create_storage_modes();
 983     test_storage_stream();
 984     test_open_storage();
 985     test_storage_suminfo();
 986     test_storage_refcount();
 987     test_streamenum();
 988     test_transact();
 989     test_ReadClassStm();
 990 }