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
|
package vm_test
import (
"jinx/pkg/lang/vm"
"jinx/pkg/lang/vm/code"
"jinx/pkg/lang/vm/text"
"strings"
"testing"
"github.com/stretchr/testify/require"
)
func TestSimpleSub(t *testing.T) {
src := `
push_int 1
push_int 2
sub
`
test(t, src, "1")
}
func TestGetLocal(t *testing.T) {
src := `
push_int 404
push_int 1
push_int 2
add
get_local 1
`
test(t, src, "3")
}
func TestFibonacci(t *testing.T) {
src := `
# Array stored in local 0
push_array
push_int 1
get_local 0
temp_arr_push
push_int 1
get_local 0
temp_arr_push
@fib_loop:
push_int 1
get_local 0
temp_arr_len
# Index of the last element stored in local 1
sub
# This is the last element
get_local 1
get_local 0
# Store the last element in local 2
index
push_int 1
get_local 1
# Index of the second last element stored in local 2
sub
get_local 0
# Store the second last element in local 3
index
add
get_local 0
temp_arr_push
# Drop local 1, which was the length of the array, which we no longer need
drop
push_int 10
get_local 0
temp_arr_len
# Jump if the array is larger than 10.
lte
jt @fib_loop
`
test(t, src, "[1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89]")
}
func TestFunction(t *testing.T) {
src := `
push_int 44
push_function @subtract_two
call
halt
@subtract_two:
shift 1
push_int 2
get_local 0
sub
ret
`
test(t, src, "42")
}
func test(t *testing.T, src string, expected string) {
bc := compile(t, src)
vm := vm.New(&bc)
err := vm.Run()
require.NoError(t, err)
res, err := vm.GetResult()
require.NoError(t, err)
require.Equal(t, expected, res)
}
func compile(t *testing.T, src string) code.Code {
comp := text.NewCompiler(strings.NewReader(src))
bc, err := comp.Compile()
require.NoErrorf(t, err, "compilation from text format failed: %s", err)
return bc
}
|
