blob: 4a40da4322351d215eb13f41c5d245533359d86a (
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-1997.
-- On-Line Applications Research Corporation (OAR).
-- Copyright assigned to U.S. Government, 1994.
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with Interfaces; use Interfaces;
with RTEMS;
with Text_IO;
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.
--
Ticks_Per_Second : RTEMS.Interval;
pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second");
--
-- Milliseconds_Per_Tick is the number of milliseconds which
-- occur between each RTEMS clock tick.
--
function Milliseconds_Per_Tick
return RTEMS.Unsigned32;
private
end Test_Support;
|