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
|
utils = require "utils"
utils.StartRun("Unit tests")
---
-- We push three elements and we sum them up. We expect a proper sum value
-- stored at $90, the items on $040{0, 1, 2} and the List pointers at the last
-- position.
utils.MemTest("@test_list_sum", {
{0x60, "03"}, {0x62, "03"}, -- List::{ptr, last} should be at the very end (one past the last written).
{0x90, "07"}, -- We pushed three elements: 2, 4, 1; and the sum is left in 0x90.
{0x400, "02"}, {0x401, "04"}, {0x402, "01"} -- The three elements pushed by this test.
})
---
-- We initialize an empty list and we try to call `get` with no elements. The
-- pointers should not move and the test function should set a `1` on $90 if
-- `get` set $FF to `y` (which is what we want).
utils.MemTest("@test_list_empty_get", {
{0x60, "00"}, {0x62, "00"}, -- List::{ptr, last} did not advance.
{0x90, "01"} -- $FF was simply returned.
})
---
-- We initialize a large list ($200-sized) with the 8-bit index as a value
-- (hence 0-$FF twice). In $90-$91 we leave the sum of all the values.
utils.MemTest("@test_large_list", {
{0x90, "00"}, {0x91, "FF"} -- (0..255) * 2 = 65280, which is 0xFF00 in hexadecimal.
})
---
-- We run the same code of `@test_list_sum` so to get a new three-sized array,
-- but then we overwrite the contents. This test makes sure that perform the sum
-- again gives us a new value and, hence, the previous values were actually
-- overwritten by `List::set`.
utils.MemTest("@test_list_set", {
{0x60, "03"}, {0x62, "03"}, -- List::{ptr, last} should be at the very end (one past the last written).
{0x90, "0A"}, -- We overwrote the three elements: 3, 5, 2; and the sum is left in 0x90.
{0x400, "03"}, {0x401, "05"}, {0x402, "02"} -- The three elements pushed by this test.
})
---
-- We initialize an empty list and we try to call `set` with no elements. The
-- pointers should not move and the test function should set a `1` on $90 if
-- `get` set $FF to `y` (which is what we want).
utils.MemTest("@test_list_empty_set", {
{0x60, "00"}, {0x62, "00"}, -- List::{ptr, last} did not advance.
{0x90, "01"} -- $FF was simply returned.
})
---
-- We initialize a list with two elements, and then we try to call `List::set`
-- three times. The first two writes work, the third not.
utils.MemTest("@test_list_overflow", {
{0x60, "02"}, {0x62, "02"}, -- List::{ptr, last} should be at the very end (one past the last written).
{0x90, "00"}, {0x91, "00"}, {0x92, "FF"}, -- We overwrote the three elements: 3, 5, 2; and the sum is left in 0x90.
{0x400, "02"}, {0x401, "04"}, {0x402, "00"} -- The three elements pushed by this test.
})
utils.EndRun()
|
