diff options
Diffstat (limited to 'testsuites/ada/sptests/spatcb01')
-rw-r--r-- | testsuites/ada/sptests/spatcb01/config.h | 2 | ||||
-rw-r--r-- | testsuites/ada/sptests/spatcb01/spatcb01.adb | 5 |
2 files changed, 5 insertions, 2 deletions
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 <rtems/confdefs.h> 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; |