-- 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;

-- helper methods
  procedure Hex2Octets( Hex: in String; O: out Raw_Types.Octets );

end Test_Packing;