@@ -992,8 +992,8 @@ public void testPairOfOperatorsWithIncompatiblePrecedence() throws Exception {
992992
993993 @ Test
994994 public void testOperatorAsFunctorWithUnsupportedArity () throws Exception {
995- assertEquals ("'+'(1, 2, 3)" , parseEd ("+(1,2,3)." ).next ().toString ());
996995 assertEquals ("':'(1, 2, 3)" , parseEd (":(1,2,3)." ).next ().toString ());
996+ assertEquals ("'+'(1, 2, 3)" , parseEd ("+(1,2,3)." ).next ().toString ());
997997 assertEquals ("':'(1, (2 , 3), 4)" , parseEd (":(1,(2,3),4)." ).next ().toString ());
998998 assertEquals ("':'(1)" , parseEd (":(1)." ).next ().toString ());
999999 }
@@ -1108,6 +1108,10 @@ public void testStandardTermOrder() {
11081108 @ Test
11091109 public void testConformity () {
11101110
1111+ assertEquals ("writeq(a - b)" , parseEd ("writeq(-((a,b)))." ).next ().toString ());
1112+ assertEquals ("writeq(- a ^ 2)" , parseEd ("writeq(-(a^2))." ).next ().toString ());
1113+ assertEquals ("writeq(- 1 ^ 2)" , parseEd ("writeq(-(1^2))." ).next ().toString ());
1114+ assertEquals ("writeq(- -1)" , parseEd ("writeq(-(-1))." ).next ().toString ());
11111115 assertEquals ("writeq('\\ e')" , parseEd ("writeq('\\ 033\\ ')." ).next ().toString ());
11121116
11131117 assertEquals ("writeq('a\\ n b')" , parseEd ("writeq('a\\ \n b'). % \" a\\ \\ \\ n b\" " ).next ().toString ());
@@ -1118,6 +1122,8 @@ public void testConformity() {
11181122 assertEquals ("writeq('\\ na')" , parseEd ("writeq('\\ \n a'). % \" \\ \\ \\ na\" " ).next ().toString ());
11191123 assertEquals ("writeq('\\ n')" , parseEd ("writeq('\\ \n '). % \" \\ \\ \\ n\" " ).next ().toString ());
11201124
1125+ assertThrows (PrologParserException .class , () -> parseEd ("writeq(//*.*/)." ).next ());
1126+ assertThrows (PrologParserException .class , () -> parseEd ("writeq(//*)." ).next ());
11211127 assertThrows (PrologParserException .class , () -> parseEd ("X = 0'\\ . ." ).next ());
11221128 assertThrows (PrologParserException .class , () -> parseEd ("X = 0'\\ ." ).next ());
11231129 assertThrows (PrologParserException .class , () -> parseEd ("'\\ \n ''." ).next ());
@@ -1135,12 +1141,12 @@ public void testConformity() {
11351141 assertThrows (PrologParserException .class , () -> parseEd ("writeq('\t '). % horiz. tab " ).next ());
11361142 assertThrows (PrologParserException .class , () -> parseEd ("writeq('\n ')." ).next ());
11371143
1144+ assertEquals ("writeq('*/')" , parseEd ("writeq('*/')." ).next ().toString ());
1145+ assertEquals ("writeq('/**')" , parseEd ("writeq('/**')." ).next ().toString ());
11381146 assertEquals ("writeq('\\ n')" , parseEd ("writeq('\\ n')." ).next ().toString ());
11391147 assertThrows (PrologParserException .class , () -> parseEd ("writeq('\\ 9\\ ')." ).next ());
11401148 assertEquals ("writeq('\\ 0\\ ')" , parseEd ("writeq('\\ 0\\ ')." ).next ().toString ());
11411149 assertEquals ("writeq('\\ a')" , parseEd ("writeq('\\ 7\\ ')." ).next ().toString ());
1142- assertEquals ("writeq('*/')" , parseEd ("writeq('*/')." ).next ().toString ());
1143- assertEquals ("writeq('/**')" , parseEd ("writeq('/**')." ).next ().toString ());
11441150 assertEquals ("writeq(a * (b + c))" , parseEd ("writeq(a*(b+c))." ).next ().toString ());
11451151 assertEquals ("writeq(f(;, '|', ';;'))" , parseEd ("writeq(f(;,'|',';;'))." ).next ().toString ());
11461152 assertEquals ("writeq('a\\ n b')" , parseEd ("writeq('a\\ \n b'). % \" a\\ \\ \\ n b\" " ).next ().toString ());
0 commit comments