paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 16:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix error in GuiTestRunner. Issue #22138, patch from Alexander Strokach

Browse Source 
git-svn-id: trunk@37433 -
This commit is contained in:
juha 2012-05-27 08:15:22 +00:00
parent e4137548cc
commit daf53bbb89
3 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/test/SynTest.lpi
View File

@ -7,7 +7,6 @@
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<Language Value=""/>
@ -125,7 +124,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
@ -143,13 +142,12 @@
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsDwarf2Set"/>
<UseHeaptrc Value="True"/>
</Debugging>
</Linking>
<Other>
<CustomOptions Value="-gt -gc"/>
<CustomOptions Value="-gt"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

4
components/synedit/test/testfoldedview.pas
View File

@ -1791,8 +1791,8 @@ procedure TTestFoldedView.TestNestedFoldsList;
AssertEquals(Format('%s (%d/%d) FoldLvlEnd', [BaseTestName, ALine, AColumn]), FoldLvlEnd, nd.FoldLvlEnd);
AssertEquals(Format('%s (%d/%d) NestLvlStart', [BaseTestName, ALine, AColumn]), NestLvlStart, nd.NestLvlStart);
AssertEquals(Format('%s (%d/%d) NestLvlEnd', [BaseTestName, ALine, AColumn]), NestLvlEnd, nd.NestLvlEnd);
AssertEquals(Format('%s (%d/%d) FoldType', [BaseTestName, ALine, AColumn]), PtrUInt(FoldType), PtrUInt(nd.FoldType));
AssertEquals(Format('%s (%d/%d) FoldTypeCompatible', [BaseTestName, ALine, AColumn]), PtrUInt(FoldTypeCompatible), PtrUInt(nd.FoldTypeCompatible));
AssertEquals(Format('%s (%d/%d) FoldType', [BaseTestName, ALine, AColumn]), FoldType, PtrUInt(nd.FoldType));
AssertEquals(Format('%s (%d/%d) FoldTypeCompatible', [BaseTestName, ALine, AColumn]), FoldTypeCompatible, PtrUInt(nd.FoldTypeCompatible));
AssertEquals(Format('%s (%d/%d) FoldGroup:', [BaseTestName, ALine, AColumn]), FoldGroup, nd.FoldGroup);
end;
AssertEquals(Format('%s (%d/%d) FoldAction', [BaseTestName, ALine, AColumn]), FoldActionsToString(FoldAction), FoldActionsToString(nd.FoldAction));

4
components/synedit/test/testhighlightpas.pas
View File

@ -1043,8 +1043,8 @@ procedure TTestHighlighterPas.TestFoldNodeInfo;
AssertEquals(Format('%s (%d/%d) FoldLvlEnd', [BaseTestName, ALine, AColumn]), FoldLvlEnd, nd.FoldLvlEnd);
AssertEquals(Format('%s (%d/%d) NestLvlStart', [BaseTestName, ALine, AColumn]), NestLvlStart, nd.NestLvlStart);
AssertEquals(Format('%s (%d/%d) NestLvlEnd', [BaseTestName, ALine, AColumn]), NestLvlEnd, nd.NestLvlEnd);
AssertEquals(Format('%s (%d/%d) FoldType', [BaseTestName, ALine, AColumn]), PtrUInt(FoldType), PtrUInt(nd.FoldType));
AssertEquals(Format('%s (%d/%d) FoldTypeCompatible', [BaseTestName, ALine, AColumn]), PtrUInt(FoldTypeCompatible), PtrUInt(nd.FoldTypeCompatible));
AssertEquals(Format('%s (%d/%d) FoldType', [BaseTestName, ALine, AColumn]), FoldType, PtrUInt(nd.FoldType));
AssertEquals(Format('%s (%d/%d) FoldTypeCompatible', [BaseTestName, ALine, AColumn]), FoldTypeCompatible, PtrUInt(nd.FoldTypeCompatible));
AssertEquals(Format('%s (%d/%d) FoldGroup:', [BaseTestName, ALine, AColumn]), FoldGroup, nd.FoldGroup);
end;
AssertEquals(Format('%s (%d/%d) FoldAction', [BaseTestName, ALine, AColumn]), FoldActionsToString(FoldAction), FoldActionsToString(nd.FoldAction));