diff --git a/TestSuite/yield-where.pas b/TestSuite/yield-where.pas index 83696b337..b8c6b69d1 100644 --- a/TestSuite/yield-where.pas +++ b/TestSuite/yield-where.pas @@ -8,7 +8,7 @@ type t1 = class where T: class; // Обязательно метод - function f1(o: T): sequence of byte; + function f1(o: TT): sequence of byte; where TT: record; begin //Ошибка: Невозможно инстанцировать, так как тип T не наследован от System.Exception @@ -19,5 +19,5 @@ type end; begin - Assert(t1.Create.f1.Single=5); + Assert(t1&.Create.f1(0).Single = 5); end. \ No newline at end of file