From af372691ebdc28584f303516185ed1b235979cd5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 3 Jan 2007 21:19:26 +0000
Subject: [PATCH] + new tests for dispinterface parsing

git-svn-id: trunk@5799 -
---
 .gitattributes         |  2 ++
 tests/webtbs/tw2647.pp | 15 +++++++++++++++
 tests/webtbs/tw2649.pp | 21 +++++++++++++++++++++
 3 files changed, 38 insertions(+)
 create mode 100644 tests/webtbs/tw2647.pp
 create mode 100644 tests/webtbs/tw2649.pp

diff --git a/.gitattributes b/.gitattributes
index e344594bb6..93b1dc755d 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7517,6 +7517,8 @@ tests/webtbs/tw2627.pp svneol=native#text/plain
 tests/webtbs/tw2631.pp svneol=native#text/plain
 tests/webtbs/tw2643.pp svneol=native#text/plain
 tests/webtbs/tw2645.pp svneol=native#text/plain
+tests/webtbs/tw2647.pp svneol=native#text/plain
+tests/webtbs/tw2649.pp svneol=native#text/plain
 tests/webtbs/tw2650.pp svneol=native#text/plain
 tests/webtbs/tw2651.pp svneol=native#text/plain
 tests/webtbs/tw2656.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw2647.pp b/tests/webtbs/tw2647.pp
new file mode 100644
index 0000000000..5e9221eabd
--- /dev/null
+++ b/tests/webtbs/tw2647.pp
@@ -0,0 +1,15 @@
+{$mode Delphi}
+type
+  ISensLogon = interface (IDispatch)
+  ['{d597bab3-5b9f-11d1-8dd2-00aa004abd5e}']
+    function Logon(bstrUserName: WideString): HRESULT; stdcall; dispid 1;
+    function Logoff(bstrUserName: WideString): HRESULT; stdcall; dispid 2;
+    function StartShell(bstrUserName: WideString): HRESULT; stdcall; dispid 3;
+    function DisplayLock(bstrUserName: WideString): HRESULT; stdcall; dispid 4;
+    function DisplayUnlock(bstrUserName: WideString): HRESULT; stdcall; dispid 5;
+    function StartScreenSaver(bstrUserName: WideString): HRESULT; stdcall; dispid 6;
+    function StopScreenSaver(bstrUserName: WideString): HRESULT; stdcall; dispid 7;
+  end;
+
+begin
+end.
diff --git a/tests/webtbs/tw2649.pp b/tests/webtbs/tw2649.pp
new file mode 100644
index 0000000000..6ce992e28d
--- /dev/null
+++ b/tests/webtbs/tw2649.pp
@@ -0,0 +1,21 @@
+{$mode objfpc}
+type
+  IADsDisp = dispinterface
+    ['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
+    property Name: WideString readonly dispid 2;
+    property Class_: WideString readonly dispid 3;
+    property GUID: WideString readonly dispid 4;
+    property ADsPath: WideString readonly dispid 5;
+    property Parent: WideString readonly dispid 6;
+    property Schema: WideString readonly dispid 7;
+    procedure GetInfo; dispid 8;
+    procedure SetInfo; dispid 9;
+    function  Get(const bstrName: WideString): OleVariant; dispid 10;
+    procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
+    function  GetEx(const bstrName: WideString): OleVariant; dispid 12;
+    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
+    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
+  end;
+
+begin
+end.
\ No newline at end of file