From c4dfb2c8bda32f6b1279419accb7b58f294ff27b Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Mon, 15 Mar 2021 19:08:17 +0000
Subject: [PATCH] fpts2junit: remove ../ at start for the classname

git-svn-id: trunk@48987 -
---
 tests/utils/fpts2junit.pp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/tests/utils/fpts2junit.pp b/tests/utils/fpts2junit.pp
index 633fd9e843..81651178c1 100644
--- a/tests/utils/fpts2junit.pp
+++ b/tests/utils/fpts2junit.pp
@@ -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,']');