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

codetools test: added test for try if finally

Browse Source 
git-svn-id: trunk@21424 -
This commit is contained in:
mattias 2009-08-23 12:57:23 +00:00
parent 07f4f08699
commit dbd54e5026
5 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -186,6 +186,8 @@ components/codetools/examples/testscompleteblock/record1.inc svneol=native#text/
components/codetools/examples/testscompleteblock/record1_result1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/record1_result1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/repeatifelse1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/repeatifelse1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/repeatifelse1_result.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/repeatifelse1_result.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/tryif1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/tryif1_result.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/unit1.pas svneol=native#text/plain components/codetools/examples/testscompleteblock/unit1.pas svneol=native#text/plain
components/codetools/examples/testscompleteblock/whilebegin1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/whilebegin1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/whilebegin1_result.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/whilebegin1_result.inc svneol=native#text/plain

10
components/codetools/examples/testscompleteblock/tryif1.inc Normal file
View File

@ -0,0 +1,10 @@
{%MainUnit unit1.pas}
procedure Do1;
begin
try
if
finally
end;
end;

10
components/codetools/examples/testscompleteblock/tryif1_result.inc Normal file
View File

@ -0,0 +1,10 @@
{%MainUnit unit1.pas}
procedure Do1;
begin
try
if
finally
end;
end;

1
components/codetools/examples/testscompleteblock/unit1.pas
View File

@ -25,6 +25,7 @@ implementation
{$IFDEF casecolon} {$I casecolon1.inc} {$ENDIF} {$IFDEF casecolon} {$I casecolon1.inc} {$ENDIF}
{$IFDEF repeatifelse} {$I repeatifelse1.inc} {$ENDIF} {$IFDEF repeatifelse} {$I repeatifelse1.inc} {$ENDIF}
{$IFDEF tryif} {$I tryif1.inc} {$ENDIF}
{$IFDEF ifbegin} {$I ifbegin1.inc} {$ENDIF} {$IFDEF ifbegin} {$I ifbegin1.inc} {$ENDIF}
{$IFDEF ifbeginelse} {$I ifbeginelse1.inc} {$ENDIF} {$IFDEF ifbeginelse} {$I ifbeginelse1.inc} {$ENDIF}

1
test/codetoolstests/testcompleteblock.pas
View File

@ -62,6 +62,7 @@ begin
CompareComplete('procedurebeginifbegin1.inc','11 74 procedurebeginifbegin fpcunit', 'procedurebeginifbegin1_result.inc'); CompareComplete('procedurebeginifbegin1.inc','11 74 procedurebeginifbegin fpcunit', 'procedurebeginifbegin1_result.inc');
CompareComplete('record1.inc','3 22 record fpcunit', 'record1_result1.inc'); CompareComplete('record1.inc','3 22 record fpcunit', 'record1_result1.inc');
CompareComplete('repeatifelse1.inc','11 18 repeatifelse fpcunit', 'repeatifelse1_result.inc'); CompareComplete('repeatifelse1.inc','11 18 repeatifelse fpcunit', 'repeatifelse1_result.inc');
CompareComplete('tryif1.inc','4 6 tryif fpcunit', 'tryif1_result.inc');
end; end;
end. end.