mirror of
https://github.com/KarolS/millfork.git
synced 2024-12-29 02:31:45 +00:00
Some tests that would have prevented few latest commits
This commit is contained in:
parent
59882cf765
commit
78070c115f
@ -310,4 +310,22 @@ class BasicSymonTest extends FunSuite with Matchers {
|
||||
| }
|
||||
|""".stripMargin){_=>}
|
||||
}
|
||||
|
||||
test("Lookup") {
|
||||
EmuUnoptimizedRun(
|
||||
"""
|
||||
|noinline byte f() = 1
|
||||
|void g() @$5 extern
|
||||
|alias h = f
|
||||
|alias i = g
|
||||
|
|
||||
|void main() {
|
||||
| if f() != 1 {
|
||||
| g()
|
||||
| h()
|
||||
| i()
|
||||
| }
|
||||
|}
|
||||
|""".stripMargin)
|
||||
}
|
||||
}
|
||||
|
@ -1,7 +1,7 @@
|
||||
package millfork.test
|
||||
|
||||
import millfork.Cpu
|
||||
import millfork.test.emu.{EmuBenchmarkRun, EmuCrossPlatformBenchmarkRun}
|
||||
import millfork.test.emu.{EmuBenchmarkRun, EmuCrossPlatformBenchmarkRun, EmuUnoptimizedRun, ShouldNotCompile}
|
||||
import org.scalatest.{FunSuite, Matchers}
|
||||
|
||||
/**
|
||||
@ -9,6 +9,24 @@ import org.scalatest.{FunSuite, Matchers}
|
||||
*/
|
||||
class LongTest extends FunSuite with Matchers {
|
||||
|
||||
test("Long constants") {
|
||||
EmuUnoptimizedRun(
|
||||
"""
|
||||
|const long x1 = 0
|
||||
|const long x2 = 3
|
||||
|const long x3 = $ffffffff
|
||||
|const int24 x4 = 0
|
||||
|const int24 x5 = 3
|
||||
|const int24 x6 = $ffffff
|
||||
|void main() {}
|
||||
|""".stripMargin)
|
||||
ShouldNotCompile(
|
||||
"""
|
||||
|const int24 x1 = $ffffffff
|
||||
|void main() {}
|
||||
|""".stripMargin)
|
||||
}
|
||||
|
||||
test("Long assignment") {
|
||||
EmuCrossPlatformBenchmarkRun(Cpu.Mos, Cpu.Z80, Cpu.Intel8080, Cpu.Sharp, Cpu.Intel8086)(
|
||||
"""
|
||||
|
Loading…
Reference in New Issue
Block a user