From 38bbca5bb2681d7fb0ed6478f4211188ecfb45f8 Mon Sep 17 00:00:00 2001
From: jorenb <jorenb@mips.be>
Date: Tue, 4 Oct 2016 13:43:27 +0200
Subject: [PATCH] Fix error when exporting failure with '<' sign.

---
 src/OEUnit/Automation/SureFireReporter.cls | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/OEUnit/Automation/SureFireReporter.cls b/src/OEUnit/Automation/SureFireReporter.cls
index 27233e5..9b474b6 100644
--- a/src/OEUnit/Automation/SureFireReporter.cls
+++ b/src/OEUnit/Automation/SureFireReporter.cls
@@ -80,7 +80,7 @@ CLASS OEUnit.Automation.SureFireReporter INHERITS BaseReporter:
           + SUBSTITUTE('>~n    <failure'
               /* + ' type="??"' */
               + ' message="&1">~n',
-            currentResult:GetMessage()).
+            REPLACE(currentResult:GetMessage(), "<":U, "&lt;":U)).
 
         /* loop through the list of errors */  
         errorList = currentResult:GetErrors().
@@ -95,11 +95,10 @@ CLASS OEUnit.Automation.SureFireReporter INHERITS BaseReporter:
           END.
 
           outputXml = outputXml
-            + SUBSTITUTE('&1 at &2',
+            + REPLACE(SUBSTITUTE('&1 at &2',
                 currentResult:GetMessage(),
-                errorStack).
+                errorStack), "<":U, "&lt;":U).
         END.
-
         /* close the testcase tag */
         outputXml = outputXml
           + '~n    </failure>~n  </testcase>~n'.