NT4/private/ole32/stg/docfile/tests/pp.cxx

55 lines
1.5 KiB
C++
Raw Normal View History

2001-01-01 00:00:00 +01:00
//+---------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992 - 1993.
//
// File: pp.cxx
//
// Contents: PowerPoint commit failure repro
//
// History: 07-Sep-93 DrewB Created
//
//----------------------------------------------------------------------------
#include "pch.cxx"
#pragma hdrstop
void _CRTAPI1 main(int argc, char *argv[])
{
IStorage *pstgRoot, *pstgObj;
IStream *pstm;
HRESULT hr;
StartTest("pp");
CmdArgs(argc, argv);
hr = StgCreateDocfile(NULL, 0x11022, 0, &pstgRoot);
Result(hr, "Create docfile");
hr = pstgRoot->CreateStream(TTEXT("PP40"), 0x1012, 0, 0, &pstm);
Result(hr, "Create PP40");
pstm->Release();
hr = pstgRoot->CreateStorage(TTEXT("Object1"), 0x10012, 0, 0, &pstgObj);
Result(hr, "Create Object1");
hr = pstgObj->CreateStream(TTEXT(".Ole"), 0x1011, 0, 0, &pstm);
Result(hr, "Create .Ole");
pstm->Release();
hr = pstgObj->CreateStream(TTEXT(".CompObj"), 0x1011, 0, 0, &pstm);
Result(hr, "Create .CompObj");
pstm->Release();
hr = pstgObj->CreateStream(TTEXT(".Ole10Native"), 0x1011, 0, 0, &pstm);
Result(hr, "Create .Ole10Native");
pstm->Release();
hr = pstgObj->Commit(0);
Result(hr, "Commit Object1");
DfSetResLimit(DBR_XSCOMMITS, 3);
hr = pstgRoot->Commit(0);
IllResult(hr, "Commit root");
pstgObj->Release();
pstgRoot->Release();
EndTest(0);
}