raw
smg_comms_packing...    1 -- Tests for SMG_Comms.Packing
smg_comms_packing...    2 -- S.MG, 2018
smg_comms_packing...    3 
smg_comms_packing...    4 with Raw_Types;
smg_comms_packing...    5 
smg_comms_packing...    6 package Test_Packing is
smg_comms_packing...    7   Test_Error : exception;  -- raised if a test failed
smg_comms_packing...    8 
smg_comms_packing...    9   -- utility method for printing an array of octets
smg_comms_packing...   10   procedure Print(Data: in Raw_Types.Octets; Msg: in String);
smg_comms_packing...   11 
smg_comms_packing...   12   -- testing pack/unpack for Serpent
smg_comms_packing...   13   procedure Test_Pack_Unpack_Serpent;
smg_comms_packing...   14 
smg_comms_packing...   15   -- testing pack/unpack for RSA
smg_comms_packing...   16   procedure Test_Pack_Unpack_RSA;
smg_comms_packing...   17 
smg_comms_packing...   18 end Test_Packing;