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

  procedure Test_Pack_Unpack;
end Test_Packing;