pascalabcnet/TestSuite/usesunits/UsesInUnits3/u.pas

unit u;

{$savepcu false}

{$resource '1.txt'}
{$reference 'uui3_lib.dll'}

begin
  Assert('abc' = System.IO.StreamReader.Create(GetResourceStream('1.txt')).ReadToEnd);
end.
-												uses-in + directives tests

											
										
										
											2020-06-01 12:03:30 +03:00
+								unit u;
-												$savepcu false in uses-in tests
Если .pcu существует - алгоритм компиляии сильно упрощается и некоторые ошибки могут не проявлятся

											
										
										
											2020-06-01 12:15:39 +03:00
+								{$savepcu false}
-												uses-in + directives tests

											
										
										
											2020-06-01 12:03:30 +03:00
+								{$resource '1.txt'}
 								{$reference 'uui3_lib.dll'}
 								begin
 								  Assert('abc' = System.IO.StreamReader.Create(GetResourceStream('1.txt')).ReadToEnd);
 								end.