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

codetools: fixed auto xml fragment scanner, bug #18800

Browse Source 
git-svn-id: trunk@29653 -
This commit is contained in:
mattias 2011-02-22 14:14:53 +00:00
parent f5466d09b4
commit 7b27013b93
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/ctxmlfixfragment.pas
View File

@ -442,6 +442,7 @@ var
inc(p);
end;
end;
inc(p);
Pop;
exit;
end;

3
test/codetoolstests/testctxmlfixfragments.pas
View File

@ -65,6 +65,8 @@ end;
procedure TTestCTXMLFixFragment.TestFixXMLFragmentOpenTag;
begin
Test('valid short tag','<link/>','<link/>');
Test('valid short with empty attribute tag','<link id=""/>','<link id=""/>');
Test('missing tag name','<>','&lt;&gt;');
Test('lower case tag name','<A></a>','<a></a>');
Test('invalid character in tag','<a "></a>','<a >"&gt;</a>');
@ -95,6 +97,7 @@ begin
'operator &lt;(TPoint, TPoint): Boolean');
Test('16671','<br>',
'<br/>');
Test('18800','<link id="foo"/>','<link id="foo"/>');
end;
initialization

2
test/runtests.lpi
View File

@ -91,7 +91,7 @@
<UnitName Value="TestCompleteBlock"/>
</Unit9>
<Unit10>
<Filename Value="testctxmlfixfragments.pas"/>
<Filename Value="codetoolstests\testctxmlfixfragments.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestCTXMLFixFragments"/>
</Unit10>