1with Test.Types; 2with Test.Random; 3with Test.Base64; 4with Test.MMH; 5 6package body Test.Suite_Misc is 7 Result : aliased Test_Suite; 8 Test_Types : aliased Test.Types.Types_Test; 9 Test_Base64 : aliased Test.Base64.Base64_Test; 10 Test_Random : aliased Test.Random.Random_Test; 11 Test_MMH : aliased Test.MMH.MMH_Test; 12 13 function Suite return Access_Test_Suite is 14 begin 15 Add_Test(Result'Access, Test_Types'Access); 16 Add_Test(Result'Access, Test_Base64'Access); 17 Add_Test(Result'Access, Test_Random'Access); 18 Add_Test(Result'Access, Test_MMH'Access); 19 return Result'Access; 20 end Suite; 21 22end Test.Suite_Misc; 23