with Hash_G.Changes_G, Hash_G.Statistics_G;

package Hash_Test_Prepare is

   type Key_Type is new Integer;
   type Data_Type is new Float;

   function My_Hash
         ( Key : Key_Type )
      return Natural;

   package Test_Hash is new Hash_G( Key_Type, Data_Type, My_Hash, "=", "=");
   -- C'est necessaire d'instancier le paquetage avec les deux égalitées parce
   -- qu' en moment, le compilateur a un problème si on ne le fait pas !!

   package Test_Changes is new Test_Hash.Changes_G;

   package Test_Statistics is new Test_Hash.Statistics_G;


end Hash_Test_Prepare;