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
|
using VQDR.Expression;
void
test_value_token () {
GLib.Test.add_func ("/VQDR/Expression/Token/Value/sanity", () => {
var ctx = new Context ();
if (ctx == null) {
GLib.Test.message ("Context was null.");
GLib.Test.fail ();
GLib.assert_not_reached ();
}
if (!(ctx.get_type ().is_a (typeof (Context)))) {
GLib.Test.message ("Context is not the right type.");
GLib.Test.fail ();
GLib.assert_not_reached ();
}
var v1 = new ConstantValueToken (13,37);
var v2 = new VariableValueToken ("my-val", 13);
Type t1 = v1.get_type ();
if (!(t1.is_a (typeof (ConstantValueToken)) &&
t1.is_a (typeof (ValueToken)) &&
t1.is_a (typeof (Token)))) {
GLib.Test.message ("The ConstastValueToken is not the corret type.");
GLib.Test.fail ();
GLib.assert_not_reached ();
}
Type t2 = v2.get_type ();
if (!((t2.is_a (typeof (VariableValueToken))) &&
(t2.is_a (typeof (ValueToken))) &&
(t2.is_a (typeof (Token))))) {
GLib.Test.message ("The VariableValueToken is not the corret type.");
GLib.Test.fail ();
GLib.assert_not_reached ();
}
});
GLib.Test.add_func ("/VQDR/Expression/token/Value/Factory", () => {
var v3 = ValueToken.init_value_token (13L, 37);
var v4 = ValueToken.init_value_token ("foo", 12);
Type t4 = v4.get_type ();
Type t3 = v3.get_type ();
if (!(t3.is_a (typeof (ConstantValueToken))) &&
t3.is_a (typeof (ValueToken)) &&
t3.is_a (typeof (Token))) {
GLib.Test.message ("The ConstastValueToken is not the corret type.");
GLib.Test.fail ();
GLib.assert_not_reached ();
}
if (!((t4.is_a (typeof (VariableValueToken))) &&
(t4.is_a (typeof (ValueToken))) &&
(t4.is_a (typeof (Token))))) {
GLib.Test.message ("The VariableValueToken is not the corret type.");
GLib.Test.fail ();
GLib.assert_not_reached ();
}
});
GLib.Test.add_func ("/VQDR/Expression/Token/Value/Constant", () => {
try {
int64 in_val = 12;
var ctx = new Context ();
var v1 = new ConstantValueToken (in_val, 1);
var root_t = new RootToken (v1);
root_t.evaluate (ctx);
int64 out_val = root_t.result_value.number;
if (out_val != in_val) {
GLib.Test.message (@"The values do not match: Expected $(in_val), " +
" got $(out_val).\n");
GLib.Test.fail ();
}
} catch (GLib.Error? e) {
GLib.Test.message (@"An error occured: domain: $(e.domain)," +
" message: $(e.message)");
GLib.Test.fail ();
}
});
GLib.Test.add_func ("/VQDR/Expression/Token/Value/ConstantLoop", () => {
try {
var ctx = new Context ();
for (int i = 0; i <= 10000; i++ ) {
var v1 = new ConstantValueToken (i, 1);
var root_t = new RootToken (v1);
root_t.evaluate (ctx);
int64 out_val = root_t.result_value.number;
if (out_val != i) {
GLib.Test.message ("The values do not match");
GLib.Test.fail ();
}
}
} catch (GLib.Error? e) {
GLib.Test.message ("An error occured: domain: %s, message: %s", e.domain.to_string (), e.message);
GLib.Test.fail ();
}
});
GLib.Test.add_func ("/VQDR/Expression/Token/Value/Varuable", () => {
try {
var ctx = new Context ();
ctx.set_value ("a", 0, 0, 13);
ctx.set_value ("not a", 0, 0, 37);
// Context variable santy check.
if ((ctx.get_value ("a").number != 13) || (ctx.get_value ("not a").number != 37)) {
GLib.Test.message ("The values do not match");
GLib.Test.fail ();
}
var v1 = new VariableValueToken ("a", 1);
var v2 = new VariableValueToken ("not a", 1);
print (v1.result_string + "\n");
print (v2.result_string + "\n");
} catch (GLib.Error? e) {
GLib.Test.message ("An error occured: domain: %s, message: %s", e.domain.to_string (), e.message);
GLib.Test.fail ();
}
});
}
|