diff --git a/TestSuite/errors/err0545_delegates23.pas b/TestSuite/errors/err0545_delegates23.pas deleted file mode 100644 index c5854ab41..000000000 --- a/TestSuite/errors/err0545_delegates23.pas +++ /dev/null @@ -1,17 +0,0 @@ -var i: integer; - -procedure p0(p: byte->()); -begin - Inc(i); -end; -procedure p1(o: T); -begin - Inc(i); -end; - -begin - p0(p1&); - //Ошибка: Нельзя преобразовать тип procedure(o: T) к Action - p0(p1); - assert(i = 2); -end. \ No newline at end of file diff --git a/TestSuite/errors/err0546_delegates25.pas b/TestSuite/errors/err0546_delegates25.pas deleted file mode 100644 index d2b1b58b3..000000000 --- a/TestSuite/errors/err0546_delegates25.pas +++ /dev/null @@ -1,23 +0,0 @@ -var i: integer; - -procedure p0(p: byte->()); -begin - p(1); - Inc(i); -end; - -type - t1 = class - static procedure p1(o: T) := exit; - procedure p2(o: T) := exit; - end; - -begin - // OK - p0(t1.p1&); - p0(t1.Create.p2&); - // А эти 2 падают - p0(t1.p1); - p0(t1.Create.p2); - assert(i = 4); -end. \ No newline at end of file