1 files changed, 195 insertions, 0 deletions
diff --git a/testsuites/ada/support/test_support.ads b/testsuites/ada/support/test_support.ads
new file mode 100644
index 0000000000..e41bf834ed
--- /dev/null
+++ b/testsuites/ada/support/test_support.ads
@@ -0,0 +1,195 @@
+--
+--  Test_Support / SPECIFICATION
+--
+--  DESCRIPTION:
+--
+--  This package provides routines which aid the Test Suites
+--  and simplify their design and operation.
+--
+--  DEPENDENCIES: 
+--
+--  
+--
+--  COPYRIGHT (c) 1989-2009.
+--  On-Line Applications Research Corporation (OAR).
+--
+--  The license and distribution terms for this file may in
+--  the file LICENSE in this distribution or at
+--  http://www.rtems.org/license/LICENSE.
+--
+
+with RTEMS;
+
+package Test_Support is
+
+--
+--  Fatal_Directive_Status
+--
+--  DESCRIPTION:
+--
+--  This subprogram checks if Status is equal to Desired.  If so, it 
+--  returns immediately.  Otherwise, it prints the Message along with
+--  the Status and Desired status and invokes the Fatal_Error_Occurred
+--  directive.
+--
+
+   procedure Fatal_Directive_Status (
+      Status  : in     RTEMS.Status_Codes;
+      Desired : in     RTEMS.Status_Codes;
+      Message : in     STRING
+   );
+   pragma Inline ( Fatal_Directive_Status );
+
+--  Directive_Failed
+--
+--  DESCRIPTION:
+--
+--  This subprogram checks if Status is equal to Successful.  If so, it 
+--  returns immediately.  Otherwise, it prints the Message along with
+--  the Status and Desired status and invokes the Fatal_Error_Occurred
+--
+
+   procedure Directive_Failed (
+      Status  : in     RTEMS.Status_Codes;
+      Message : in     STRING
+   );
+   pragma Inline ( Directive_Failed );
+
+--
+--  Print_Time
+--
+--  DESCRIPTION:
+--
+--  This subprogram prints the Prefix string, following by the
+--  time of day in Time_Buffer, followed by the Suffix.
+--
+
+   procedure Print_Time (
+      Prefix      : in     STRING;
+      Time_Buffer : in     RTEMS.Time_Of_Day;
+      Suffix      : in     STRING
+   );
+   pragma Inline ( Print_Time );
+
+--
+--  Put_Dot
+--
+--  DESCRIPTION:
+--
+--  This subprogram prints a single character without a carriage return.
+--
+
+   procedure Put_Dot ( 
+      Buffer : in     STRING
+   );
+   pragma Inline ( Put_Dot );
+
+--
+--  Pause
+--
+--  DESCRIPTION:
+--
+--  This subprogram is used to pause screen output in the Test Suites
+--  until the user presses carriage return.
+--
+
+   procedure Pause;
+
+--
+--  Pause_And_Screen_Number
+--
+--  DESCRIPTION:
+--
+--  This subprogram is used to pause screen output  and print the current
+--  number in the Test Suites until the user presses carriage return.
+--
+
+   procedure Pause_And_Screen_Number (
+      SCREEN : in     RTEMS.Unsigned32
+   );
+
+--
+--  Put_Name
+--
+--  DESCRIPTION:
+--
+--  This subprogram prints the RTEMS object Name.  If New_Line is TRUE, 
+--  then a carriage return is printed after the Name.
+--
+
+   procedure Put_Name (
+      Name     : in     RTEMS.Name;
+      New_Line : in     Boolean
+   );
+ 
+--
+--  Task_Number
+--
+--  DESCRIPTION:
+--
+--  This function returns the task index which the test should use
+--  for TID.
+--
+
+   function Task_Number (
+      TID : in     RTEMS.ID
+   ) return RTEMS.Unsigned32;
+   pragma Inline ( Task_Number );
+
+--
+--  Do_Nothing
+--
+--  DESCRIPTION:
+--
+--  This procedure is called when a test wishes to use a delay
+--  loop and insure that the compiler does not optimize it away.
+--
+
+   procedure Do_Nothing;
+
+--
+--  Ticks_Per_Second is the number of RTEMS clock ticks which
+--  occur each second.
+--
+
+   function Ticks_Per_Second 
+   return RTEMS.Interval; 
+
+--
+--  Milliseconds_Per_Tick is the number of milliseconds which
+--  occur between each RTEMS clock tick.
+--
+
+   function Milliseconds_Per_Tick 
+   return RTEMS.Unsigned32;
+
+--
+--  Return the size of the RTEMS Workspace
+--
+
+   function Work_Space_Size
+   return RTEMS.Unsigned32;
+
+--
+--  Return an indication of whether multiprocessing is configured
+--
+
+   function Is_Configured_Multiprocessing 
+   return Boolean;
+
+--
+--  Node is the node number in a multiprocessor configuration
+--
+
+   function Node 
+   return RTEMS.Unsigned32;
+
+--
+--  Longest time in seconds to run a test
+--
+
+    MAXIMUM_LONG_TEST_DURATION : RTEMS.UNSIGNED32;
+
+private
+
+end Test_Support;