6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-04-13 05:39:54 +00:00
Code Issues Projects Releases Wiki Activity

More tests

Browse Source
This commit is contained in:
Karol Stasiak 2021-12-15 15:53:49 +01:00
parent b1a2be5574
commit b5084cd180
2 changed files with 45 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
src/test/scala/millfork/test/SecondAssemblyOptimizationSuite.scala
View File

@ -146,26 +146,50 @@ class SecondAssemblyOptimizationSuite extends FunSuite with Matchers {
}
test("Bubblesort") {
EmuCrossPlatformBenchmarkRun(Cpu.Mos, Cpu.Z80)(
"""
|array sorttable [2540] @$C000
|
|void main() {
| byte t,i,n1,n2
| for t,25,downto,0{
| for i,0,to,25{
| n1 = sorttable[i]
| n2 = sorttable[i+1]
| if n1>n2 {
| sorttable[i] = n2
| sorttable[i+1] = n1
| }
| }
| }
|}
|
|""".stripMargin) { m =>
val size = 27
val random = new scala.util.Random
val inputData = IndexedSeq.fill(size)(random.nextInt(256))
val expected = inputData.sorted
EmuCrossPlatformBenchmarkRun(Cpu.Mos, Cpu.Z80, Cpu.Motorola6809)(
s"""
|array sorttable [$size] @$$C000 = [${inputData.mkString(",")}]
|
|void main() {
| byte t,i,n1,n2
| for t,${size - 2},downto,0{
| for i,0,to,${size - 2}{
| n1 = sorttable[i]
| n2 = sorttable[i+1]
| if n1>n2 {
| sorttable[i] = n2
| sorttable[i+1] = n1
| }
| }
| }
|}
|
|""".stripMargin) { m =>
(0 until size).map(i => m.readByte(0xc000 + i)) should equal(expected)
}
}
test("Store-load-operate") {
EmuCrossPlatformBenchmarkRun(Cpu.Mos, Cpu.Z80, Cpu.Motorola6809)(
"""
| byte output @$c000
| byte output2 @$c001
| noinline void f(byte a) {
| output = a
| output2 |= output
| }
| void main () {
| output2 = 5
| f($a)
| }
| byte ee() { return $ee }
""".stripMargin) { m =>
m.readByte(0xc000) should equal(0xa)
m.readByte(0xc001) should equal(0xf)
}
}
}

4
src/test/scala/millfork/test/SegmentSuite.scala
View File

@ -1,7 +1,7 @@
package millfork.test
import millfork.Cpu
import millfork.test.emu.EmuUnoptimizedCrossPlatformRun
import millfork.test.emu.EmuCrossPlatformBenchmarkRun
import org.scalatest.{FunSuite, Matchers}
/**
@ -39,7 +39,7 @@ class SegmentSuite extends FunSuite with Matchers {
| output6 = segment.default.heapstart
| }
""".stripMargin
EmuUnoptimizedCrossPlatformRun(Cpu.Mos, Cpu.Z80, Cpu.Motorola6809)(source) { m =>
EmuCrossPlatformBenchmarkRun(Cpu.Mos, Cpu.Z80, Cpu.Motorola6809)(source) { m =>
m.readByte(0xc000) should equal(source.count(_ == '+'))
m.readByte(0xc001) should equal(0)
m.readWord(0xc006) should equal(0x200)