diff --git a/TestSuite/units/u_partial_2429.pas b/TestSuite/units/u_partial_2429.pas new file mode 100644 index 000000000..9aeac4e33 --- /dev/null +++ b/TestSuite/units/u_partial_2429.pas @@ -0,0 +1,23 @@ +unit u_partial_2429; + +interface + +type + t1 = partial class + function f1: integer; + end; + +implementation + +type + t0 = class + function f0 := 5; + end; + //Ошибка: Неизвестное имя 't1`1' + t1 = partial class(t0) + + end; + +function t1.f1 := self.f0; + +begin end. \ No newline at end of file diff --git a/TestSuite/usesunits/use_partial_2429.pas b/TestSuite/usesunits/use_partial_2429.pas new file mode 100644 index 000000000..1fc06577f --- /dev/null +++ b/TestSuite/usesunits/use_partial_2429.pas @@ -0,0 +1,6 @@ +uses u_partial_2429; + +begin + var a := new t1; + Assert(a.f1 = 5); +end. \ No newline at end of file