From 0d7391baff38bea1c03ea48d1cb8080fc5c26a22 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Tue, 19 Jan 2010 13:35:23 +0000
Subject: [PATCH] tests: restore nil check in the dispinterface test

git-svn-id: trunk@14748 -
---
 tests/webtbs/tw15530.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/webtbs/tw15530.pp b/tests/webtbs/tw15530.pp
index e2e04d8b7e..fc2955ce9d 100644
--- a/tests/webtbs/tw15530.pp
+++ b/tests/webtbs/tw15530.pp
@@ -22,10 +22,13 @@ begin
 
   II := CreateOleObject('InternetExplorer.Application') as IIE;
 
+  if II = nil then
+    halt(1);
+
   if not II.Visible then // test dispid property getter
     II.Visible := True;  // test dispid property setter
 
   II.Quit; // test dipid method call
 
   OleUninitialize;
-end.
\ No newline at end of file
+end.