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

fpts2junit: remove ../ at start for the classname

Browse Source 
git-svn-id: trunk@48987 -
This commit is contained in:
marcus 2021-03-15 19:08:17 +00:00
parent 811cf381ad
commit c4dfb2c8bd
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/utils/fpts2junit.pp
View File

@ -122,6 +122,8 @@ begin
// create testcase node
caseNode:=junitXML.CreateElement('testcase');
if pos('../', classname) = 1 then
Delete(classname, 1, 3);
TDOMElement(caseNode).SetAttribute('classname',WideString(className));
TDOMElement(caseNode).SetAttribute('name',WideString(caseName));
rootNode.AppendChild(caseNode);
@ -164,15 +166,15 @@ begin
caseNode.AppendChild(tmpNode);
continue;
end;
if AnsiStartsText(PATTERN_SKIPPED, tmpLine) then
if AnsiStartsText(PATTERN_SKIPPED, tmpLine) then
begin
Inc(skipped);
caseNode.AppendChild(junitXML.CreateElement('skipped'));
continue;
continue;
end;
if AnsiStartsText(PATTERN_SUCCESS, tmpLine) then
if AnsiStartsText(PATTERN_SUCCESS, tmpLine) then
begin
Inc(success);
Inc(success);
continue;
end;
writeln('Unparseable line: [',tmpLine,']');