@@ -27,15 +27,23 @@ module TestBaseBeacon {
27
27
var primitives :- expect Primitives. AtomicPrimitives ();
28
28
29
29
var bb := BeaconBase (client := primitives, name := "foo", beaconName := "aws_dbe_b_foo");
30
- var b := StandardBeacon (bb, 8, TermLocMap("foo"), false , false , None, 1);
30
+ var b := StandardBeacon (bb, 8, TermLocMap("foo"), false , false , None, 5);
31
+
31
32
var bytes :- expect bb. getHmac ([1,2,3], key := [1,2]);
32
33
expect bytes == [0x27, 0x93, 0x93, 0x8b, 0x26, 0xe9, 0x52, 0x7e];
33
34
var str :- expect b. hash ([1,2,3], key := [1,2], bucket := 0);
34
35
expect str == "7e";
36
+
37
+ bytes :- expect bb. getHmac ([1,2,3,1], key := [1,2]);
38
+ expect bytes == [42, 100, 242, 20, 188, 0, 33, 0x1d];
35
39
str :- expect b. hash ([1,2,3], key := [1,2], bucket := 1);
36
40
expect str == "1d";
41
+
42
+ bytes :- expect bb. getHmac ([1,2,3,2], key := [1,2]);
43
+ expect bytes == [53, 151, 144, 34, 49, 19, 169, 0xef];
37
44
str :- expect b. hash ([1,2,3], key := [1,2], bucket := 2);
38
45
expect str == "ef";
46
+
39
47
bytes :- expect bb. getHmac ([], key := [1,2]);
40
48
expect bytes[7] == 0x80;
41
49
str :- expect b. hash ([], key := [1,2], bucket := 0);
0 commit comments