(0 . 0)(1 . 10)1028 -- S.MG, 20181029 1030 with Test_Serpent;1031 with Test_Packing;1032 1033 procedure testall is1034 begin1035 Test_Serpent.Selftest;1036 Test_Packing.Test_Pack_Unpack;1037 end testall;