Also add message to the xml that says expected failure

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@17414 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 26, 2013 · e386e04 · e386e04
1 parent bfcdc00
commit e386e04
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Examples/ComplianceSuite.mos b/Examples/ComplianceSuite.mos
@@ -54,6 +54,7 @@ end fixName;
 resultFile := rec.resultFile;
 messages := rec.messages;
 messages := messages + err;
+messages := messages + (if not success and OpenModelica.Scripting.getBooleanClassAnnotation(cl,__ModelicaAssociation.TestCase.shouldPass) then \"\nSucceeded, but expected failure\" else \"\");
 messages := OpenModelica.Scripting.escapeXML(firstPart(messages));
 success := resultFile "+(if OpenModelica.Scripting.getBooleanClassAnnotation(cl,__ModelicaAssociation.TestCase.shouldPass) then"<>"else"==")+" \"\";
 writeFile(\""+fixName(typeNameString(cl))+".res\",\"<testcase name=\\\""+fixName(last(OpenModelica.Scripting.typeNameStrings(cl)))+"\\\">\"+(if not success then \"<error type=\\\""+(if OpenModelica.Scripting.getBooleanClassAnnotation(cl,__ModelicaAssociation.TestCase.shouldPass) then "expected failure" else "failed")+"\\\" message=\\\"\"+messages+\"\\\"/>\" else \"\")+\"</testcase>\");