+ new tests

git-svn-id: trunk@3647 -

.gitattributes

@@ -6066,6 +6066,8 @@ tests/webtbf/tw4893d.pp svneol=native#text/plain
 tests/webtbf/tw4893e.pp svneol=native#text/plain
 tests/webtbf/tw4911.pp svneol=native#text/plain
 tests/webtbf/tw4913.pp -text
+tests/webtbf/tw6686.pp svneol=native#text/plain
+tests/webtbf/tw6796.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

tests/webtbf/tw6686.pp

@@ -0,0 +1,11 @@
+{ %FAIL }
+program test;
+
+{$mode delphi}
+
+function test;
+begin
+end;
+
+begin
+end.

tests/webtbf/tw6796.pp

@@ -0,0 +1,32 @@
+{ %FAIL }
+program intftest;
+{$mode objfpc} {$H+}
+uses
+  Classes, SysUtils;
+
+type
+  {$INTERFACES CORBA}
+  IMyCorba = interface
+    ['{11111111-1111-1111-1111-111111111111}']
+    procedure A;
+  end;
+  {$INTERFACES DEFAULT}
+
+  TMyCorba = class(TObject, IMyCorba)
+    procedure A;
+  end;
+
+procedure TMyCorba.A;
+begin
+  WriteLN('A: Who called me ?');
+end;
+
+var
+  I: IUnknown;
+  C: IMyCorba;
+
+begin
+  C := TMyCorba.Create;
+  I := C as IUnknown;
+//  Supports(C, IUnknown); <- gives atleast some error
+end.