BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 template test_one {
2 var(@struct_encode({{_arg0, _arg1}})) encoded;
3 assert(@val_equal(encoded, _arg2));
4  
5 var(@struct_decode({_arg0}, encoded)) decoded;
6 assert(@val_equal(decoded, {_arg1}));
7 }
8  
9 process main {
10 call(@test_one, {@u8, "0", "\x00"});
11 call(@test_one, {@u8, "254", "\xFE"});
12 call(@test_one, {@u8, "255", "\xFF"});
13  
14 call(@test_one, {@u16b, "0", "\x00\x00"});
15 call(@test_one, {@u16l, "0", "\x00\x00"});
16 call(@test_one, {@u16b, "65534", "\xFF\xFE"});
17 call(@test_one, {@u16l, "65534", "\xFE\xFF"});
18 call(@test_one, {@u16b, "65535", "\xFF\xFF"});
19 call(@test_one, {@u16l, "65535", "\xFF\xFF"});
20  
21 call(@test_one, {@u32b, "0", "\x00\x00\x00\x00"});
22 call(@test_one, {@u32l, "0", "\x00\x00\x00\x00"});
23 call(@test_one, {@u32b, "4294967294", "\xFF\xFF\xFF\xFE"});
24 call(@test_one, {@u32l, "4294967294", "\xFE\xFF\xFF\xFF"});
25 call(@test_one, {@u32b, "4294967295", "\xFF\xFF\xFF\xFF"});
26 call(@test_one, {@u32l, "4294967295", "\xFF\xFF\xFF\xFF"});
27  
28 call(@test_one, {@u64b, "0", "\x00\x00\x00\x00\x00\x00\x00\x00"});
29 call(@test_one, {@u64l, "0", "\x00\x00\x00\x00\x00\x00\x00\x00"});
30 call(@test_one, {@u64b, "18446744073709551614", "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE"});
31 call(@test_one, {@u64l, "18446744073709551614", "\xFE\xFF\xFF\xFF\xFF\xFF\xFF\xFF"});
32 call(@test_one, {@u64b, "18446744073709551615", "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF"});
33 call(@test_one, {@u64l, "18446744073709551615", "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF"});
34  
35 var(@struct_encode({{@u8, "4"}, {@u16l, "1000"}})) encoded;
36 assert(@val_equal(encoded, "\x04\xE8\x03"));
37  
38 var(@struct_decode({@u8, @u16l}, "\x05\xE9\x03")) decoded;
39 assert(@val_equal(decoded, {"5", "1001"}));
40  
41 exit("0");
42 }