- Added new option for rtest (ulimit stack size)

- Fix compliance suite error-messages git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@17439 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 29, 2013 · 38514cb · 38514cb
1 parent 9a829f5
commit 38514cb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Examples/ComplianceSuite.mos b/Examples/ComplianceSuite.mos
@@ -55,9 +55,9 @@ resultFile := rec.resultFile;
 success := resultFile "+(if OpenModelica.Scripting.getBooleanClassAnnotation(cl,__ModelicaAssociation.TestCase.shouldPass) then"<>"else"==")+" \"\";
 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 := messages + (if not success and OpenModelica.Scripting.getBooleanClassAnnotation("+OpenModelica.Scripting.typeNameString(cl)+",__ModelicaAssociation.TestCase.shouldPass) then \"\nSucceeded, but expected failure\" else \"\");
 messages := OpenModelica.Scripting.escapeXML(firstPart(messages));
-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>\");
+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>\n\");
 ") for cl in allClasses);
 getErrorString();
 system_parallel(commands);getErrorString();