diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-10-12 10:00:10 +0200 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-10-12 10:53:16 +0200 |
commit | ee537ea3dd964d4de3565a36b4857af31fb5a3f4 (patch) | |
tree | ad8b328a58469ca0632e3e61cd94f37c9d97cc25 /c/src/ada-tests/support/test_support.ads | |
parent | ada-tests: Use _SUBDIRS instead of SUBDIRS (diff) | |
download | rtems-ee537ea3dd964d4de3565a36b4857af31fb5a3f4.tar.bz2 |
ada-tests: Move to testsuites/ada
This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.
Close #3079.
Diffstat (limited to 'c/src/ada-tests/support/test_support.ads')
-rw-r--r-- | c/src/ada-tests/support/test_support.ads | 195 |
1 files changed, 0 insertions, 195 deletions
diff --git a/c/src/ada-tests/support/test_support.ads b/c/src/ada-tests/support/test_support.ads deleted file mode 100644 index e41bf834ed..0000000000 --- a/c/src/ada-tests/support/test_support.ads +++ /dev/null @@ -1,195 +0,0 @@ --- --- 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; |