(466 . 6)(466 . 19)
28
29 end test_oaep;
30
31 procedure test_all_bitrates is
32 Input : constant String := "hello, world";
33 Bin : Bitstream( 0 .. Input'Length * 8 - 1 ) := ( others => 0 );
34 Bout : Bitstream( 0 .. 100 ) := ( others => 0 );
35 begin
36 ToBitstream( Input, Bin );
37 Put_Line("Testing all bitrates:");
38 for Bitrate in Keccak_Rate'Range loop
39 Sponge(Bin, Bout, Bitrate);
40 Put_Line("PASSED: keccak with bitrate " & Integer'Image(Bitrate));
41 end loop;
42 end test_all_bitrates;
43
44 -- end of helper methods
45
46 --variables
(518 . 4)(531 . 7)
48 -- test xor on strings
49 test_xor_strings;
50
51 -- test ALL bitrates of the Keccak sponge
52 test_all_bitrates;
53
54 end SMG_Keccak.Test;