tests for #2425
This commit is contained in:
parent
f6d146814f
commit
4fbf8389db
15
TestSuite/units/u_partial2.pas
Normal file
15
TestSuite/units/u_partial2.pas
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
unit u_partial2;
|
||||
|
||||
interface
|
||||
|
||||
type
|
||||
t1 = partial class
|
||||
public constructor := exit;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
type
|
||||
t1 = partial class end;
|
||||
|
||||
end.
|
||||
5
TestSuite/usesunits/use_partial2.pas
Normal file
5
TestSuite/usesunits/use_partial2.pas
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
uses u_partial2;
|
||||
|
||||
begin
|
||||
new t1;
|
||||
end.
|
||||
Loading…
Reference in a new issue