diff options
Diffstat (limited to 'testsuites/ada/sptests/sp13')
-rw-r--r-- | testsuites/ada/sptests/sp13/config.h | 2 | ||||
-rw-r--r-- | testsuites/ada/sptests/sp13/sptest.adb | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/testsuites/ada/sptests/sp13/config.h b/testsuites/ada/sptests/sp13/config.h index d31a29d3f0..2d6dd34f1f 100644 --- a/testsuites/ada/sptests/sp13/config.h +++ b/testsuites/ada/sptests/sp13/config.h @@ -17,6 +17,8 @@ #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER #define CONFIGURE_MAXIMUM_TASKS 4 + +#define ADA_TEST_NAME "ADA SP 13" #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES 10 #define CONFIGURE_TICKS_PER_TIMESLICE 100 diff --git a/testsuites/ada/sptests/sp13/sptest.adb b/testsuites/ada/sptests/sp13/sptest.adb index 7b61b9e7ba..96b74618b7 100644 --- a/testsuites/ada/sptests/sp13/sptest.adb +++ b/testsuites/ada/sptests/sp13/sptest.adb @@ -43,7 +43,7 @@ package body SPTEST is begin TEXT_IO.NEW_LINE( 2 ); - TEXT_IO.PUT_LINE( "*** TEST 13 ***" ); + TEST_SUPPORT.ADA_TEST_BEGIN; SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' ); SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' ); @@ -678,7 +678,7 @@ TEST_SUPPORT.PAUSE; TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "message_queue_delete" ); end loop; - TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" ); + TEST_SUPPORT.ADA_TEST_END; RTEMS.SHUTDOWN_EXECUTIVE( 0 ); end TASK_1; |