blob: a15574782edf8568fd60c05535c9106885aab94f (
plain) (
tree)
|
|
--
-- 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
procedure Ada_Test_Begin;
pragma Import (C, Ada_Test_Begin, "ada_test_begin");
procedure Ada_Test_End;
pragma Import (C, Ada_Test_End, "ada_test_end");
procedure Check_Type(
t : in Long_Integer;
s : in Long_Integer;
a : in Long_Integer
);
pragma Import (C, Check_Type, "check_type");
--
-- 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.Size;
--
-- 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;
|