paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:31:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ additional test

Browse Source
This commit is contained in:
florian 2024-11-01 10:52:35 +01:00
parent 63734fb792
commit 99a9cfbc71
2 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/test/timplements8.pp Normal file
View File

@ -0,0 +1,26 @@
{$ifdef fpc}
{$mode objfpc}
{$endif fpc}
uses
classes,uimplements8;
var
o1 : to1;
i1,i2 : IInterface;
begin
o1:=to1.create;
o1.fi:=TInterfacedObject.Create;
i1:=o1;
i1.QueryInterface(IInterface,i2);
if i2=nil then
halt(1);
o1.fi:=nil;
i1.QueryInterface(IInterface,i2);
if i2=nil then
halt(1);
o1.free;
i1.QueryInterface(IInterface,i2);
if i2=nil then
halt(1);
writeln('ok');
end.

19
tests/test/uimplements8.pp Normal file
View File

@ -0,0 +1,19 @@
{$ifdef fpc}
{$mode objfpc}
{$endif fpc}
unit uimplements8;
interface
uses
classes;
type
to1 = class(TObject,IInterface)
fi : IInterface;
property i : IInterface read fi implements IInterface;
end;
implementation
end.