ashell_1.3.0_8d2540e0/library/source/private/shell-testing.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
with
     Ada.Text_IO,
     Ada.Characters.Latin_1;


package body Shell.Testing
is


   procedure Pause_Til_Tester_Is_Ready
   is
      use Ada.Text_IO;
   begin
      New_Line;
      Put_Line ("Press <Enter> to run the next test.");

      declare
         Unused : String := Get_Line;
      begin
         Clear_Screen;
      end;
   end Pause_Til_Tester_Is_Ready;



   procedure Clear_Screen
   is
      use Ada.Text_IO;
   begin
      Put (Ada.Characters.Latin_1.ESC & "[2J");     -- Clear the screen.
   end Clear_Screen;


end Shell.Testing;