hp41cx_tools_1.6.3_ca239e6b/test/src/hp41cx_tools_test-write_file.adb

 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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
--------------------------------------------------------------- {{{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.Directories;
with AdaCL.Trace;
with HP41CX_Tools.String_Vectors;
with HP41CX_Tools.Vector_IO;

---
--  @summary
--
--  @description
package body HP41CX_Tools_Test.Write_File is
   use HP41CX_Tools;
   use type HP41CX_Tools.String_Vectors.Vector;

   procedure Test_Write_File_01 (T : in out AUnit.Test_Cases.Test_Case'Class) is
      pragma Debug (AdaCL.Trace.Entering (In_Parameter => T.Routine_Name.all'Image));

      Out_Header_Footer : constant String := "./share/hp41cx_tools_test/out_Header_Footer.px41";
      File_Data         : HP41CX_Tools.String_Vectors.Vector;
   begin
      File_Data := File_Data & "PX41" & "EOF";

      Vector_IO.Write_File (Out_Header_Footer, File_Data);

      Assert.Is_True (Ada.Directories.Exists (Out_Header_Footer), "Ada.Directories.Exists");
      Assert_File_Size.In_Range
         (Actual => Ada.Directories.Size (Out_Header_Footer),
          First  => 9,
          Last   => 11,
          Name   => "Ada.Directories.Size");

      pragma Debug (AdaCL.Trace.Exiting);
      return;
   end Test_Write_File_01;

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

   overriding procedure Register_Tests (T : in out Test_Case) is
      pragma Debug (AdaCL.Trace.Entering (In_Parameter => T.Name.all'Image));

      use AUnit.Test_Cases.Registration;
   begin
      Register_Routine (T, Test_Write_File_01'Access, "Write short file");

      pragma Debug (AdaCL.Trace.Exiting);
      return;
   end Register_Tests;

   overriding procedure Set_Up_Case (T : in out Test_Case) is
      pragma Debug (AdaCL.Trace.Entering (In_Parameter => T.Name.all'Image));
   begin
      AdaCL.Trace.Write_To_File (Trace_Directory & T.Name.all & ".log");
      AdaCL.Trace.Enable_Trace;

      pragma Debug (AdaCL.Trace.Exiting);
      return;
   end Set_Up_Case;
end HP41CX_Tools_Test.Write_File;

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