From 4fbf8389dbc375b69096912357d68a4d5541c917 Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 7 Feb 2021 13:56:05 +0100
Subject: [PATCH] tests for #2425

---
 TestSuite/units/u_partial2.pas       | 15 +++++++++++++++
 TestSuite/usesunits/use_partial2.pas |  5 +++++
 2 files changed, 20 insertions(+)
 create mode 100644 TestSuite/units/u_partial2.pas
 create mode 100644 TestSuite/usesunits/use_partial2.pas

diff --git a/TestSuite/units/u_partial2.pas b/TestSuite/units/u_partial2.pas
new file mode 100644
index 000000000..cb0f36042
--- /dev/null
+++ b/TestSuite/units/u_partial2.pas
@@ -0,0 +1,15 @@
+unit u_partial2;
+
+interface
+
+type
+  t1 = partial class
+    public constructor := exit;
+  end;
+  
+implementation
+
+type
+  t1 = partial class end;
+  
+end.
\ No newline at end of file
diff --git a/TestSuite/usesunits/use_partial2.pas b/TestSuite/usesunits/use_partial2.pas
new file mode 100644
index 000000000..990861c10
--- /dev/null
+++ b/TestSuite/usesunits/use_partial2.pas
@@ -0,0 +1,5 @@
+uses u_partial2;
+
+begin
+  new t1;
+end.
\ No newline at end of file