import io.kotest.core.spec.style.FunSpec import io.kotest.matchers.ints.shouldBeGreaterThan import io.kotest.matchers.shouldBe import prog8.code.core.CbmPrgLauncherType import prog8.code.core.CompilationOptions import prog8.code.core.OutputType import prog8.code.core.ZeropageType import prog8.code.target.Cx16Target import prog8.intermediate.* import kotlin.io.path.* class TestIRFileInOut: FunSpec({ test("test IR writer") { val target = Cx16Target() val tempdir = Path(System.getProperty("java.io.tmpdir")) val options = CompilationOptions( OutputType.RAW, CbmPrgLauncherType.NONE, ZeropageType.DONTUSE, emptyList(), CompilationOptions.AllZeropageAllowed, floats = false, noSysInit = true, compTarget = target, loadAddress = target.machine.PROGRAM_LOAD_ADDRESS, memtopAddress = 0xffffu, outputDir = tempdir ) val program = IRProgram("unittest-irwriter", IRSymbolTable(), options, target) val writer = IRFileWriter(program, null) val generatedFile = writer.write() val lines = generatedFile.readLines() lines[0] shouldBe "" lines[1] shouldBe "" lines.last() shouldBe "" generatedFile.deleteExisting() lines.size shouldBeGreaterThan 20 } test("test IR reader") { val source=""" compTarget=virtual output=PRG launcher=BASIC zeropage=KERNALSAFE loadAddress=$0000 uword sys.bssvar zp=DONTCARE align=0 uword sys.wait.jiffies=10 zp=DONTCARE align=0 ubyte[3] sys.emptystring=0,0,0 zp=DONTCARE align=0 @uword cx16.r0=65282 load.b r1,42 return uword sys.wait.jiffies loadm.w r0,sys.wait.jiffies return """ val tempfile = createTempFile(suffix = ".p8ir") tempfile.writeText(source) val program = IRFileReader().read(tempfile) tempfile.deleteExisting() program.name shouldBe "test-ir-reader" program.blocks.size shouldBe 2 program.st.allVariables().count() shouldBe 3 val var1 = program.st.lookup("sys.wait.jiffies") as IRStStaticVariable val var2 = program.st.lookup("sys.bssvar") as IRStStaticVariable val var3 = program.st.lookup("sys.emptystring") as IRStStaticVariable var1.uninitialized shouldBe false var2.uninitialized shouldBe true var3.uninitialized shouldBe true } })