Checkpoint

tests/prolog/logic/UnifyTest.kt

@@ -3,10 +3,10 @@ package prolog.logic
 import org.junit.jupiter.api.Assertions.*
 import org.junit.jupiter.api.Disabled
 import org.junit.jupiter.api.Test
+import prolog.ast.terms.Integer
 import prolog.ast.terms.Atom
 import prolog.ast.terms.Structure
 import prolog.ast.terms.Variable
-import prolog.builtins.equivalent
 
 /*
  * Based on: https://en.wikipedia.org/wiki/Unification_%28computer_science%29#Examples_of_syntactic_unification_of_first-order_terms
@@ -260,4 +260,25 @@ class UnifyTest {
 
         assertFalse(result.isPresent, "Atom with different arity should not unify")
     }
+
+    @Test
+    fun identical_integers_unify() {
+        val int1 = Integer(1)
+        val int2 = Integer(1)
+
+        val result = unify(int1, int2)
+
+        assertTrue(result.isPresent, "Identical integers should unify")
+        assertEquals(0, result.get().size, "No substitutions should be made")
+    }
+
+    @Test
+    fun different_integers_do_not_unify() {
+        val int1 = Integer(1)
+        val int2 = Integer(2)
+
+        val result = unify(int1, int2)
+
+        assertFalse(result.isPresent, "Different integers should not unify")
+    }
 }