source: rtems/testsuites/ada/sptests/spatcb01/spatcb01.adb @ f6c9334d

5
Last change on this file since f6c9334d was f6c9334d, checked in by Sebastian Huber <sebastian.huber@…>, on 12/01/17 at 07:51:17

ada: Add standard test begin/end message
  • Property mode set to 100644
File size: 706 bytes
Line 
1--
2--  MAIN / BODY
3--
4--  DESCRIPTION:
5--
6--  Ensure that the SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC implementation
7--  works.
8--
9--  Copyright (c) 2017 embedded brains GmbH
10--
11--  The license and distribution terms for this file may in
12--  the file LICENSE in this distribution or at
13--  http://www.rtems.org/license/LICENSE.
14--
15
16with TEXT_IO;
17with TEST_SUPPORT;
18with System.Task_Primitives.Operations;
19with System.Tasking;
20
21procedure SPATCB01 is
22  Self_Id : constant System.Tasking.Task_Id := System.Task_Primitives.Operations.Self;
23begin
24  TEST_SUPPORT.ADA_TEST_BEGIN;
25  TEXT_IO.PUT_LINE( Self_Id.Common.Task_Image( 1 .. Self_Id.Common.Task_Image_Len ) );
26  TEST_SUPPORT.ADA_TEST_END;
27end SPATCB01;
Note: See TracBrowser for help on using the repository browser.