(0 . 0)(1 . 13)
964 -- Tests for SMG_Comms.Packing
965 -- S.MG, 2018
966
967 with Raw_Types;
968
969 package Test_Packing is
970 Test_Error : exception; -- raised if a test failed
971
972 -- utility method for printing an array of octets
973 procedure Print(Data: in Raw_Types.Octets; Msg: in String);
974
975 procedure Test_Pack_Unpack;
976 end Test_Packing;