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

codetools: added test for in

Browse Source 
git-svn-id: trunk@54678 -
This commit is contained in:
mattias 2017-04-22 06:26:04 +00:00
parent 1110e429cf
commit 9b7b950996
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -990,6 +990,7 @@ components/codetools/tests/laztests/unitdots.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_basic.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_classhelper.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_classof.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_for_in.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_generics.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_nestedclasses.pas svneol=native#text/plain
components/codetools/tests/moduletests/fdt_objccategory.pas svneol=native#text/plain

25
components/codetools/tests/moduletests/fdt_for_in.pas Normal file
View File

@ -0,0 +1,25 @@
unit fdt_for_in;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TCol = (red, blue, green);
const
tcRedBlue = [Low(TCol)..blue];
procedure DoIt;
implementation
procedure DoIt;
begin
for e{guesstype:TCol} in tcRedBlue do ;
end;
end.