--------------------------------------------------------------- {{{1 ----------
--: Copyright © 2023 … 2024 Martin Krischik «krischik@users.sourceforge.net»
------------------------------------------------------------------------------
--: This library is free software; you can redistribute it and/or modify it
--: under the terms of the GNU Library General Public License as published by
--: the Free Software Foundation; either version 2 of the License, or (at your
--: option) any later version.
--:
--: This library is distributed in the hope that it will be useful, but
--: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
--: or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
--: License for more details.
--:
--: You should have received a copy of the GNU Library General Public License
--: along with this library; if not, write to the Free Software Foundation,
--: Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
--------------------------------------------------------------- }}}1 ----------
pragma License (Modified_Gpl);
pragma Ada_2022;

with Ada.Strings.Wide_Bounded;
with AdaCL.Test_Cases.Parameters;
with AUnit.Test_Cases;
with AUnit;

package AdaCL.Wide_Strings.Hex.Test is
   package Unsigned_8 is
      type Test_Case is new AUnit.Test_Cases.Test_Case with private;

      overriding procedure Register_Tests (T : in out Test_Case);
      overriding procedure Set_Up_Case (T : in out Test_Case);
      overriding procedure Set_Up (T : in out Test_Case);
      overriding function Name (T : Test_Case) return AUnit.Message_String is
         (AUnit.Format ("AdaCL.Wide_Strings.Hex.Unsigned_8"));

   private
      package Bounded is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (2);
      package Parameters is new AdaCL.Test_Cases.Parameters (Interfaces.Unsigned_8, Bounded.Bounded_Wide_String);

      type Test_Case is new AUnit.Test_Cases.Test_Case with record
         Parameter : Parameters.Parameter;
      end record;
   end Unsigned_8;

   --: -----------------------------------------------------------------------

   package Unsigned_16 is
      type Test_Case is new AUnit.Test_Cases.Test_Case with private;

      overriding procedure Register_Tests (T : in out Test_Case);
      overriding procedure Set_Up_Case (T : in out Test_Case);
      overriding procedure Set_Up (T : in out Test_Case);
      overriding function Name (T : Test_Case) return AUnit.Message_String is
         (AUnit.Format ("AdaCL.Wide_Strings.Hex.Unsigned_16"));

   private
      package Bounded is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (4);
      package Parameters is new AdaCL.Test_Cases.Parameters (Interfaces.Unsigned_16, Bounded.Bounded_Wide_String);

      type Test_Case is new AUnit.Test_Cases.Test_Case with record
         Parameter : Parameters.Parameter;
      end record;
   end Unsigned_16;

   --: -----------------------------------------------------------------------

   package Unsigned_32 is
      type Test_Case is new AUnit.Test_Cases.Test_Case with private;

      overriding procedure Register_Tests (T : in out Test_Case);
      overriding procedure Set_Up_Case (T : in out Test_Case);
      overriding procedure Set_Up (T : in out Test_Case);
      overriding function Name (T : Test_Case) return AUnit.Message_String is
         (AUnit.Format ("AdaCL.Wide_Strings.Hex.Unsigned_32"));

   private
      package Bounded is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (8);
      package Parameters is new AdaCL.Test_Cases.Parameters (Interfaces.Unsigned_32, Bounded.Bounded_Wide_String);

      type Test_Case is new AUnit.Test_Cases.Test_Case with record
         Parameter : Parameters.Parameter;
      end record;
   end Unsigned_32;

   --: -----------------------------------------------------------------------

   package Unsigned_64 is
      type Test_Case is new AUnit.Test_Cases.Test_Case with private;

      overriding procedure Register_Tests (T : in out Test_Case);
      overriding procedure Set_Up_Case (T : in out Test_Case);
      overriding procedure Set_Up (T : in out Test_Case);
      overriding function Name (T : Test_Case) return AUnit.Message_String is
         (AUnit.Format ("AdaCL.Wide_Strings.Hex.Unsigned_64"));

   private
      package Bounded is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (16);
      package Parameters is new AdaCL.Test_Cases.Parameters (Interfaces.Unsigned_64, Bounded.Bounded_Wide_String);

      type Test_Case is new AUnit.Test_Cases.Test_Case with record
         Parameter : Parameters.Parameter;
      end record;
   end Unsigned_64;
end AdaCL.Wide_Strings.Hex.Test;

---------------------------------------------------------------- {{{ ----------
--: vim: set textwidth=0 nowrap tabstop=8 shiftwidth=3 softtabstop=3 expandtab :
--: vim: set filetype=ada fileencoding=utf-8 fileformat=unix foldmethod=expr :
--: vim: set spell spelllang=en_gb