-- Tests for SMG_Comms.Packing
-- S.MG, 2018

with Raw_Types;

package Test_Packing is
  Test_Error : exception;  -- raised if a test failed

  -- utility method for printing an array of octets
  procedure Print(Data: in Raw_Types.Octets; Msg: in String);

  -- testing pack/unpack for Serpent
  procedure Test_Pack_Unpack_Serpent;

  -- testing pack/unpack for RSA
  procedure Test_Pack_Unpack_RSA;

end Test_Packing;