AdaDoom3/neo-foundation-package_testing.adb at master · Kensan/AdaDoom3 · GitHub

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
83
84
85
86
87
88
--
--
--
--
--
--
--
--
--
--
--
--
--
--
--
--
package body Neo.Foundation.Package_Testing
  is
  ----------
  -- Test --
  ----------
    procedure Test
      is
      begin
        Put_Title("PACKAGE TESTING TEST");
        Put_Title("SECOND PART OF THE PACKAGE_TESTING TEST FEATURING A VERY LARGE TITLE123456123456");
        Hang_Window;
        --Set_Line_Size(10);
        --Put_Title("12345678901"); -- Should raise exception
      end Test;
  ---------------
  -- Put_Title --
  ---------------
    procedure Put_Title(
      Title : in String_2)
      is
      Space_Count : Integer_4_Signed := 0;
      Count       : Integer_4_Signed := Title'Length * 3 - Title'Length / 3;
      begin
        if Title'Length > Get_Line_Size then
          raise Title_Is_Too_Large_To_Fit_On_A_Single_Line;
        end if;
        New_Line;
        for I in 1..Get_Line_Size loop
          Put(TESTING_SEPORATOR);
        end loop;
        New_Line(2);
        for I in 1..Title'Length loop
          if Title(I) = ' ' then
            Space_Count := Space_Count + 1;
          end if;
        end loop;
        if Count + Space_Count >= Get_Line_Size then
          for I in 1..(Get_Line_Size / 2 - (Title'Length) / 2 - 1) loop
            Put(" ");
          end loop;
          Put(Title);
        else
          for I in 1..(Get_Line_Size / 2 - (Count + Space_Count) / 2 - 1) loop
            Put(" ");
          end loop;
          for I in 1..Title'Length loop
            Put(Title(I) & "  ");
            if Title(I) = ' ' then
              Put(" ");
            end if;
          end loop;
        end if;
        New_Line;
        for I in 1..Get_Line_Size loop
          Put(TESTING_SEPORATOR);
        end loop;
        New_Line(2);
      end Put_Title;
    -----------------
    -- Hang_Window --
    -----------------
      procedure Hang_Window
        is
        Item : String_2(1..1)    := (others => NULL_CHARACTER_2);
        Last : Integer_4_Natural := 0;
        begin
          New_Line;
          Put(TESTING_INPUT_CURSOR);
          Get_Line(Item, Last);
          Skip_Line;
        end Hang_Window;
  end Neo.Foundation.Package_Testing;