adacl_5.15.1_e7c1515b/test/src/adacl_test-pointer_shared_with_delete.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
--------------------------------------------------------------- {{{1 ----------
--: Copyright © 2023 … 2023 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.Unchecked_Deallocation;
with AdaCL.Assert.Pointer;
with AdaCL.Pointer.Shared_With_Delete;
with AUnit.Test_Cases;
with AUnit;

package AdaCL_Test.Pointer_Shared_With_Delete is
   type Test_Element is null record;
   type Test_Pointer is access Test_Element;

   procedure Test_Delete is new Ada.Unchecked_Deallocation (Object => Test_Element, Name => Test_Pointer);

   package Holder is new AdaCL.Pointer.Shared_With_Delete
      (Element_Type => Test_Element, Pointer => Test_Pointer, Deleter => Test_Delete);
   package Assert_Access is new Assert.Pointer (Element_Type => Test_Element, Element_Access => Test_Pointer);

   type Test_Case is new AUnit.Test_Cases.Test_Case with null record;

   overriding procedure Register_Tests (T : in out Test_Case);
   overriding procedure Set_Up_Case (T : in out Test_Case);

   overriding function Name (T : Test_Case) return AUnit.Message_String is
      (AUnit.Format ("AdaCL.Pointer.Shared_With_Delete"));

end AdaCL_Test.Pointer_Shared_With_Delete;

---------------------------------------------------------------- {{{ ----------
--: 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