raw
smg_comms_rsa_oaep      1  -- S.MG, 2018
smg_comms_rsa_oaep      2 
smg_comms_80cols        3 with Raw_Types;
smg_comms_80cols        4 with RSA_OAEP;
smg_comms_rsa_oaep      5 
smg_comms_rsa_oaep      6 package Test_RSA_OAEP is
smg_comms_rsa_oaep      7   procedure test_char_array;
smg_comms_rsa_oaep      8   procedure test_oaep;        -- test oaep only
smg_comms_shorter_e     9   procedure test_rsa( E_Len    : in Positive; 
smg_comms_shorter_e    10                       D_Len    : in Positive; 
smg_comms_shorter_e    11                       Filename : in String);-- test rsa only
smg_comms_rsa_oaep     12   procedure test_rsa_oaep;    -- test rsa+oaep
smg_comms_rsa_oaep     13 
smg_comms_rsa_oaep     14   procedure PrintOctets( O: in Raw_Types.Octets; Title: in String );
smg_comms_rsa_oaep     15 end Test_RSA_OAEP;