2022-03-30 19:44:48 +00:00
|
|
|
import io.kotest.assertions.throwables.shouldThrow
|
|
|
|
import io.kotest.core.spec.style.FunSpec
|
|
|
|
import io.kotest.matchers.shouldBe
|
|
|
|
import io.kotest.matchers.shouldNotBe
|
2022-08-27 11:06:44 +00:00
|
|
|
import prog8.intermediate.*
|
2022-03-30 19:44:48 +00:00
|
|
|
|
|
|
|
|
|
|
|
class TestInstructions: FunSpec({
|
|
|
|
|
|
|
|
test("simple") {
|
|
|
|
val ins = Instruction(Opcode.NOP)
|
|
|
|
ins.opcode shouldBe Opcode.NOP
|
|
|
|
ins.type shouldBe null
|
|
|
|
ins.reg1 shouldBe null
|
|
|
|
ins.reg2 shouldBe null
|
|
|
|
ins.value shouldBe null
|
2022-05-18 20:15:42 +00:00
|
|
|
ins.labelSymbol shouldBe null
|
2022-08-07 15:43:40 +00:00
|
|
|
ins.reg1direction shouldBe OperandDirection.INPUT
|
|
|
|
ins.fpReg1direction shouldBe OperandDirection.INPUT
|
2022-03-30 19:44:48 +00:00
|
|
|
ins.toString() shouldBe "nop"
|
|
|
|
}
|
|
|
|
|
|
|
|
test("with value") {
|
|
|
|
val ins = Instruction(Opcode.BZ, VmDataType.BYTE, reg1=42, value = 9999)
|
|
|
|
ins.opcode shouldBe Opcode.BZ
|
|
|
|
ins.type shouldBe VmDataType.BYTE
|
|
|
|
ins.reg1 shouldBe 42
|
|
|
|
ins.reg2 shouldBe null
|
|
|
|
ins.value shouldBe 9999
|
2022-05-18 20:15:42 +00:00
|
|
|
ins.labelSymbol shouldBe null
|
2022-08-07 15:43:40 +00:00
|
|
|
ins.reg1direction shouldBe OperandDirection.INPUT
|
|
|
|
ins.fpReg1direction shouldBe OperandDirection.INPUT
|
2022-03-30 19:44:48 +00:00
|
|
|
ins.toString() shouldBe "bz.b r42,9999"
|
|
|
|
}
|
|
|
|
|
|
|
|
test("with label") {
|
2022-05-18 20:15:42 +00:00
|
|
|
val ins = Instruction(Opcode.BZ, VmDataType.WORD, reg1=11, labelSymbol = listOf("a","b","c"))
|
2022-03-30 19:44:48 +00:00
|
|
|
ins.opcode shouldBe Opcode.BZ
|
|
|
|
ins.type shouldBe VmDataType.WORD
|
|
|
|
ins.reg1 shouldBe 11
|
2022-04-10 13:09:12 +00:00
|
|
|
ins.reg2 shouldBe null
|
2022-03-30 19:44:48 +00:00
|
|
|
ins.value shouldBe null
|
2022-05-18 20:15:42 +00:00
|
|
|
ins.labelSymbol shouldBe listOf("a","b","c")
|
2022-08-07 15:43:40 +00:00
|
|
|
ins.reg1direction shouldBe OperandDirection.INPUT
|
|
|
|
ins.fpReg1direction shouldBe OperandDirection.INPUT
|
2022-04-10 13:09:12 +00:00
|
|
|
ins.toString() shouldBe "bz.w r11,_a.b.c"
|
2022-03-30 19:44:48 +00:00
|
|
|
}
|
|
|
|
|
2022-08-07 15:43:40 +00:00
|
|
|
test("with output registers") {
|
|
|
|
val ins = Instruction(Opcode.ADDR, VmDataType.WORD, reg1=11, reg2=22)
|
|
|
|
ins.opcode shouldBe Opcode.ADDR
|
|
|
|
ins.type shouldBe VmDataType.WORD
|
|
|
|
ins.reg1 shouldBe 11
|
|
|
|
ins.reg2 shouldBe 22
|
|
|
|
ins.value shouldBe null
|
|
|
|
ins.labelSymbol shouldBe null
|
|
|
|
ins.reg1direction shouldBe OperandDirection.INOUT
|
|
|
|
ins.fpReg1direction shouldBe OperandDirection.INPUT
|
|
|
|
ins.toString() shouldBe "addr.w r11,r22"
|
|
|
|
|
|
|
|
val ins2 = Instruction(Opcode.SQRT, VmDataType.BYTE, reg1=11, reg2=22)
|
|
|
|
ins2.opcode shouldBe Opcode.SQRT
|
|
|
|
ins2.type shouldBe VmDataType.BYTE
|
|
|
|
ins2.reg1 shouldBe 11
|
|
|
|
ins2.reg2 shouldBe 22
|
|
|
|
ins2.value shouldBe null
|
|
|
|
ins2.labelSymbol shouldBe null
|
|
|
|
ins2.reg1direction shouldBe OperandDirection.OUTPUT
|
|
|
|
ins2.fpReg1direction shouldBe OperandDirection.INPUT
|
|
|
|
ins2.toString() shouldBe "sqrt.b r11,r22"
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2022-03-30 19:44:48 +00:00
|
|
|
test("missing type should fail") {
|
|
|
|
shouldThrow<IllegalArgumentException> {
|
2022-03-30 21:40:39 +00:00
|
|
|
Instruction(Opcode.BZ, reg1=42, value=9999)
|
2022-03-30 19:44:48 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
test("missing registers should fail") {
|
|
|
|
shouldThrow<IllegalArgumentException> {
|
2022-03-30 21:40:39 +00:00
|
|
|
Instruction(Opcode.BZ, VmDataType.BYTE, value=9999)
|
2022-03-30 19:44:48 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
test("missing value should fail") {
|
|
|
|
shouldThrow<IllegalArgumentException> {
|
2022-03-30 21:40:39 +00:00
|
|
|
Instruction(Opcode.BZ, VmDataType.BYTE, reg1=42)
|
2022-03-30 19:44:48 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
test("all instructionformats") {
|
|
|
|
Opcode.values().forEach {
|
|
|
|
instructionFormats[it] shouldNotBe null
|
|
|
|
}
|
|
|
|
}
|
|
|
|
})
|