administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix test

Browse source
This commit is contained in:
Sun Serega 2022-12-17 02:24:34 +02:00
parent 750168b319
commit 5b24c86d86
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
TestSuite/yield-where.pas
View file

@ -8,7 +8,7 @@ type
t1<T> = class t1<T> = class
where T: class; where T: class;
// Обязательно метод // Обязательно метод
function f1<TT>(o: T): sequence of byte; function f1<TT>(o: TT): sequence of byte;
where TT: record; where TT: record;
begin begin
//Ошибка: Невозможно инстанцировать, так как тип T не наследован от System.Exception //Ошибка: Невозможно инстанцировать, так как тип T не наследован от System.Exception
@ -19,5 +19,5 @@ type
end; end;
begin begin
Assert(t1.Create.f1.Single=5); Assert(t1&<object>.Create.f1(0).Single = 5);
end. end.