From 9144f6211e3b613822cfc4b6a1d5595d95fcb0b1 Mon Sep 17 00:00:00 2001
From: Sun Serega <latchenko3@yandex.ru>
Date: Sun, 7 Feb 2021 14:29:53 +0200
Subject: [PATCH] tests

---
 TestSuite/units/u_partial_2429.pas       | 23 +++++++++++++++++++++++
 TestSuite/usesunits/use_partial_2429.pas |  6 ++++++
 2 files changed, 29 insertions(+)
 create mode 100644 TestSuite/units/u_partial_2429.pas
 create mode 100644 TestSuite/usesunits/use_partial_2429.pas

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<T> = class
+    function f0 := 5;
+  end;
+  //Ошибка: Неизвестное имя 't1`1'
+  t1 = partial class(t0<byte>)
+    
+  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