ada: Add standard test begin/end message

10 files changed, 22 insertions, 10 deletions

diff --git a/testsuites/ada/samples/base_mp/config.h b/testsuites/ada/samples/base_mp/config.h
index 1b73abc7a9..2d0e654f92 100644
--- a/testsuites/ada/samples/base_mp/config.h
+++ b/testsuites/ada/samples/base_mp/config.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS           2
 
+#define ADA_TEST_NAME "ADA BASE MP"
+
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
 
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
diff --git a/testsuites/ada/samples/base_mp/mptest.adb b/testsuites/ada/samples/base_mp/mptest.adb
index d4eef0a29f..95e7901d4b 100644
--- a/testsuites/ada/samples/base_mp/mptest.adb
+++ b/testsuites/ada/samples/base_mp/mptest.adb
@@ -39,7 +39,7 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** SAMPLE MULTIPROCESSOR APPLICATION ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
       TEXT_IO.PUT( "Creating and starting an application task" );
 
 
@@ -91,7 +91,7 @@ package body MPTEST is
       UNSIGNED32_IO.PUT( TID, BASE => 16 );
       TEXT_IO.NEW_LINE;
  
-      TEXT_IO.PUT_LINE( "*** END OF SAMPLE MULTIPROCESSOR APPLICATION  ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/samples/base_sp/config.h b/testsuites/ada/samples/base_sp/config.h
index 74b6d60756..152eb56184 100644
--- a/testsuites/ada/samples/base_sp/config.h
+++ b/testsuites/ada/samples/base_sp/config.h
@@ -23,6 +23,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS            2
 
+#define ADA_TEST_NAME "ADA BASE SP"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/samples/base_sp/sptest.adb b/testsuites/ada/samples/base_sp/sptest.adb
index 85a847f281..75a472e8d9 100644
--- a/testsuites/ada/samples/base_sp/sptest.adb
+++ b/testsuites/ada/samples/base_sp/sptest.adb
@@ -36,7 +36,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** SAMPLE SINGLE PROCESSOR APPLICATION ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
       TEXT_IO.PUT_LINE( "Creating and starting an application task" );
 
       SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
@@ -84,7 +84,7 @@ package body SPTEST is
       UNSIGNED32_IO.PUT( TID, BASE => 16 );
       TEXT_IO.NEW_LINE;
 
-      TEXT_IO.PUT_LINE( "*** END OF SAMPLE SINGLE PROCESSOR APPLICATION ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/samples/hello/config.h b/testsuites/ada/samples/hello/config.h
index bab1fc5232..3b4a9f4652 100644
--- a/testsuites/ada/samples/hello/config.h
+++ b/testsuites/ada/samples/hello/config.h
@@ -26,6 +26,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS              1
 
+#define ADA_TEST_NAME "ADA HELLO"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/samples/hello/sptest.adb b/testsuites/ada/samples/hello/sptest.adb
index 8c29155eba..a0bb90a19e 100644
--- a/testsuites/ada/samples/hello/sptest.adb
+++ b/testsuites/ada/samples/hello/sptest.adb
@@ -19,6 +19,7 @@
 --
 
 with TEXT_IO;
+with TEST_SUPPORT;
 
 package body SPTEST is
 
@@ -33,9 +34,9 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** HELLO WORLD TEST ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
       TEXT_IO.PUT_LINE( "Hello World" );
-      TEXT_IO.PUT_LINE( "*** END OF HELLO WORLD TEST ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/samples/nsecs/config.h b/testsuites/ada/samples/nsecs/config.h
index 9f3337801b..61cb8c7392 100644
--- a/testsuites/ada/samples/nsecs/config.h
+++ b/testsuites/ada/samples/nsecs/config.h
@@ -25,6 +25,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS              1
 
+#define ADA_TEST_NAME "ADA NSECS"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/samples/nsecs/sptest.adb b/testsuites/ada/samples/nsecs/sptest.adb
index 193fa09a45..9befa62c9e 100644
--- a/testsuites/ada/samples/nsecs/sptest.adb
+++ b/testsuites/ada/samples/nsecs/sptest.adb
@@ -23,6 +23,7 @@ with Interfaces.C;
 with RTEMS;
 with RTEMS.Clock;
 with Text_IO;
+with TEST_SUPPORT;
 use type Interfaces.C.Long;
 use type RTEMS.Time_T;
 
@@ -69,7 +70,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** NANOSECOND CLOCK TEST ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       --
       --  Iterate 10 times showing difference in TOD
@@ -144,7 +145,7 @@ package body SPTEST is
 
       delay( 1.0 );
 
-      TEXT_IO.PUT_LINE( "*** END OF NANOSECOND CLOCK TEST ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/samples/ticker/config.h b/testsuites/ada/samples/ticker/config.h
index 84ec56ffd2..3edc776e54 100644
--- a/testsuites/ada/samples/ticker/config.h
+++ b/testsuites/ada/samples/ticker/config.h
@@ -23,6 +23,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             4
 
+#define ADA_TEST_NAME "ADA TICKER"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/samples/ticker/sptest.adb b/testsuites/ada/samples/ticker/sptest.adb
index 2de8b35b79..03f2b1b390 100644
--- a/testsuites/ada/samples/ticker/sptest.adb
+++ b/testsuites/ada/samples/ticker/sptest.adb
@@ -38,7 +38,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 1 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
 
@@ -133,7 +133,7 @@ package body SPTEST is
          TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
 
          if TIME.SECOND >= 35 then
-            TEXT_IO.PUT_LINE( "*** END OF CLOCK TICK TEST ***" );
+            TEST_SUPPORT.ADA_TEST_END;
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
          end if;