Checkpoint
This commit is contained in:
parent
438af6c053
commit
6eca9dfcb7
GPG key ID:
38297DE43F75FFE2
25 changed files with 309 additions and 113 deletions
|
|
@ -2,14 +2,24 @@ package prolog
|
|||
|
||||
import org.junit.jupiter.api.Assertions.assertFalse
|
||||
import org.junit.jupiter.api.Assertions.assertTrue
|
||||
import org.junit.jupiter.api.BeforeEach
|
||||
import org.junit.jupiter.api.Test
|
||||
import prolog.builtins.Conjunction
|
||||
import prolog.builtins.Disjunction
|
||||
import prolog.components.Program
|
||||
import prolog.components.expressions.Fact
|
||||
import prolog.components.expressions.Rule
|
||||
import prolog.components.terms.Atom
|
||||
import prolog.components.terms.Structure
|
||||
|
||||
class EvaluationTest {
|
||||
@BeforeEach
|
||||
fun setUp() {
|
||||
Program.clear()
|
||||
}
|
||||
|
||||
@Test
|
||||
fun successful_single_clause_program_query() {
|
||||
fun successful_single_fact_query() {
|
||||
val fact = Fact(Atom("a"))
|
||||
Program.load(listOf(fact))
|
||||
|
||||
|
|
@ -17,10 +27,137 @@ class EvaluationTest {
|
|||
}
|
||||
|
||||
@Test
|
||||
fun failing_single_clause_program_query() {
|
||||
fun failing_single_fact_query() {
|
||||
val fact = Fact(Atom("a"))
|
||||
Program.load(listOf(fact))
|
||||
|
||||
assertFalse(Program.query(Atom("b")))
|
||||
val result = Program.query(Atom("b"))
|
||||
|
||||
assertFalse(result)
|
||||
}
|
||||
|
||||
@Test
|
||||
fun multiple_fact_query() {
|
||||
val fact1 = Fact(Atom("a"))
|
||||
val fact2 = Fact(Atom("b"))
|
||||
Program.load(listOf(fact1, fact2))
|
||||
|
||||
assertTrue(Program.query(Atom("a")))
|
||||
assertTrue(Program.query(Atom("b")))
|
||||
assertFalse(Program.query(Atom("c")))
|
||||
}
|
||||
|
||||
@Test
|
||||
fun single_compound_query() {
|
||||
val structure = Structure(Atom("f"), listOf(Atom("a"), Atom("b")))
|
||||
Program.load(listOf(Fact(structure)))
|
||||
|
||||
assertTrue(Program.query(Structure(Atom("f"), listOf(Atom("a"), Atom("b")))))
|
||||
}
|
||||
|
||||
@Test
|
||||
fun multiple_compound_query() {
|
||||
val structure1 = Structure(Atom("f"), listOf(Atom("a"), Atom("b")))
|
||||
val structure2 = Structure(Atom("g"), listOf(Atom("c"), Atom("d")))
|
||||
Program.load(listOf(Fact(structure1), Fact(structure2)))
|
||||
|
||||
assertTrue(Program.query(Structure(Atom("f"), listOf(Atom("a"), Atom("b")))))
|
||||
assertTrue(Program.query(Structure(Atom("g"), listOf(Atom("c"), Atom("d")))))
|
||||
assertFalse(Program.query(Structure(Atom("h"), listOf(Atom("e")))))
|
||||
}
|
||||
|
||||
/**
|
||||
* John and Jane are Jimmy's parents.
|
||||
*/
|
||||
@Test
|
||||
fun parents_prolog_way() {
|
||||
val father = Fact(Structure(Atom("father"), listOf(Atom("john"), Atom("jimmy"))))
|
||||
val mother = Fact(Structure(Atom("mother"), listOf(Atom("jane"), Atom("jimmy"))))
|
||||
|
||||
val parent1 = Rule(
|
||||
Structure(Atom("parent"), listOf(Atom("X"), Atom("Y"))),
|
||||
/* :- */
|
||||
Structure(Atom("father"), listOf(Atom("X"), Atom("Y")))
|
||||
)
|
||||
val parent2 = Rule(
|
||||
Structure(Atom("parent"), listOf(Atom("X"), Atom("Y"))),
|
||||
/* :- */
|
||||
Structure(Atom("mother"), listOf(Atom("X"), Atom("Y")))
|
||||
)
|
||||
|
||||
Program.load(listOf(father, mother, parent1, parent2))
|
||||
|
||||
assertTrue(Program.query(Structure(Atom("parent"), listOf(Atom("john"), Atom("jimmy")))))
|
||||
assertTrue(Program.query(Structure(Atom("parent"), listOf(Atom("jane"), Atom("jimmy")))))
|
||||
}
|
||||
|
||||
/**
|
||||
* John and Jane are Jimmy's parents.
|
||||
*/
|
||||
@Test
|
||||
fun parents_disjunction_way() {
|
||||
val father = Fact(Structure(Atom("father"), listOf(Atom("john"), Atom("jimmy"))))
|
||||
val mother = Fact(Structure(Atom("mother"), listOf(Atom("jane"), Atom("jimmy"))))
|
||||
|
||||
val parent = Rule(
|
||||
Structure(Atom("parent"), listOf(Atom("X"), Atom("Y"))),
|
||||
/* :- */ Disjunction(
|
||||
Structure(Atom("father"), listOf(Atom("X"), Atom("Y"))),
|
||||
/* ; */
|
||||
Structure(Atom("mother"), listOf(Atom("X"), Atom("Y")))
|
||||
))
|
||||
|
||||
Program.load(listOf(father, mother, parent))
|
||||
|
||||
assertTrue(Program.query(Structure(Atom("parent"), listOf(Atom("john"), Atom("jimmy")))))
|
||||
assertTrue(Program.query(Structure(Atom("parent"), listOf(Atom("jane"), Atom("jimmy")))))
|
||||
|
||||
assertFalse(Program.query(Structure(Atom("parent"), listOf(Atom("john"), Atom("jane")))))
|
||||
assertFalse(Program.query(Structure(Atom("father"), listOf(Atom("john"), Atom("jane")))))
|
||||
}
|
||||
|
||||
/**
|
||||
* John is Jimmy's father.
|
||||
* Jane is Jimmy's mother.
|
||||
*/
|
||||
@Test
|
||||
fun father_or_mother() {
|
||||
val male = Fact(Structure(Atom("male"), listOf(Atom("john"))))
|
||||
val female = Fact(Structure(Atom("female"), listOf(Atom("jane"))))
|
||||
|
||||
val parent1 = Fact(Structure(Atom("parent"), listOf(Atom("john"), Atom("jimmy"))))
|
||||
val parent2 = Fact(Structure(Atom("parent"), listOf(Atom("jane"), Atom("jimmy"))))
|
||||
|
||||
val isFather = Rule(
|
||||
Structure(Atom("isFather"), listOf(Atom("X"), Atom("Y"))),
|
||||
Conjunction(
|
||||
Structure(Atom("parent"), listOf(Atom("X"), Atom("Y"))),
|
||||
Structure(Atom("male"), listOf(Atom("X")))
|
||||
)
|
||||
)
|
||||
val isMother = Rule(
|
||||
Structure(Atom("isMother"), listOf(Atom("X"), Atom("Y"))),
|
||||
Conjunction(
|
||||
Structure(Atom("parent"), listOf(Atom("X"), Atom("Y"))),
|
||||
Structure(Atom("female"), listOf(Atom("X")))
|
||||
)
|
||||
)
|
||||
|
||||
Program.load(listOf(male, female, parent1, parent2, isFather, isMother))
|
||||
|
||||
val result1 = Program.query(Structure(Atom("isFather"), listOf(Atom("john"), Atom("jimmy"))))
|
||||
assertTrue(result1)
|
||||
|
||||
val result2 = Program.query(Structure(Atom("isMother"), listOf(Atom("jane"), Atom("jimmy"))))
|
||||
assertTrue(result2)
|
||||
|
||||
val result3 = Program.query(Structure(Atom("isFather"), listOf(Atom("jane"), Atom("jimmy"))))
|
||||
assertFalse(result3)
|
||||
|
||||
val result4 = Program.query(Structure(Atom("isMother"), listOf(Atom("john"), Atom("jimmy"))))
|
||||
assertFalse(result4)
|
||||
|
||||
val result5 = Program.query(Structure(Atom("parent"), listOf(Atom("trudy"), Atom("jimmy"))))
|
||||
assertFalse(result5)
|
||||
}
|
||||
}
|
||||
Reference in a new issue