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