paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 10:52:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: restore nil check in the dispinterface test

Browse Source 
git-svn-id: trunk@14748 -
This commit is contained in:
paul 2010-01-19 13:35:23 +00:00
parent 1ae0cebc1a
commit 0d7391baff
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw15530.pp
View File

@ -22,10 +22,13 @@ begin
II := CreateOleObject('InternetExplorer.Application') as IIE; II := CreateOleObject('InternetExplorer.Application') as IIE;
if II = nil then
halt(1);
if not II.Visible then // test dispid property getter if not II.Visible then // test dispid property getter
II.Visible := True; // test dispid property setter II.Visible := True; // test dispid property setter
II.Quit; // test dipid method call II.Quit; // test dipid method call
OleUninitialize; OleUninitialize;
end. end.