From f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e Mon Sep 17 00:00:00 2001 From: Sebastian Huber Date: Fri, 1 Dec 2017 08:51:17 +0100 Subject: ada: Add standard test begin/end message --- testsuites/ada/sptests/spatcb01/config.h | 2 ++ testsuites/ada/sptests/spatcb01/spatcb01.adb | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'testsuites/ada/sptests/spatcb01') diff --git a/testsuites/ada/sptests/spatcb01/config.h b/testsuites/ada/sptests/spatcb01/config.h index 530f0dddf8..dad989dbe4 100644 --- a/testsuites/ada/sptests/spatcb01/config.h +++ b/testsuites/ada/sptests/spatcb01/config.h @@ -13,4 +13,6 @@ #define CONFIGURE_MAXIMUM_POSIX_THREADS 1 +#define ADA_TEST_NAME "ADA SPATCB 1" + #include 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; -- cgit v1.2.3