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