+ new tests

git-svn-id: trunk@3697 -

.gitattributes

@@ -6047,6 +6047,7 @@ tests/webtbf/tw3502.pp svneol=native#text/plain
 tests/webtbf/tw3531.pp svneol=native#text/plain
 tests/webtbf/tw3553.pp svneol=native#text/plain
 tests/webtbf/tw3562.pp svneol=native#text/plain
+tests/webtbf/tw3583.pp svneol=native#text/plain
 tests/webtbf/tw3626.pp svneol=native#text/plain
 tests/webtbf/tw3631.pp svneol=native#text/plain
 tests/webtbf/tw3643.pp svneol=native#text/plain
@@ -6665,6 +6666,7 @@ tests/webtbs/tw3576.pp svneol=native#text/plain
 tests/webtbs/tw3577.pp svneol=native#text/plain
 tests/webtbs/tw3578.pp svneol=native#text/plain
 tests/webtbs/tw3579.pp svneol=native#text/plain
+tests/webtbs/tw3583.pp svneol=native#text/plain
 tests/webtbs/tw3589.pp svneol=native#text/plain
 tests/webtbs/tw3594.pp svneol=native#text/plain
 tests/webtbs/tw3595.pp svneol=native#text/plain

tests/webtbf/tw3583.pp

@@ -0,0 +1,16 @@
+{ %FAIL }
+{$mode objfpc}
+type
+  IGUserData = interface(IInvokable)
+    ['{35377B66-6B1B-11D9-8827-00055DDDEA00}']
+    (* userdata *)
+    function GetUserData(key: UTF8String): IInterface;
+    procedure SetUserData(key: UTF8String; const v: IInterface);
+
+    function GetUserDataVariant(key: UTF8String): Variant;
+    procedure SetUserDataVariant(key: UTF8String; const v: Variant);
+
+    property UserData[key: UTF8String]: IInterface read GetUserData write SetUserData;
+  end;
+begin
+end.

tests/webtbs/tw3583.pp

@@ -0,0 +1,15 @@
+{$mode delphi}
+type
+  IGUserData = interface(IInvokable)
+    ['{35377B66-6B1B-11D9-8827-00055DDDEA00}']
+    (* userdata *)
+    function GetUserData(key: UTF8String): IInterface;
+    procedure SetUserData(key: UTF8String; const v: IInterface);
+
+    function GetUserDataVariant(key: UTF8String): Variant;
+    procedure SetUserDataVariant(key: UTF8String; const v: Variant);
+
+    property UserData[key: UTF8String]: IInterface read GetUserData write SetUserData;
+  end;
+begin
+end.