diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 08:51:17 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 09:52:41 +0100 |
commit | f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e (patch) | |
tree | 2a06c91d9977552a5a42292fb9cbd8094b7f6485 /testsuites/ada/sptests/spatcb01/spatcb01.adb | |
parent | ada: Delete superfluous CONFIGURE_SPTEST (diff) | |
download | rtems-f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e.tar.bz2 |
ada: Add standard test begin/end message
Diffstat (limited to '')
-rw-r--r-- | testsuites/ada/sptests/spatcb01/spatcb01.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/testsuites/ada/sptests/spatcb01/spatcb01.adb b/testsuites/ada/sptests/spatcb01/spatcb01.adb index 19aaa8031f..810446f871 100644 --- a/testsuites/ada/sptests/spatcb01/spatcb01.adb +++ b/testsuites/ada/sptests/spatcb01/spatcb01.adb @@ -14,13 +14,14 @@ -- with TEXT_IO; +with TEST_SUPPORT; with System.Task_Primitives.Operations; with System.Tasking; procedure SPATCB01 is Self_Id : constant System.Tasking.Task_Id := System.Task_Primitives.Operations.Self; begin - TEXT_IO.PUT_LINE( "*** BEGIN OF TEST SPATCB 1 ***" ); + TEST_SUPPORT.ADA_TEST_BEGIN; TEXT_IO.PUT_LINE( Self_Id.Common.Task_Image( 1 .. Self_Id.Common.Task_Image_Len ) ); - TEXT_IO.PUT_LINE( "*** END OF TEST SPATCB 1 ***" ); + TEST_SUPPORT.ADA_TEST_END; end SPATCB01; |