@@ -27,15 +27,23 @@ module TestBaseBeacon {
2727 var primitives :- expect Primitives. AtomicPrimitives ();
2828
2929 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+
3132 var bytes :- expect bb. getHmac ([1,2,3], key := [1,2]);
3233 expect bytes == [0x27, 0x93, 0x93, 0x8b, 0x26, 0xe9, 0x52, 0x7e];
3334 var str :- expect b. hash ([1,2,3], key := [1,2], bucket := 0);
3435 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];
3539 str :- expect b. hash ([1,2,3], key := [1,2], bucket := 1);
3640 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];
3744 str :- expect b. hash ([1,2,3], key := [1,2], bucket := 2);
3845 expect str == "ef";
46+
3947 bytes :- expect bb. getHmac ([], key := [1,2]);
4048 expect bytes[7] == 0x80;
4149 str :- expect b. hash ([], key := [1,2], bucket := 0);
0 commit comments