Basic test suite complete

lua/autorun/cpu_load.lua

@@ -17,6 +17,7 @@ AddCSLuaFile("wire/zvm/zvm_features.lua")
 AddCSLuaFile("wire/zvm/zvm_opcodes.lua")
 AddCSLuaFile("wire/zvm/zvm_data.lua")
 
+
 AddCSLuaFile("wire/cpulib.lua")
 include("wire/cpulib.lua")
 
@@ -30,4 +31,7 @@ AddCSLuaFile("wire/cpu_default_data_files.lua")
 
 if CLIENT then
 	include("wire/client/hlzasm/hc_compiler.lua")
-end
+end
+
+AddCSLuaFile("wire/zvm/zvm_tests.lua")
+include("wire/zvm/zvm_tests.lua")

lua/wire/cpulib.lua

@@ -4,7 +4,7 @@
 local INVALID_BREAKPOINT_IP = 2e7
 
 CPULib = CPULib or {}
-if CLIENT then
+if CLIENT or TESTING then
   -- Sourcecode available as compiled binary
   CPULib.Source = ""
   -- Compiled binary

lua/wire/zvm/tests/example.lua

@@ -0,0 +1,28 @@
+CPUTest = {}
+
+function CPUTest:RunTest(VM,TestSuite)
+	CPUTest.VM = VM
+	CPUTest.TestSuite = TestSuite
+	TestSuite.Compile("x: INC R0 JMP x",nil,CPUTest.RunCPU,CPUTest.CompileError)
+end
+
+function CPUTest.RunCPU()
+	CPUTest.TestSuite.FlashData(CPUTest.VM,CPUTest.TestSuite.GetCompileBuffer()) -- upload compiled to virtual cpu
+	CPUTest.VM.Clk = 1
+	for i=0,4096 do
+		CPUTest.VM:RunStep()
+	end
+	-- False = no error, True = error
+	if CPUTest.VM.R0 == 4096 then
+		CPUTest.TestSuite.FinishTest(false)
+	else
+		print("R0 is not 4096! R0 is "..tostring(CPUTest.VM.R0))
+		CPUTest.TestSuite.FinishTest(true)
+	end
+end
+
+function CPUTest.CompileError()
+	print('hit a compile time error')
+	CPUTest.TestSuite.FinishTest(true)
+end
+

lua/wire/zvm/tests/intentional_compile_error.lua

@@ -0,0 +1,17 @@
+CPUTest = {}
+
+function CPUTest:RunTest(VM,TestSuite)
+	CPUTest.VM = VM
+	CPUTest.TestSuite = TestSuite
+	TestSuite.Compile("MOV R0,",nil,CPUTest.RunCPU,CPUTest.CompileError)
+end
+
+function CPUTest.RunCPU()
+	print('Compiler did not error when it should have!')
+	CPUTest.TestSuite.FinishTest(true)
+end
+
+function CPUTest.CompileError()
+	CPUTest.TestSuite.FinishTest(false)
+end
+

lua/wire/zvm/tests/intentional_failed_test.lua

@@ -0,0 +1,28 @@
+CPUTest = {}
+
+function CPUTest:RunTest(VM,TestSuite)
+	CPUTest.VM = VM
+	CPUTest.TestSuite = TestSuite
+	TestSuite.Compile("x: INC R0 JMP x",nil,CPUTest.RunCPU,CPUTest.CompileError)
+end
+
+function CPUTest.RunCPU()
+	CPUTest.TestSuite.FlashData(CPUTest.VM,CPUTest.TestSuite.GetCompileBuffer()) -- upload compiled to virtual cpu
+	CPUTest.VM.Clk = 1
+	for i=0,4096 do
+		CPUTest.VM:RunStep()
+	end
+	-- False = no error, True = error
+	if CPUTest.VM.R0 == 4095 then
+		CPUTest.TestSuite.FinishTest(false)
+	else
+		print("R0 is not 4095! R0 is "..tostring(CPUTest.VM.R0))
+		CPUTest.TestSuite.FinishTest(true)
+	end
+end
+
+function CPUTest.CompileError()
+	print('hit a compile time error')
+	CPUTest.TestSuite.FinishTest(true)
+end
+

lua/wire/zvm/tests/virtualiobus.lua

@@ -0,0 +1,41 @@
+CPUTest = {}
+
+function CPUTest:RunTest(VM,TestSuite)
+	CPUTest.VM = VM
+	CPUTest.TestSuite = TestSuite
+	TestSuite.Compile("MOV PORT0,1 MOV R0,PORT0",nil,CPUTest.RunCPU,CPUTest.CompileError)
+end
+
+function CPUTest.RunCPU()
+	CPUTest.TestSuite.FlashData(CPUTest.VM,CPUTest.TestSuite.GetCompileBuffer()) -- upload compiled to virtual cpu
+	local IOBus = CPUTest.TestSuite.CreateVirtualIOBus(4) -- get external IO device of size 4
+	CPUTest.TestSuite.Initialize(CPUTest.VM,nil,IOBus) -- reinitialize the CPU with the IOBus
+	IOBus.InPorts[0] = 24
+	CPUTest.VM.Clk = 1
+	for i=0,16 do
+		CPUTest.VM:RunStep()
+	end
+
+	-- False = no error, True = error
+	if IOBus:ReadCell(0) == 24 then
+		if IOBus.OutPorts[0] == 1 then
+			if CPUTest.VM.R0 == 24 then
+				CPUTest.TestSuite.FinishTest(false)
+			else
+				print("CPU failed to read input port! R0 = "..CPUTest.VM.R0)
+				CPUTest.TestSuite.FinishTest(true)
+			end
+		else
+			print("CPU failed to write to output port! Port0 = "..IOBus.OutPorts[0])
+		end
+	else
+		print("CPU wrote to input ports! "..tostring(IOBus:ReadCell(0)))
+		CPUTest.TestSuite.FinishTest(true)
+	end
+end
+
+function CPUTest.CompileError()
+	print('hit a compile time error')
+	CPUTest.TestSuite.FinishTest(true)
+end
+

lua/wire/zvm/tests/virtualmembus.lua

@@ -0,0 +1,36 @@
+CPUTest = {}
+
+function CPUTest:RunTest(VM,TestSuite)
+	CPUTest.VM = VM
+	CPUTest.TestSuite = TestSuite
+	TestSuite.Compile("CPUGET R0,43 MOV [R0],1 MOV R1,[R0]",nil,CPUTest.RunCPU,CPUTest.CompileError)
+end
+
+function CPUTest.RunCPU()
+	CPUTest.TestSuite.FlashData(CPUTest.VM,CPUTest.TestSuite.GetCompileBuffer()) -- upload compiled to virtual cpu
+	local bus = CPUTest.TestSuite.CreateVirtualMemBus(4) -- get external ram device of size 4
+	CPUTest.TestSuite.Initialize(CPUTest.VM,bus,nil) -- reinitialize the CPU with the membus
+	CPUTest.VM.Clk = 1
+	for i=0,16 do
+		CPUTest.VM:RunStep()
+	end
+
+	-- False = no error, True = error
+	if bus:ReadCell(0) == 1 then
+		if CPUTest.VM.R1 == 1 then
+			CPUTest.TestSuite.FinishTest(false)
+		else
+			print('CPU failed to read the bus! R1 was '..tostring(CPUTest.VM.R1))
+			CPUTest.TestSuite.FinishTest(true)
+		end
+	else
+		print("CPU failed to write to bus! "..tostring(bus:ReadCell(0)))
+		CPUTest.TestSuite.FinishTest(true)
+	end
+end
+
+function CPUTest.CompileError()
+	print('hit a compile time error')
+	CPUTest.TestSuite.FinishTest(true)
+end
+