-
Notifications
You must be signed in to change notification settings - Fork 0
/
test.lua
148 lines (115 loc) · 3.21 KB
/
test.lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
local cpu = require "cpu"
local instructions = require "instructions"
local json = require "json"
local bor, band, bxor, lshift, rshift =
bit.bor, bit.band, bit.bxor, bit.lshift, bit.rshift
local memory = { data = {} }
for i = 0, 0x10000 do
memory.data[i] = 0
end
function memory:get(addr)
return self.data[addr]
end
function memory:set(addr, value)
self.data[addr] = value
end
local testsuite = string.match(arg[1], "(.*)%.json") or arg[1]
local filepath = testsuite .. ".json"
print(filepath)
local file = io.open(filepath, "r")
local data = file:read "*all"
file:close()
local tests = json.decode(data)
instructions:init(cpu, memory)
local function run_test(test)
cpu:init(memory)
for _, v in ipairs(test.initial.ram) do
address, value = unpack(v)
address, value = tonumber(address), tonumber(value)
memory:set(address, value)
end
cpu.a = tonumber(test.initial.cpu.a)
cpu.f = tonumber(test.initial.cpu.f)
cpu.b = tonumber(test.initial.cpu.b)
cpu.c = tonumber(test.initial.cpu.c)
cpu.d = tonumber(test.initial.cpu.d)
cpu.e = tonumber(test.initial.cpu.e)
cpu.h = tonumber(test.initial.cpu.h)
cpu.l = tonumber(test.initial.cpu.l)
cpu.sp = tonumber(test.initial.cpu.sp)
cpu.pc = tonumber(test.initial.cpu.pc)
cpu:step()
local function assert_register(name)
local expected = tonumber(test.final.cpu[name])
local actual = band(cpu[name], 0xffff)
local message = [[
TEST FAILED
test: %s
register: %s
expected: 0x%04x
actual: 0x%04x
]]
assert(actual == expected, message:format(test.name, name, expected, actual))
end
local function assert_flag(offset, name)
local flags = tonumber(test.final.cpu.f)
local expected = band(flags, lshift(1, offset))
local actual = band(cpu.f, lshift(1, offset))
local message = [[
TEST FAILED
test: %s
flag: %s
expected: 0x%04x
actual: 0x%04x
]]
assert(actual == expected, message:format(test.name, name, expected, actual))
end
-- check registers
assert_register "a"
assert_register "b"
assert_register "c"
assert_register "d"
assert_register "e"
assert_register "h"
assert_register "l"
assert_register "sp"
assert_register "pc"
-- check flags
assert_flag(7, "zero")
assert_flag(6, "sub")
assert_flag(5, "half")
assert_flag(4, "carry")
-- check memory
for _, v in ipairs(test.final.ram) do
address, value = unpack(v)
address, value = tonumber(address), tonumber(value)
local actual = memory:get(address)
local message = [[
TEST FAILED
test: %s
address: 0x%04x
expected: 0x%04x
actual: 0x%04x
]]
assert(actual == value, message:format(test.name, address, value, actual))
end
end
local function run_tests(tests)
local start = os.clock()
local errors = 0
for i = 1, 10000 do
local test = tests[i]
local ok, err = pcall(run_test, test)
if not ok then
print(err, "at ", test.name)
errors = errors + 1
end
if errors >= 10 then
print "too many errors, stopping"
os.exit(1)
end
end
print(string.format("Passing: %d/%d", 10000 - errors, 10000))
print(string.format("elapsed time: %.2f\n", os.clock() - start))
end
run_tests(tests)