BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
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 }