Checkpoint

tests/parser/grammars/LogicGrammarTests.kt

@@ -133,6 +133,21 @@ class LogicGrammarTests {
         assertEquals("invited/2", l2.functor, "Expected functor 'invited/2'")
     }
 
+    @Test
+    fun `parse check_identical(X, Y)`() {
+        var input = "check_identical(X, Y) :- X == Y."
+
+        assertDoesNotThrow {
+            val result = parser.parseToEnd(input)
+        }
+
+        input = "check_identical(X, Y) :- X = Y, !, write('X == Y succeeded'), nl."
+
+        assertDoesNotThrow {
+            val result = parser.parseToEnd(input)
+        }
+    }
+
     @Test
     fun `parse constraints`() {
         val input = ":- a."