------------------------------------------------------------------------------
--                                                                          --
--                              Couverture                                  --
--                                                                          --
--                     Copyright (C) 2008-2024, AdaCore                     --
--                                                                          --
-- Couverture is free software; you can redistribute it  and/or modify it   --
-- under terms of the GNU General Public License as published by the Free   --
-- Software Foundation; either version 2, or (at your option) any later     --
-- version.  Couverture is distributed in the hope that it will be useful,  --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN-  --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License  for more details. You  should  have  received a copy of the GNU --
-- General Public License  distributed with GNAT; see file COPYING. If not, --
-- write  to  the Free  Software  Foundation,  59 Temple Place - Suite 330, --
-- Boston, MA 02111-1307, USA.                                              --
--                                                                          --
------------------------------------------------------------------------------

with Links.Gen_Test.Gen_Suite;

package body Geomaps.Test.Suite is

   package Situation_Link_Suite is new
     Geomaps.Test.Situation_Link_Test.Gen_Suite
       (Instance_Name => "Geomaps.Situation_Links");

   -----------
   -- Suite --
   -----------

   function Suite return AUnit.Test_Suites.Access_Test_Suite is
      Ret : constant Access_Test_Suite := New_Suite;
   begin
      AUnit.Test_Suites.Add_Test
        (Ret, Caller.Create
           ("Test Geomaps.Pos_Ahead_Of", Test_Pos_Ahead_Of_Access));
      AUnit.Test_Suites.Add_Test
        (Ret, Situation_Link_Suite.Suite);
      return Ret;
   end Suite;

end Geomaps.Test.Suite;
