fixed char code extraction

Author: raydac

src/main/java/com/igormaznitsa/prologparser/tokenizer/Tokenizer.java

@@ -789,12 +789,7 @@ state, getLastTokenLine(),
                       );
                     } else {
                       if (charCodeAsInt) {
-                        return this.tokenizerResultPool.find().setData(
-                            new PrologInt(chr),
-                            state,
-                            getLastTokenLine(),
-                            getLastTokenPos()
-                        );
+                        throw new PrologParserException("Char '\'' must be escaped in such case", this.prevLine, this.prevPos);
                       } else {
                         strBuffer.append(chr);
                       }

src/test/java/com/igormaznitsa/prologparser/IntegrationTest.java

@@ -131,7 +131,7 @@ public void testParseZeroSingleQuoteChar() {
     assertPrologInteger('\u1234', "0'\\u1234.");
     assertPrologInteger('\n', "0'\\n.");
     assertPrologInteger('\"', "0'\".");
-    assertPrologInteger('\'', "0'\'.");
+    assertPrologInteger('\'', "0'\\\'.");
     assertPrologInteger('`', "0'`.");
     checkWrongClauseReadingWithPPE("0'ab.", 4);
   }
@@ -1107,7 +1107,6 @@ public void testStandardTermOrder() {
    */
   @Test
   public void testConformity() {
-
     assertEquals("writeq(- - 1)", parseEd("writeq(-(-(1))).").next().toString());
     assertEquals("writeq(- - a)", parseEd("writeq(-(-a)).").next().toString());
     assertEquals("writeq(- - - a)", parseEd("writeq(-(-(-a))).").next().toString());
@@ -1170,7 +1169,7 @@ public void testConformity() {
     assertEquals("writeq(10 mod 2)", parseEd("writeq(0xamod 2).").next().toString());
 
 
-//    assertThrows(PrologParserException.class, () -> parseEd("integer(0'').").next());
+    assertThrows(PrologParserException.class, () -> parseEd("integer(0'').").next());
     assertThrows(PrologParserException.class, () -> parseEd("writeq('\\^J').").next());
     assertThrows(PrologParserException.class, () -> parseEd("writeq(00'a).").next());
     assertThrows(PrologParserException.class, () -> parseEd("writeq(00'+'1).").next());