BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 process main {
2 var({"a", "b", "c", "d"}) list;
3 value(["a":"1", "b":"2", "c":"3", "d":"4"]) map;
4  
5 value({}) new;
6 Foreach (list As value) {
7 new->insert(new.length, value);
8 };
9 val_equal(new, list) a;
10 assert(a);
11  
12 value({}) new;
13 Foreach (list As index:value) {
14 new->insert(index, value);
15 };
16 val_equal(new, list) a;
17 assert(a);
18  
19 value([]) new;
20 Foreach (map As key) {
21 map->get(key) value;
22 new->insert(key, value);
23 };
24 val_equal(new, map) a;
25 assert(a);
26  
27 value([]) new;
28 Foreach (map As key:value) {
29 new->insert(key, value);
30 };
31 val_equal(new, map) a;
32 assert(a);
33  
34 exit("0");
35 }