paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

test: fixed compilation of the examples on win64

Browse Source 
git-svn-id: trunk@10979 -
This commit is contained in:
vincents 2007-04-19 20:56:54 +00:00
parent dab74de8af
commit 38ea67c89e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/testlpi.pas
View File

@ -99,7 +99,7 @@ begin
if FileExists(AhkFileName) then if FileExists(AhkFileName) then
Result.AddTest(TLpiTest.Create(APath, 'TestRun')); Result.AddTest(TLpiTest.Create(APath, 'TestRun'));
{$ELSE} {$ELSE}
{$NOTE scripting is only available on windows} {$NOTE scripting is only available on win32}
{$ENDIF} {$ENDIF}
end; end;
@ -141,7 +141,7 @@ begin
AssertTrue(LazBuildPath + ' does not exist', FileExists(LazBuildPath)); AssertTrue(LazBuildPath + ' does not exist', FileExists(LazBuildPath));
LazBuild := TProcess.Create(nil); LazBuild := TProcess.Create(nil);
try try
{$IFDEF win32} {$IFDEF windows}
LazBuild.Options := [poNewConsole]; LazBuild.Options := [poNewConsole];
{$ELSE} {$ELSE}
LazBuild.Options := [poNoConsole]; LazBuild.Options := [poNoConsole];