BadVPN – Blame information for rev 1
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | process main { |
2 | var(@identity("Foo")) x; |
||
3 | val_equal(x, "Foo") a; |
||
4 | assert(a); |
||
5 | |||
6 | |||
7 | var(@if("true", "T", "F")) x; |
||
8 | val_equal(x, "T") a; |
||
9 | assert(a); |
||
10 | |||
11 | var(@if("ntrue", "T", "F")) x; |
||
12 | val_equal(x, "F") a; |
||
13 | assert(a); |
||
14 | |||
15 | |||
16 | var(@bool("ntrue")) x; |
||
17 | assert_false(x); |
||
18 | |||
19 | var(@bool("true")) x; |
||
20 | assert(x); |
||
21 | |||
22 | |||
23 | var(@not("ntrue")) x; |
||
24 | assert(x); |
||
25 | |||
26 | var(@not("true")) x; |
||
27 | assert_false(x); |
||
28 | |||
29 | |||
30 | |||
31 | var(@and("ntrue")) x; |
||
32 | assert_false(x); |
||
33 | |||
34 | var(@and("true")) x; |
||
35 | assert(x); |
||
36 | |||
37 | var(@and("ntrue", "ntrue")) x; |
||
38 | assert_false(x); |
||
39 | |||
40 | var(@and("ntrue", "true")) x; |
||
41 | assert_false(x); |
||
42 | |||
43 | var(@and("true", "ntrue")) x; |
||
44 | assert_false(x); |
||
45 | |||
46 | var(@and("true", "true")) x; |
||
47 | assert(x); |
||
48 | |||
49 | |||
50 | var(@or("ntrue")) x; |
||
51 | assert_false(x); |
||
52 | |||
53 | var(@or("true")) x; |
||
54 | assert(x); |
||
55 | |||
56 | var(@or("ntrue", "ntrue")) x; |
||
57 | assert_false(x); |
||
58 | |||
59 | var(@or("ntrue", "true")) x; |
||
60 | assert(x); |
||
61 | |||
62 | var(@or("true", "ntrue")) x; |
||
63 | assert(x); |
||
64 | |||
65 | var(@or("true", "true")) x; |
||
66 | assert(x); |
||
67 | |||
68 | |||
69 | var(@imp("ntrue", "ntrue")) x; |
||
70 | assert(x); |
||
71 | |||
72 | var(@imp("ntrue", "true")) x; |
||
73 | assert(x); |
||
74 | |||
75 | var(@imp("true", "ntrue")) x; |
||
76 | assert_false(x); |
||
77 | |||
78 | var(@imp("true", "true")) x; |
||
79 | assert(x); |
||
80 | |||
81 | |||
82 | var(@val_lesser("B", "A")) x; |
||
83 | assert_false(x); |
||
84 | |||
85 | var(@val_lesser("B", "B")) x; |
||
86 | assert_false(x); |
||
87 | |||
88 | var(@val_lesser("B", "C")) x; |
||
89 | assert(x); |
||
90 | |||
91 | |||
92 | var(@val_greater("B", "A")) x; |
||
93 | assert(x); |
||
94 | |||
95 | var(@val_greater("B", "B")) x; |
||
96 | assert_false(x); |
||
97 | |||
98 | var(@val_greater("B", "C")) x; |
||
99 | assert_false(x); |
||
100 | |||
101 | |||
102 | var(@val_lesser_equal("B", "A")) x; |
||
103 | assert_false(x); |
||
104 | |||
105 | var(@val_lesser_equal("B", "B")) x; |
||
106 | assert(x); |
||
107 | |||
108 | var(@val_lesser_equal("B", "C")) x; |
||
109 | assert(x); |
||
110 | |||
111 | |||
112 | var(@val_greater_equal("B", "A")) x; |
||
113 | assert(x); |
||
114 | |||
115 | var(@val_greater_equal("B", "B")) x; |
||
116 | assert(x); |
||
117 | |||
118 | var(@val_greater_equal("B", "C")) x; |
||
119 | assert_false(x); |
||
120 | |||
121 | |||
122 | var(@val_equal("B", "A")) x; |
||
123 | assert_false(x); |
||
124 | |||
125 | var(@val_equal("B", "B")) x; |
||
126 | assert(x); |
||
127 | |||
128 | var(@val_equal("B", "C")) x; |
||
129 | assert_false(x); |
||
130 | |||
131 | |||
132 | var(@val_different("B", "A")) x; |
||
133 | assert(x); |
||
134 | |||
135 | var(@val_different("B", "B")) x; |
||
136 | assert_false(x); |
||
137 | |||
138 | var(@val_different("B", "C")) x; |
||
139 | assert(x); |
||
140 | |||
141 | |||
142 | var(@concat("Foo", "Bar", {"Baaz", "Qux", {"M"}})) x; |
||
143 | val_equal(x, "FooBarBaazQuxM") a; |
||
144 | assert(a); |
||
145 | |||
146 | |||
147 | var(@concatlist({"A"}, {}, {{}, []})) x; |
||
148 | val_equal(x, {"A", {}, []}) a; |
||
149 | assert(a); |
||
150 | |||
151 | |||
152 | var(@num_lesser("10", "9")) x; |
||
153 | assert_false(x); |
||
154 | |||
155 | var(@num_lesser("10", "10")) x; |
||
156 | assert_false(x); |
||
157 | |||
158 | var(@num_lesser("10", "11")) x; |
||
159 | assert(x); |
||
160 | |||
161 | |||
162 | var(@num_greater("10", "9")) x; |
||
163 | assert(x); |
||
164 | |||
165 | var(@num_greater("10", "10")) x; |
||
166 | assert_false(x); |
||
167 | |||
168 | var(@num_greater("10", "11")) x; |
||
169 | assert_false(x); |
||
170 | |||
171 | |||
172 | var(@num_lesser_equal("10", "9")) x; |
||
173 | assert_false(x); |
||
174 | |||
175 | var(@num_lesser_equal("10", "10")) x; |
||
176 | assert(x); |
||
177 | |||
178 | var(@num_lesser_equal("10", "11")) x; |
||
179 | assert(x); |
||
180 | |||
181 | |||
182 | var(@num_greater_equal("10", "9")) x; |
||
183 | assert(x); |
||
184 | |||
185 | var(@num_greater_equal("10", "10")) x; |
||
186 | assert(x); |
||
187 | |||
188 | var(@num_greater_equal("10", "11")) x; |
||
189 | assert_false(x); |
||
190 | |||
191 | |||
192 | var(@num_equal("10", "9")) x; |
||
193 | assert_false(x); |
||
194 | |||
195 | var(@num_equal("10", "10")) x; |
||
196 | assert(x); |
||
197 | |||
198 | var(@num_equal("10", "11")) x; |
||
199 | assert_false(x); |
||
200 | |||
201 | |||
202 | var(@num_different("10", "9")) x; |
||
203 | assert(x); |
||
204 | |||
205 | var(@num_different("10", "10")) x; |
||
206 | assert_false(x); |
||
207 | |||
208 | var(@num_different("10", "11")) x; |
||
209 | assert(x); |
||
210 | |||
211 | |||
212 | var(@num_add("6", "14")) x; |
||
213 | val_equal(x, "20") a; |
||
214 | assert(a); |
||
215 | |||
216 | |||
217 | var(@num_subtract("30", "3")) x; |
||
218 | val_equal(x, "27") a; |
||
219 | assert(a); |
||
220 | |||
221 | |||
222 | var(@num_multiply("62", "2")) x; |
||
223 | val_equal(x, "124") a; |
||
224 | assert(a); |
||
225 | |||
226 | |||
227 | var(@num_divide("31", "15")) x; |
||
228 | val_equal(x, "2") a; |
||
229 | assert(a); |
||
230 | |||
231 | |||
232 | var(@num_modulo("31", "15")) x; |
||
233 | val_equal(x, "1") a; |
||
234 | assert(a); |
||
235 | |||
236 | |||
237 | var(@num_min("3", "5")) x; |
||
238 | val_equal(x, "3") a; |
||
239 | assert(a); |
||
240 | |||
241 | |||
242 | var(@num_max("3", "5")) x; |
||
243 | val_equal(x, "5") a; |
||
244 | assert(a); |
||
245 | |||
246 | |||
247 | var(@encode_value("foo")) x; |
||
248 | val_equal(x, "\"foo\"") a; |
||
249 | assert(a); |
||
250 | |||
251 | var(@decode_value("\"foo\"")) x; |
||
252 | val_equal(x, "foo") a; |
||
253 | assert(a); |
||
254 | |||
255 | |||
256 | var(@tolower("09@AZ[`az{")) x; |
||
257 | val_equal(x, "09@az[`az{") a; |
||
258 | assert(a); |
||
259 | |||
260 | |||
261 | var(@toupper("09@AZ[`az{")) x; |
||
262 | val_equal(x, "09@AZ[`AZ{") a; |
||
263 | assert(a); |
||
264 | |||
265 | |||
266 | exit("0"); |
||
267 | } |