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

codetools: test GetValuesOfCaseVariable on enum

Browse Source 
git-svn-id: trunk@56169 -
This commit is contained in:
mattias 2017-10-23 11:47:57 +00:00
parent eee3db1cf7
commit 0a43bac5b4
2 changed files with 80 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1032,6 +1032,7 @@ components/codetools/tests/testctrangescan.pas svneol=native#text/plain
components/codetools/tests/testctxmlfixfragments.pas svneol=native#text/pascal
components/codetools/tests/testfinddeclaration.pas svneol=native#text/plain
components/codetools/tests/testglobals.pas svneol=native#text/plain
components/codetools/tests/testidentcompletion.pas svneol=native#text/plain
components/codetools/tests/testmethodjumptool.pas svneol=native#text/plain
components/codetools/tests/testpascalparser.pas svneol=native#text/plain
components/codetools/tests/testrefactoring.pas svneol=native#text/plain

79
components/codetools/tests/testidentcompletion.pas Normal file
View File

@ -0,0 +1,79 @@
{
Test with:
./testcodetools --suite=TTestFindDeclaration
./testcodetools --suite=TestFindDeclaration_Basic
./testcodetools --suite=TestFindDeclaration_ClassOf
./testcodetools --suite=TestFindDeclaration_With
./testcodetools --suite=TestFindDeclaration_NestedClasses
./testcodetools --suite=TestFindDeclaration_ClassHelper
./testcodetools --suite=TestFindDeclaration_TypeHelper
./testcodetools --suite=TestFindDeclaration_ObjCClass
./testcodetools --suite=TestFindDeclaration_ObjCCategory
./testcodetools --suite=TestFindDeclaration_Generics
./testcodetools --suite=TestFindDeclaration_FileAtCursor
FPC tests:
./testcodetools --suite=TestFindDeclaration_FPCTests
./testcodetools --suite=TestFindDeclaration_FPCTests --filemask=t*.pp
./testcodetools --suite=TestFindDeclaration_FPCTests --filemask=tchlp41.pp
Laz tests:
./testcodetools --suite=TestFindDeclaration_LazTests
./testcodetools --suite=TestFindDeclaration_LazTests --filemask=t*.pp
./testcodetools --suite=TestFindDeclaration_LazTests --filemask=tdefaultproperty1.pp
}
unit TestIdentCompletion;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
fpcunit, testregistry,
FileProcs, LazFileUtils, LazLogger,
CodeToolManager, ExprEval,
CustomCodeTool, FindDeclarationTool, KeywordFuncLists,
TestFindDeclaration;
type
{ TTestIdentCompletion }
TTestIdentCompletion = class(TCustomTestFindDeclaration)
published
procedure Test_GetValuesOfCaseVariable_Enum;
end;
implementation
{ TTestIdentCompletion }
procedure TTestIdentCompletion.Test_GetValuesOfCaseVariable_Enum;
var
List: TStrings;
begin
List:=TStringList.Create;
try
Code.Source:=
'type TEnum = (red,green);'+LineEnding
+'var e: TEnum;'+LineEnding
+'begin'+LineEnding
+' case e of'+LineEnding
+'end.';
List.Clear;
if not CodeToolBoss.GetValuesOfCaseVariable(Code,8,4,List) then begin
Fail('GetValuesOfCaseVariable failed on case enum');
end;
//writeln('TTestIdentCompletion.Test_GetValuesOfCaseVariable_Enum ',List.Text);
AssertEquals('case enum count',2,List.Count);
AssertEquals('case enum[0]','red',List[0]);
AssertEquals('case enum[1]','green',List[1]);
finally
List.Free;
end;
end;
initialization
RegisterTests([TTestIdentCompletion]);
end.