diff --git a/test/format/format_tests.m b/test/format/format_tests.m index c73cadf6d..de0e3f962 100755 --- a/test/format/format_tests.m +++ b/test/format/format_tests.m @@ -7,7 +7,7 @@ ****************************************************************************************) -ISMATHICSINTERPRETER=(StringTake[$Version, 8]==="Mathics3") +ISMATHICSINTERPRETER=(StringTake[$Version, 8]==="Mathics3"); Print["Read json"]; @@ -29,10 +29,10 @@ Do[form = ToExpression[subtest[[1]]]; expr = form[key]; result = ToString[expr, CharacterEncoding->"ASCII"]; expected = subtest[[2]]; - If[result != subtest[[2]], - Print[" * ", form, "(text) [Failed]\n result:", "<<" <> result <> ">>(", StringLength[result], + If[result != expected, + Print[" * ", FullForm[expr], " //", form, "(text) [Failed]\n result:", "<<" <> result <> ">>(", StringLength[result], ")\n expected: ", "<<" <> expected <> ">> (", StringLength[expected],")\n"], - Print[" * ", form, "(text) [OK]"]];, + Print[" * ", FullForm[expr], " //", form, "(text) [OK]"]];, {subtest, text}] ]; (*LaTeX*) @@ -42,10 +42,10 @@ result = ToString[expr, TeXForm, CharacterEncoding->"ASCII"]; expected = subtest[[2]]; If[result != subtest[[2]], - Print[" * ", form, "(latex) [Failed]\n result:", + Print[" * ", key, " //", form, "(latex) [Failed]\n result:", "<<" <> result <> ">>", "\n expected: ", "<<" <> expected <> ">>\n"], - Print[" * ", form, "(latex) [OK]"]];, + Print[" * ", key, " //", form, "(latex) [OK]"]];, {subtest, latex}] ]; (*MathML*) @@ -55,9 +55,9 @@ result = ToString[expr, MathMLForm, CharacterEncoding->"ASCII"]; expected = subtest[[2]]; If[result != subtest[[2]], - Print[" * ", form, "(mathml) [Failed]\n result:", + Print[" * ", key, " //", form, "(mathml) [Failed]\n result:", "<<" <> result <> ">>", "\n expected: ", "<<" <> expected <> ">>\n"], - Print[" * ", form, "(mathml) [OK]"]];, {subtest, mathml}]]; + Print[" * ", key, " //", form, "(mathml) [OK]"]];, {subtest, mathml}]]; , {tests, data} ]