[rtems commit] ada: Add standard test begin/end message

Sebastian Huber sebh at rtems.org
Fri Dec 1 13:22:24 UTC 2017


Module:    rtems
Branch:    master
Commit:    f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e
Changeset: http://git.rtems.org/rtems/commit/?id=f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e

Author:    Sebastian Huber <sebastian.huber at embedded-brains.de>
Date:      Fri Dec  1 08:51:17 2017 +0100

ada: Add standard test begin/end message

---

 testsuites/ada/mptests/mp01/config_base.h    |  2 ++
 testsuites/ada/mptests/mp01/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp03/config_base.h    |  2 ++
 testsuites/ada/mptests/mp03/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp04/config_base.h    |  2 ++
 testsuites/ada/mptests/mp04/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp05/config_base.h    |  2 ++
 testsuites/ada/mptests/mp05/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp06/config_base.h    |  2 ++
 testsuites/ada/mptests/mp06/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp07/config_base.h    |  2 ++
 testsuites/ada/mptests/mp07/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp08/config_base.h    |  2 ++
 testsuites/ada/mptests/mp08/mptest.adb       |  7 ++++---
 testsuites/ada/mptests/mp09/config_base.h    |  2 ++
 testsuites/ada/mptests/mp09/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp10/config_base.h    |  2 ++
 testsuites/ada/mptests/mp10/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp11/config_base.h    |  2 ++
 testsuites/ada/mptests/mp11/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp12/config_base.h    |  2 ++
 testsuites/ada/mptests/mp12/mptest.adb       |  5 +++--
 testsuites/ada/mptests/mp13/config_base.h    |  2 ++
 testsuites/ada/mptests/mp13/mptest.adb       |  7 ++++---
 testsuites/ada/mptests/mp14/config_base.h    |  2 ++
 testsuites/ada/mptests/mp14/mptest.adb       |  3 ++-
 testsuites/ada/samples/base_mp/config.h      |  2 ++
 testsuites/ada/samples/base_mp/mptest.adb    |  4 ++--
 testsuites/ada/samples/base_sp/config.h      |  2 ++
 testsuites/ada/samples/base_sp/sptest.adb    |  4 ++--
 testsuites/ada/samples/hello/config.h        |  2 ++
 testsuites/ada/samples/hello/sptest.adb      |  5 +++--
 testsuites/ada/samples/nsecs/config.h        |  2 ++
 testsuites/ada/samples/nsecs/sptest.adb      |  5 +++--
 testsuites/ada/samples/ticker/config.h       |  2 ++
 testsuites/ada/samples/ticker/sptest.adb     |  4 ++--
 testsuites/ada/sptests/sp01/config.h         |  2 ++
 testsuites/ada/sptests/sp01/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp02/config.h         |  2 ++
 testsuites/ada/sptests/sp02/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp03/config.h         |  2 ++
 testsuites/ada/sptests/sp03/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp04/config.h         |  2 ++
 testsuites/ada/sptests/sp04/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp05/config.h         |  2 ++
 testsuites/ada/sptests/sp05/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp06/config.h         |  2 ++
 testsuites/ada/sptests/sp06/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp07/config.h         |  2 ++
 testsuites/ada/sptests/sp07/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp08/config.h         |  2 ++
 testsuites/ada/sptests/sp08/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp09/config.h         |  2 ++
 testsuites/ada/sptests/sp09/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp11/config.h         |  2 ++
 testsuites/ada/sptests/sp11/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp12/config.h         |  2 ++
 testsuites/ada/sptests/sp12/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp13/config.h         |  2 ++
 testsuites/ada/sptests/sp13/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp14/config.h         |  2 ++
 testsuites/ada/sptests/sp14/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp15/config.h         |  2 ++
 testsuites/ada/sptests/sp15/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp16/config.h         |  2 ++
 testsuites/ada/sptests/sp16/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp17/config.h         |  2 ++
 testsuites/ada/sptests/sp17/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp19/config.h         |  2 ++
 testsuites/ada/sptests/sp19/sptest.adp       |  4 ++--
 testsuites/ada/sptests/sp20/config.h         |  2 ++
 testsuites/ada/sptests/sp20/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp22/config.h         |  2 ++
 testsuites/ada/sptests/sp22/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp23/config.h         |  2 ++
 testsuites/ada/sptests/sp23/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp24/config.h         |  2 ++
 testsuites/ada/sptests/sp24/sptest.adb       |  4 ++--
 testsuites/ada/sptests/sp25/config.h         |  2 ++
 testsuites/ada/sptests/sp25/sptest.adb       |  4 ++--
 testsuites/ada/sptests/spatcb01/config.h     |  2 ++
 testsuites/ada/sptests/spatcb01/spatcb01.adb |  5 +++--
 testsuites/ada/sptests/spname01/config.h     |  2 ++
 testsuites/ada/sptests/spname01/sptest.adb   |  4 ++--
 testsuites/ada/support/init.c                | 18 +++++++++++++++++-
 testsuites/ada/support/test_support.ads      |  6 ++++++
 testsuites/ada/tmtests/tm01/config.h         |  2 ++
 testsuites/ada/tmtests/tm01/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm02/config.h         |  2 ++
 testsuites/ada/tmtests/tm02/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm03/config.h         |  2 ++
 testsuites/ada/tmtests/tm03/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm04/config.h         |  2 ++
 testsuites/ada/tmtests/tm04/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm05/config.h         |  2 ++
 testsuites/ada/tmtests/tm05/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm06/config.h         |  2 ++
 testsuites/ada/tmtests/tm06/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm07/config.h         |  2 ++
 testsuites/ada/tmtests/tm07/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm08/config.h         |  2 ++
 testsuites/ada/tmtests/tm08/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm09/config.h         |  2 ++
 testsuites/ada/tmtests/tm09/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm10/config.h         |  2 ++
 testsuites/ada/tmtests/tm10/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm11/config.h         |  2 ++
 testsuites/ada/tmtests/tm11/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm12/config.h         |  2 ++
 testsuites/ada/tmtests/tm12/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm13/config.h         |  2 ++
 testsuites/ada/tmtests/tm13/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm14/config.h         |  2 ++
 testsuites/ada/tmtests/tm14/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm15/config.h         |  2 ++
 testsuites/ada/tmtests/tm15/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm16/config.h         |  2 ++
 testsuites/ada/tmtests/tm16/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm17/config.h         |  2 ++
 testsuites/ada/tmtests/tm17/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm18/config.h         |  2 ++
 testsuites/ada/tmtests/tm18/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm19/config.h         |  2 ++
 testsuites/ada/tmtests/tm19/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm20/config.h         |  2 ++
 testsuites/ada/tmtests/tm20/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm21/config.h         |  2 ++
 testsuites/ada/tmtests/tm21/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm22/config.h         |  2 ++
 testsuites/ada/tmtests/tm22/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm23/config.h         |  2 ++
 testsuites/ada/tmtests/tm23/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm24/config.h         |  2 ++
 testsuites/ada/tmtests/tm24/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm25/config.h         |  2 ++
 testsuites/ada/tmtests/tm25/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm28/config.h         |  2 ++
 testsuites/ada/tmtests/tm28/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tm29/config.h         |  2 ++
 testsuites/ada/tmtests/tm29/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tmck/config.h         |  2 ++
 testsuites/ada/tmtests/tmck/tmtest.adb       |  4 ++--
 testsuites/ada/tmtests/tmoverhd/config.h     |  2 ++
 testsuites/ada/tmtests/tmoverhd/tmtest.adb   |  4 ++--
 144 files changed, 324 insertions(+), 144 deletions(-)

diff --git a/testsuites/ada/mptests/mp01/config_base.h b/testsuites/ada/mptests/mp01/config_base.h
index 2559d1a..fca97d6 100644
--- a/testsuites/ada/mptests/mp01/config_base.h
+++ b/testsuites/ada/mptests/mp01/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 1"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp01/mptest.adb b/testsuites/ada/mptests/mp01/mptest.adb
index b76a1af..457a21f 100644
--- a/testsuites/ada/mptests/mp01/mptest.adb
+++ b/testsuites/ada/mptests/mp01/mptest.adb
@@ -41,7 +41,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 1 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -221,7 +222,7 @@ package body MPTEST is
       end if;
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 1 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp03/config_base.h b/testsuites/ada/mptests/mp03/config_base.h
index 2559d1a..9a1c49e 100644
--- a/testsuites/ada/mptests/mp03/config_base.h
+++ b/testsuites/ada/mptests/mp03/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 3"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp03/mptest.adb b/testsuites/ada/mptests/mp03/mptest.adb
index 170b62f..821512e 100644
--- a/testsuites/ada/mptests/mp03/mptest.adb
+++ b/testsuites/ada/mptests/mp03/mptest.adb
@@ -36,7 +36,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 3 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -167,7 +168,7 @@ package body MPTEST is
 
       MPTEST.TEST_TASK_SUPPORT( 2 );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp04/config_base.h b/testsuites/ada/mptests/mp04/config_base.h
index 2559d1a..71aca53 100644
--- a/testsuites/ada/mptests/mp04/config_base.h
+++ b/testsuites/ada/mptests/mp04/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 4"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp04/mptest.adb b/testsuites/ada/mptests/mp04/mptest.adb
index a7a2bdd..f888a4b 100644
--- a/testsuites/ada/mptests/mp04/mptest.adb
+++ b/testsuites/ada/mptests/mp04/mptest.adb
@@ -38,7 +38,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 4 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -154,7 +155,7 @@ package body MPTEST is
 
       TEXT_IO.PUT_LINE( "Local task priority has been set" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp05/config_base.h b/testsuites/ada/mptests/mp05/config_base.h
index 2559d1a..2728ab2 100644
--- a/testsuites/ada/mptests/mp05/config_base.h
+++ b/testsuites/ada/mptests/mp05/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 5"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp05/mptest.adb b/testsuites/ada/mptests/mp05/mptest.adb
index a206b80..a5c0818 100644
--- a/testsuites/ada/mptests/mp05/mptest.adb
+++ b/testsuites/ada/mptests/mp05/mptest.adb
@@ -41,7 +41,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 5 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -238,7 +239,7 @@ package body MPTEST is
       end loop;
 
       TEXT_IO.NEW_LINE;
-      TEXT_IO.PUT_LINE( "*** END OF TEST 5 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp06/config_base.h b/testsuites/ada/mptests/mp06/config_base.h
index 2559d1a..f3e3972 100644
--- a/testsuites/ada/mptests/mp06/config_base.h
+++ b/testsuites/ada/mptests/mp06/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 6"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp06/mptest.adb b/testsuites/ada/mptests/mp06/mptest.adb
index d4522e6..378d46f 100644
--- a/testsuites/ada/mptests/mp06/mptest.adb
+++ b/testsuites/ada/mptests/mp06/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 6 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -243,7 +244,7 @@ package body MPTEST is
 
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 6 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp07/config_base.h b/testsuites/ada/mptests/mp07/config_base.h
index 2559d1a..7df48cd 100644
--- a/testsuites/ada/mptests/mp07/config_base.h
+++ b/testsuites/ada/mptests/mp07/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 7"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp07/mptest.adb b/testsuites/ada/mptests/mp07/mptest.adb
index 20dbc9c..7354e56 100644
--- a/testsuites/ada/mptests/mp07/mptest.adb
+++ b/testsuites/ada/mptests/mp07/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 7 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -195,7 +196,7 @@ package body MPTEST is
 
       TEXT_IO.NEW_LINE;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 7 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp08/config_base.h b/testsuites/ada/mptests/mp08/config_base.h
index 2559d1a..74367e7 100644
--- a/testsuites/ada/mptests/mp08/config_base.h
+++ b/testsuites/ada/mptests/mp08/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 8"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp08/mptest.adb b/testsuites/ada/mptests/mp08/mptest.adb
index 2910ec8..a812c09 100644
--- a/testsuites/ada/mptests/mp08/mptest.adb
+++ b/testsuites/ada/mptests/mp08/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 8 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -163,7 +164,7 @@ package body MPTEST is
 
             TEXT_IO.PUT_LINE( "Global semaphore deleted" );
 
-            TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
 
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
@@ -184,7 +185,7 @@ package body MPTEST is
             RTEMS.SEMAPHORE.DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
             TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
 
-            TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
 
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp09/config_base.h b/testsuites/ada/mptests/mp09/config_base.h
index 2559d1a..8145297 100644
--- a/testsuites/ada/mptests/mp09/config_base.h
+++ b/testsuites/ada/mptests/mp09/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 9"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp09/mptest.adb b/testsuites/ada/mptests/mp09/mptest.adb
index f682687..742f059 100644
--- a/testsuites/ada/mptests/mp09/mptest.adb
+++ b/testsuites/ada/mptests/mp09/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 9 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -364,7 +365,7 @@ package body MPTEST is
 
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 9 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp10/config_base.h b/testsuites/ada/mptests/mp10/config_base.h
index 2559d1a..72f5c75 100644
--- a/testsuites/ada/mptests/mp10/config_base.h
+++ b/testsuites/ada/mptests/mp10/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 10"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp10/mptest.adb b/testsuites/ada/mptests/mp10/mptest.adb
index d773976..a105fe8 100644
--- a/testsuites/ada/mptests/mp10/mptest.adb
+++ b/testsuites/ada/mptests/mp10/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 10 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -164,7 +165,7 @@ package body MPTEST is
 
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 10 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp11/config_base.h b/testsuites/ada/mptests/mp11/config_base.h
index 2559d1a..c36c1ba 100644
--- a/testsuites/ada/mptests/mp11/config_base.h
+++ b/testsuites/ada/mptests/mp11/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 11"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp11/mptest.adb b/testsuites/ada/mptests/mp11/mptest.adb
index 9ad9f52..95b6904 100644
--- a/testsuites/ada/mptests/mp11/mptest.adb
+++ b/testsuites/ada/mptests/mp11/mptest.adb
@@ -41,7 +41,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 11 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -127,7 +128,7 @@ package body MPTEST is
 
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 11 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp12/config_base.h b/testsuites/ada/mptests/mp12/config_base.h
index 2559d1a..2d7952f 100644
--- a/testsuites/ada/mptests/mp12/config_base.h
+++ b/testsuites/ada/mptests/mp12/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 12"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp12/mptest.adb b/testsuites/ada/mptests/mp12/mptest.adb
index 74dd2e8..46f474f 100644
--- a/testsuites/ada/mptests/mp12/mptest.adb
+++ b/testsuites/ada/mptests/mp12/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 12 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -139,7 +140,7 @@ package body MPTEST is
 
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp13/config_base.h b/testsuites/ada/mptests/mp13/config_base.h
index 2559d1a..8799c9a 100644
--- a/testsuites/ada/mptests/mp13/config_base.h
+++ b/testsuites/ada/mptests/mp13/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 13"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp13/mptest.adb b/testsuites/ada/mptests/mp13/mptest.adb
index 6dc79ab..a1b3355 100644
--- a/testsuites/ada/mptests/mp13/mptest.adb
+++ b/testsuites/ada/mptests/mp13/mptest.adb
@@ -40,7 +40,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 13 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
@@ -133,7 +134,7 @@ package body MPTEST is
          RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
          TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
 
-         TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
+         TEST_SUPPORT.ADA_TEST_END;
 
          RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
@@ -314,7 +315,7 @@ package body MPTEST is
       );
       TEXT_IO.PUT_LINE( "semaphore_obtain correctly returned TIMEOUT" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/mptests/mp14/config_base.h b/testsuites/ada/mptests/mp14/config_base.h
index 2559d1a..6d2b79d 100644
--- a/testsuites/ada/mptests/mp14/config_base.h
+++ b/testsuites/ada/mptests/mp14/config_base.h
@@ -20,6 +20,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS                       2
 
+#define ADA_TEST_NAME "ADA MP 14"
+
 #define CONFIGURE_MAXIMUM_POSIX_THREADS              10
 #define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
 
diff --git a/testsuites/ada/mptests/mp14/mptest.adb b/testsuites/ada/mptests/mp14/mptest.adb
index c795dc2..248ef9f 100644
--- a/testsuites/ada/mptests/mp14/mptest.adb
+++ b/testsuites/ada/mptests/mp14/mptest.adb
@@ -82,7 +82,8 @@ package body MPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT( "*** TEST 14 -- NODE " );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
+      TEXT_IO.PUT( "*** NODE " );
       UNSIGNED32_IO.PUT(
          TEST_SUPPORT.NODE,
          WIDTH => 1
diff --git a/testsuites/ada/samples/base_mp/config.h b/testsuites/ada/samples/base_mp/config.h
index 1b73abc..2d0e654 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 d4eef0a..95e7901 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 74b6d60..152eb56 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 85a847f..75a472e 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 bab1fc5..3b4a9f4 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 8c29155..a0bb90a 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 9f33378..61cb8c7 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 193fa09..9befa62 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 84ec56f..3edc776 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 2de8b35..03f2b1b 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;
 
diff --git a/testsuites/ada/sptests/sp01/config.h b/testsuites/ada/sptests/sp01/config.h
index fc9f99d..ee9e0fb 100644
--- a/testsuites/ada/sptests/sp01/config.h
+++ b/testsuites/ada/sptests/sp01/config.h
@@ -23,6 +23,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             4
 
+#define ADA_TEST_NAME "ADA SP 1"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp01/sptest.adb b/testsuites/ada/sptests/sp01/sptest.adb
index 46e48e9..eb7497b 100644
--- a/testsuites/ada/sptests/sp01/sptest.adb
+++ b/testsuites/ada/sptests/sp01/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 TEST 1 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
          end if;
 
diff --git a/testsuites/ada/sptests/sp02/config.h b/testsuites/ada/sptests/sp02/config.h
index 84ec56f..60f58c1 100644
--- a/testsuites/ada/sptests/sp02/config.h
+++ b/testsuites/ada/sptests/sp02/config.h
@@ -23,6 +23,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             4
 
+#define ADA_TEST_NAME "ADA SP 2"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp02/sptest.adb b/testsuites/ada/sptests/sp02/sptest.adb
index 45fb4ac..4534d28 100644
--- a/testsuites/ada/sptests/sp02/sptest.adb
+++ b/testsuites/ada/sptests/sp02/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 2 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       SPTEST.PREEMPT_TASK_NAME := RTEMS.BUILD_NAME(  'P', 'R', 'M', 'T' );
 
@@ -281,7 +281,7 @@ package body SPTEST is
       RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp03/config.h b/testsuites/ada/sptests/sp03/config.h
index 37acc3c..0c7507a 100644
--- a/testsuites/ada/sptests/sp03/config.h
+++ b/testsuites/ada/sptests/sp03/config.h
@@ -23,6 +23,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             3
 
+#define ADA_TEST_NAME "ADA SP 3"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp03/sptest.adb b/testsuites/ada/sptests/sp03/sptest.adb
index 24be47e..1a05b51 100644
--- a/testsuites/ada/sptests/sp03/sptest.adb
+++ b/testsuites/ada/sptests/sp03/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 3 ***" );
+      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', ' ' );
@@ -154,7 +154,7 @@ package body SPTEST is
          TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
 
          if TIME.SECOND >= 17 then
-            TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
          end if;
 
diff --git a/testsuites/ada/sptests/sp04/config.h b/testsuites/ada/sptests/sp04/config.h
index bad5bcb..8fccddb 100644
--- a/testsuites/ada/sptests/sp04/config.h
+++ b/testsuites/ada/sptests/sp04/config.h
@@ -26,6 +26,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             4
 
+#define ADA_TEST_NAME "ADA SP 4"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp04/sptest.adb b/testsuites/ada/sptests/sp04/sptest.adb
index f3955fb..3fcaad1 100644
--- a/testsuites/ada/sptests/sp04/sptest.adb
+++ b/testsuites/ada/sptests/sp04/sptest.adb
@@ -79,7 +79,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 4 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
 
@@ -264,7 +264,7 @@ package body SPTEST is
                NULL;
             END LOOP;
             Flush_Task_Event_Log;
-            TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
          end if;
diff --git a/testsuites/ada/sptests/sp05/config.h b/testsuites/ada/sptests/sp05/config.h
index 8b7c68e..d5ddc1d 100644
--- a/testsuites/ada/sptests/sp05/config.h
+++ b/testsuites/ada/sptests/sp05/config.h
@@ -25,6 +25,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             4
 
+#define ADA_TEST_NAME "ADA SP 5"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp05/sptest.adb b/testsuites/ada/sptests/sp05/sptest.adb
index 1a9b974..00e41e2 100644
--- a/testsuites/ada/sptests/sp05/sptest.adb
+++ b/testsuites/ada/sptests/sp05/sptest.adb
@@ -36,7 +36,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 5 ***" );
+      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', ' ' );
@@ -170,7 +170,7 @@ package body SPTEST is
           
       end loop;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 5 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp06/config.h b/testsuites/ada/sptests/sp06/config.h
index 8b7c68e..492e0e6 100644
--- a/testsuites/ada/sptests/sp06/config.h
+++ b/testsuites/ada/sptests/sp06/config.h
@@ -25,6 +25,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             4
 
+#define ADA_TEST_NAME "ADA SP 6"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp06/sptest.adb b/testsuites/ada/sptests/sp06/sptest.adb
index f19fd06..b3acf7b 100644
--- a/testsuites/ada/sptests/sp06/sptest.adb
+++ b/testsuites/ada/sptests/sp06/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 6 ***" );
+      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', ' ' );
@@ -132,7 +132,7 @@ package body SPTEST is
       PASS := ARGUMENT + 1;
 
       if PASS = 5 then
-         TEXT_IO.PUT_LINE( "*** END OF TEST 6 ***" );
+         TEST_SUPPORT.ADA_TEST_END;
          RTEMS.SHUTDOWN_EXECUTIVE( 0 );
       end if;
 
diff --git a/testsuites/ada/sptests/sp07/config.h b/testsuites/ada/sptests/sp07/config.h
index 4d2ef9f..ffdac2d 100644
--- a/testsuites/ada/sptests/sp07/config.h
+++ b/testsuites/ada/sptests/sp07/config.h
@@ -26,6 +26,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             5
 
+#define ADA_TEST_NAME "ADA SP 7"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp07/sptest.adb b/testsuites/ada/sptests/sp07/sptest.adb
index d55aa73..e008336 100644
--- a/testsuites/ada/sptests/sp07/sptest.adb
+++ b/testsuites/ada/sptests/sp07/sptest.adb
@@ -131,7 +131,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 7 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME(  'E', 'X', 'T', ' ' );
 
@@ -419,7 +419,7 @@ package body SPTEST is
          TEXT_IO.PUT_LINE( "TASK_EXITTED - user extension invoked correctly" );
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 7 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_EXIT_EXTENSION;
diff --git a/testsuites/ada/sptests/sp08/config.h b/testsuites/ada/sptests/sp08/config.h
index 98f7e89..af91757 100644
--- a/testsuites/ada/sptests/sp08/config.h
+++ b/testsuites/ada/sptests/sp08/config.h
@@ -25,6 +25,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             2
 
+#define ADA_TEST_NAME "ADA SP 8"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp08/sptest.adb b/testsuites/ada/sptests/sp08/sptest.adb
index 2bec479..2a2e994 100644
--- a/testsuites/ada/sptests/sp08/sptest.adb
+++ b/testsuites/ada/sptests/sp08/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 8 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
 
@@ -339,7 +339,7 @@ package body SPTEST is
    
 -- END OF CURRENT MODE
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    end TASK_1;
 
diff --git a/testsuites/ada/sptests/sp09/config.h b/testsuites/ada/sptests/sp09/config.h
index 0dac4ec..4d96170 100644
--- a/testsuites/ada/sptests/sp09/config.h
+++ b/testsuites/ada/sptests/sp09/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              10
+
+#define ADA_TEST_NAME "ADA SP 9"
 #define CONFIGURE_MAXIMUM_TIMERS              1
 #define CONFIGURE_MAXIMUM_SEMAPHORES          2
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES      1
diff --git a/testsuites/ada/sptests/sp09/sptest.adb b/testsuites/ada/sptests/sp09/sptest.adb
index 218fbae..e064ebe 100644
--- a/testsuites/ada/sptests/sp09/sptest.adb
+++ b/testsuites/ada/sptests/sp09/sptest.adb
@@ -45,7 +45,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 9 ***" );
+      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', ' ' );
@@ -2984,7 +2984,7 @@ package body SPTEST is
 
       SPTEST.SCREEN_14;
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 9 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp11/config.h b/testsuites/ada/sptests/sp11/config.h
index 97513d5..508613e 100644
--- a/testsuites/ada/sptests/sp11/config.h
+++ b/testsuites/ada/sptests/sp11/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               3
+
+#define ADA_TEST_NAME "ADA SP 11"
 #define CONFIGURE_MAXIMUM_TIMERS              6
 #define CONFIGURE_TICKS_PER_TIMESLICE       100
 
diff --git a/testsuites/ada/sptests/sp11/sptest.adb b/testsuites/ada/sptests/sp11/sptest.adb
index 95dd178..fa6e139 100644
--- a/testsuites/ada/sptests/sp11/sptest.adb
+++ b/testsuites/ada/sptests/sp11/sptest.adb
@@ -40,7 +40,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 11 ***" );
+      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', ' ' );
@@ -623,7 +623,7 @@ package body SPTEST is
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER 200 ticks" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 11 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp12/config.h b/testsuites/ada/sptests/sp12/config.h
index da366f9..8edb8ba 100644
--- a/testsuites/ada/sptests/sp12/config.h
+++ b/testsuites/ada/sptests/sp12/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               8
+
+#define ADA_TEST_NAME "ADA SP 12"
 #define CONFIGURE_MAXIMUM_SEMAPHORES         10
 #define CONFIGURE_TICKS_PER_TIMESLICE       100
 
diff --git a/testsuites/ada/sptests/sp12/sptest.adb b/testsuites/ada/sptests/sp12/sptest.adb
index c1d9f62..a1391ab 100644
--- a/testsuites/ada/sptests/sp12/sptest.adb
+++ b/testsuites/ada/sptests/sp12/sptest.adb
@@ -38,7 +38,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 12 ***" );
+      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', ' ' );
@@ -801,7 +801,7 @@ TEST_SUPPORT.PAUSE;
       );
       TEXT_IO.PUT_LINE( "TA5 - SM1 deleted by TA1" );
     
-      TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_5;
diff --git a/testsuites/ada/sptests/sp13/config.h b/testsuites/ada/sptests/sp13/config.h
index d31a29d..2d6dd34 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 7b61b9e..96b7461 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;
diff --git a/testsuites/ada/sptests/sp14/config.h b/testsuites/ada/sptests/sp14/config.h
index 4a0cc4e..2a53074 100644
--- a/testsuites/ada/sptests/sp14/config.h
+++ b/testsuites/ada/sptests/sp14/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               3
+
+#define ADA_TEST_NAME "ADA SP 14"
 #define CONFIGURE_MAXIMUM_TIMERS              1
 #define CONFIGURE_TICKS_PER_TIMESLICE       100
 
diff --git a/testsuites/ada/sptests/sp14/sptest.adb b/testsuites/ada/sptests/sp14/sptest.adb
index 3b74c9f..eb9ff3c 100644
--- a/testsuites/ada/sptests/sp14/sptest.adb
+++ b/testsuites/ada/sptests/sp14/sptest.adb
@@ -40,7 +40,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 14 ***" );
+      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', ' ' );
@@ -277,7 +277,7 @@ package body SPTEST is
       RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER YIELD" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 14 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_2;
diff --git a/testsuites/ada/sptests/sp15/config.h b/testsuites/ada/sptests/sp15/config.h
index 35e7e3a..b0d535c 100644
--- a/testsuites/ada/sptests/sp15/config.h
+++ b/testsuites/ada/sptests/sp15/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               2
+
+#define ADA_TEST_NAME "ADA SP 15"
 #define CONFIGURE_MAXIMUM_PARTITIONS          2
 #define CONFIGURE_TICKS_PER_TIMESLICE       100
 
diff --git a/testsuites/ada/sptests/sp15/sptest.adb b/testsuites/ada/sptests/sp15/sptest.adb
index 39e887d..8f83def 100644
--- a/testsuites/ada/sptests/sp15/sptest.adb
+++ b/testsuites/ada/sptests/sp15/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 15 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
 
@@ -270,7 +270,7 @@ package body SPTEST is
       RTEMS.PARTITION.DELETE( SPTEST.PARTITION_ID( 2 ), STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE OF SELF" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 15 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp16/config.h b/testsuites/ada/sptests/sp16/config.h
index 4b5fae9..c507336 100644
--- a/testsuites/ada/sptests/sp16/config.h
+++ b/testsuites/ada/sptests/sp16/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               4
+
+#define ADA_TEST_NAME "ADA SP 16"
 #define CONFIGURE_MAXIMUM_REGIONS             4
 #define CONFIGURE_TICKS_PER_TIMESLICE       100
 
diff --git a/testsuites/ada/sptests/sp16/sptest.adb b/testsuites/ada/sptests/sp16/sptest.adb
index a62eedd..44d65ba 100644
--- a/testsuites/ada/sptests/sp16/sptest.adb
+++ b/testsuites/ada/sptests/sp16/sptest.adb
@@ -38,7 +38,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 16 ***" );
+      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', ' ' );
@@ -530,7 +530,7 @@ TEST_SUPPORT.PAUSE;
       RTEMS.REGION.DELETE( SPTEST.REGION_ID( 4 ), STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_delete" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 16 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp17/config.h b/testsuites/ada/sptests/sp17/config.h
index df15364..9813e25 100644
--- a/testsuites/ada/sptests/sp17/config.h
+++ b/testsuites/ada/sptests/sp17/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS           3
+
+#define ADA_TEST_NAME "ADA SP 17"
 #define CONFIGURE_MICROSECONDS_PER_TICK   RTEMS_MILLISECONDS_TO_MICROSECONDS(25)
 #define CONFIGURE_TICKS_PER_TIMESLICE     1000
 
diff --git a/testsuites/ada/sptests/sp17/sptest.adb b/testsuites/ada/sptests/sp17/sptest.adb
index e2402a5..880f5db 100644
--- a/testsuites/ada/sptests/sp17/sptest.adb
+++ b/testsuites/ada/sptests/sp17/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 17 ***" );
+      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', ' ' );
@@ -136,7 +136,7 @@ package body SPTEST is
 
       TEXT_IO.PUT_LINE( "TA1 - Got Back!!!" );
      
-      TEXT_IO.PUT_LINE( "*** END OF TEST 17 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp19/config.h b/testsuites/ada/sptests/sp19/config.h
index a3e24ee..1cdc8a0 100644
--- a/testsuites/ada/sptests/sp19/config.h
+++ b/testsuites/ada/sptests/sp19/config.h
@@ -23,6 +23,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS             7
 
+#define ADA_TEST_NAME "ADA SP 19"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/sp19/sptest.adp b/testsuites/ada/sptests/sp19/sptest.adp
index d49bf41..4c36691 100644
--- a/testsuites/ada/sptests/sp19/sptest.adp
+++ b/testsuites/ada/sptests/sp19/sptest.adp
@@ -38,7 +38,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 19 ***" );
+      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', ' ' );
@@ -313,7 +313,7 @@ package body SPTEST is
             RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
             TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
  
-            TEXT_IO.PUT_LINE( "*** END OF TEST 19 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
          end if;
 
diff --git a/testsuites/ada/sptests/sp20/config.h b/testsuites/ada/sptests/sp20/config.h
index a80d846..f509a81 100644
--- a/testsuites/ada/sptests/sp20/config.h
+++ b/testsuites/ada/sptests/sp20/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               7
+
+#define ADA_TEST_NAME "ADA SP 20"
 #define CONFIGURE_MAXIMUM_PERIODS             10
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/sptests/sp20/sptest.adb b/testsuites/ada/sptests/sp20/sptest.adb
index 1929fd9..e5ad872 100644
--- a/testsuites/ada/sptests/sp20/sptest.adb
+++ b/testsuites/ada/sptests/sp20/sptest.adb
@@ -39,7 +39,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 20 ***" );
+      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', ' ' );
@@ -225,7 +225,7 @@ package body SPTEST is
                TEXT_IO.PUT_LINE( ")" );
  
                if PASS = 10 then
-                  TEXT_IO.PUT_LINE( "*** END OF TEST 20 ***" );
+                  TEST_SUPPORT.ADA_TEST_END;
                   RTEMS.SHUTDOWN_EXECUTIVE( 0 );
                end if;
 
diff --git a/testsuites/ada/sptests/sp22/config.h b/testsuites/ada/sptests/sp22/config.h
index acbcae6..da60e49 100644
--- a/testsuites/ada/sptests/sp22/config.h
+++ b/testsuites/ada/sptests/sp22/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS           2
+
+#define ADA_TEST_NAME "ADA SP 22"
 #define CONFIGURE_MAXIMUM_TIMERS          2
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/sptests/sp22/sptest.adb b/testsuites/ada/sptests/sp22/sptest.adb
index a947628..3cf4baa 100644
--- a/testsuites/ada/sptests/sp22/sptest.adb
+++ b/testsuites/ada/sptests/sp22/sptest.adb
@@ -40,7 +40,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 22 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
 
@@ -289,7 +289,7 @@ TEST_SUPPORT.PAUSE;
       RTEMS.TIMER.DELETE( TMID, STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_DELETE" );
           
-      TEXT_IO.PUT_LINE( "*** END OF TEST 22 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp23/config.h b/testsuites/ada/sptests/sp23/config.h
index ba9b9f5..5af9f62 100644
--- a/testsuites/ada/sptests/sp23/config.h
+++ b/testsuites/ada/sptests/sp23/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS           2
+
+#define ADA_TEST_NAME "ADA SP 23"
 #define CONFIGURE_MAXIMUM_PORTS           1
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/sptests/sp23/sptest.adb b/testsuites/ada/sptests/sp23/sptest.adb
index e3a2871..4e88421 100644
--- a/testsuites/ada/sptests/sp23/sptest.adb
+++ b/testsuites/ada/sptests/sp23/sptest.adb
@@ -40,7 +40,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 23 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
 
@@ -167,7 +167,7 @@ package body SPTEST is
       RTEMS.PORT.DELETE( SPTEST.PORT_ID( 1 ), STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PORT_DELETE" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 23 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/sptests/sp24/config.h b/testsuites/ada/sptests/sp24/config.h
index 7ed712a..ee18ff3 100644
--- a/testsuites/ada/sptests/sp24/config.h
+++ b/testsuites/ada/sptests/sp24/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               4
+
+#define ADA_TEST_NAME "ADA SP 24"
 #define CONFIGURE_MAXIMUM_TIMERS              3
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/sptests/sp24/sptest.adb b/testsuites/ada/sptests/sp24/sptest.adb
index 4245036..af255e4 100644
--- a/testsuites/ada/sptests/sp24/sptest.adb
+++ b/testsuites/ada/sptests/sp24/sptest.adb
@@ -39,7 +39,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 24 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
 
@@ -145,7 +145,7 @@ package body SPTEST is
          TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
 
          if TIME.SECOND >= 35 then
-            TEXT_IO.PUT_LINE( "*** END OF TEST 24 ***" );
+            TEST_SUPPORT.ADA_TEST_END;
             RTEMS.SHUTDOWN_EXECUTIVE( 0 );
          end if;
 
diff --git a/testsuites/ada/sptests/sp25/config.h b/testsuites/ada/sptests/sp25/config.h
index 9d6155f..d7c6c19 100644
--- a/testsuites/ada/sptests/sp25/config.h
+++ b/testsuites/ada/sptests/sp25/config.h
@@ -17,6 +17,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS               2
+
+#define ADA_TEST_NAME "ADA SP 25"
 #define CONFIGURE_MAXIMUM_REGIONS             1
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/sptests/sp25/sptest.adb b/testsuites/ada/sptests/sp25/sptest.adb
index 1fb103e..1fff4c0 100644
--- a/testsuites/ada/sptests/sp25/sptest.adb
+++ b/testsuites/ada/sptests/sp25/sptest.adb
@@ -37,7 +37,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TEST 25 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
 
@@ -354,7 +354,7 @@ TEST_SUPPORT.PAUSE;
       RTEMS.REGION.DELETE( SPTEST.REGION_ID( 1 ), STATUS );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_DELETE OF RN1" );
 
-      TEXT_IO.PUT_LINE( "*** END OF TEST 25 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/sptests/spatcb01/config.h b/testsuites/ada/sptests/spatcb01/config.h
index 530f0dd..dad989d 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 19aaa80..810446f 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;
diff --git a/testsuites/ada/sptests/spname01/config.h b/testsuites/ada/sptests/spname01/config.h
index bab1fc5..8316f41 100644
--- a/testsuites/ada/sptests/spname01/config.h
+++ b/testsuites/ada/sptests/spname01/config.h
@@ -26,6 +26,8 @@
 
 #define CONFIGURE_MAXIMUM_TASKS              1
 
+#define ADA_TEST_NAME "ADA SPNAME 1"
+
 #include <rtems/confdefs.h>
 
 /* end of include file */
diff --git a/testsuites/ada/sptests/spname01/sptest.adb b/testsuites/ada/sptests/spname01/sptest.adb
index 5dd78d8..108ff3b 100644
--- a/testsuites/ada/sptests/spname01/sptest.adb
+++ b/testsuites/ada/sptests/spname01/sptest.adb
@@ -33,7 +33,7 @@ package body SPTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** Ada Task Name TEST ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer );
       if Pointer = RTEMS.Null_Address then
@@ -53,7 +53,7 @@ package body SPTEST is
          TEXT_IO.PUT_LINE( "My name is (" & StringName & ")" );
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF Ada Task Name TEST ***" );
+      TEST_SUPPORT.ADA_TEST_END;
 
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
diff --git a/testsuites/ada/support/init.c b/testsuites/ada/support/init.c
index 968b17b..9c10aab 100644
--- a/testsuites/ada/support/init.c
+++ b/testsuites/ada/support/init.c
@@ -3,9 +3,9 @@
  *  On-Line Applications Research Corporation (OAR).
  */
 
-#include <bsp.h>
 #include <stdlib.h>
 
+#include <rtems/test.h>
 #include <rtems/score/threadimpl.h>
 
 /*
@@ -26,6 +26,8 @@ static void *POSIX_Init(
  *  Prototypes for various test support routines. Since these are bound to
  *  from Ada, there are no external .h files even though they must be public.
  */
+void ada_test_begin(void);
+void ada_test_end(void);
 uint32_t milliseconds_per_tick(void);
 uint32_t ticks_per_second(void);
 uint32_t work_space_size(void);
@@ -41,8 +43,22 @@ rtems_id tcb_to_id(Thread_Control *tcb);
 #define CONFIGURE_GNAT_RTEMS
 #define CONFIGURE_MEMORY_OVERHEAD  (256)
 
+#define CONFIGURE_INITIAL_EXTENSIONS RTEMS_TEST_INITIAL_EXTENSION
+
 #include <config.h>
 
+const char rtems_test_name[] = ADA_TEST_NAME;
+
+void ada_test_begin(void)
+{
+  rtems_test_begin(rtems_test_name, RTEMS_TEST_STATE_PASS);
+}
+
+void ada_test_end(void)
+{
+  rtems_test_end(rtems_test_name);
+}
+
 rtems_id tcb_to_id(
   Thread_Control *tcb
 )
diff --git a/testsuites/ada/support/test_support.ads b/testsuites/ada/support/test_support.ads
index e41bf83..b1f2f55 100644
--- a/testsuites/ada/support/test_support.ads
+++ b/testsuites/ada/support/test_support.ads
@@ -22,6 +22,12 @@ with RTEMS;
 
 package Test_Support is
 
+   procedure Ada_Test_Begin;
+   pragma Import (C, Ada_Test_Begin, "ada_test_begin");
+
+   procedure Ada_Test_End;
+   pragma Import (C, Ada_Test_End, "ada_test_end");
+
 --
 --  Fatal_Directive_Status
 --
diff --git a/testsuites/ada/tmtests/tm01/config.h b/testsuites/ada/tmtests/tm01/config.h
index fac8bed..b2a0576 100644
--- a/testsuites/ada/tmtests/tm01/config.h
+++ b/testsuites/ada/tmtests/tm01/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              2
+
+#define ADA_TEST_NAME "ADA TM 1"
 #define CONFIGURE_MAXIMUM_SEMAPHORES         1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm01/tmtest.adb b/testsuites/ada/tmtests/tm01/tmtest.adb
index 31e54aa..4f48668 100644
--- a/testsuites/ada/tmtests/tm01/tmtest.adb
+++ b/testsuites/ada/tmtests/tm01/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 1 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
       TMTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME(  'T', 'A', '2', ' ' );
@@ -265,7 +265,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.SEMAPHORE_RELEASE 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 1 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;
diff --git a/testsuites/ada/tmtests/tm02/config.h b/testsuites/ada/tmtests/tm02/config.h
index ffb8dc3..18a1ad7 100644
--- a/testsuites/ada/tmtests/tm02/config.h
+++ b/testsuites/ada/tmtests/tm02/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 2"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_MAXIMUM_SEMAPHORES         101
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
diff --git a/testsuites/ada/tmtests/tm02/tmtest.adb b/testsuites/ada/tmtests/tm02/tmtest.adb
index 8fc9df5..c2386a5 100644
--- a/testsuites/ada/tmtests/tm02/tmtest.adb
+++ b/testsuites/ada/tmtests/tm02/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 2 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -198,7 +198,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.SEMAPHORE_OBTAIN 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 2 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tm03/config.h b/testsuites/ada/tmtests/tm03/config.h
index ffb8dc3..61daeb9 100644
--- a/testsuites/ada/tmtests/tm03/config.h
+++ b/testsuites/ada/tmtests/tm03/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 3"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_MAXIMUM_SEMAPHORES         101
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
diff --git a/testsuites/ada/tmtests/tm03/tmtest.adb b/testsuites/ada/tmtests/tm03/tmtest.adb
index a6e7606..577b5fd 100644
--- a/testsuites/ada/tmtests/tm03/tmtest.adb
+++ b/testsuites/ada/tmtests/tm03/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 3 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' ),
@@ -182,7 +182,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.SEMAPHORE_RELEASE
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 3 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm04/config.h b/testsuites/ada/tmtests/tm04/config.h
index 0a37e7f..42f8aee 100644
--- a/testsuites/ada/tmtests/tm04/config.h
+++ b/testsuites/ada/tmtests/tm04/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 4"
 #define CONFIGURE_MAXIMUM_SEMAPHORES         1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm04/tmtest.adb b/testsuites/ada/tmtests/tm04/tmtest.adb
index 7278bf2..581a15a 100644
--- a/testsuites/ada/tmtests/tm04/tmtest.adb
+++ b/testsuites/ada/tmtests/tm04/tmtest.adb
@@ -39,7 +39,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 4 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -397,7 +397,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_DELETE
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 4 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm05/config.h b/testsuites/ada/tmtests/tm05/config.h
index ffb8dc3..7b56b81 100644
--- a/testsuites/ada/tmtests/tm05/config.h
+++ b/testsuites/ada/tmtests/tm05/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 5"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_MAXIMUM_SEMAPHORES         101
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
diff --git a/testsuites/ada/tmtests/tm05/tmtest.adb b/testsuites/ada/tmtests/tm05/tmtest.adb
index c334acd..46362e7 100644
--- a/testsuites/ada/tmtests/tm05/tmtest.adb
+++ b/testsuites/ada/tmtests/tm05/tmtest.adb
@@ -38,7 +38,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 5 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -115,7 +115,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_RESUME
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 5 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm06/config.h b/testsuites/ada/tmtests/tm06/config.h
index ffb8dc3..c8ae6d5 100644
--- a/testsuites/ada/tmtests/tm06/config.h
+++ b/testsuites/ada/tmtests/tm06/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 6"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_MAXIMUM_SEMAPHORES         101
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
diff --git a/testsuites/ada/tmtests/tm06/tmtest.adb b/testsuites/ada/tmtests/tm06/tmtest.adb
index 2f0f8b1..fc43355 100644
--- a/testsuites/ada/tmtests/tm06/tmtest.adb
+++ b/testsuites/ada/tmtests/tm06/tmtest.adb
@@ -38,7 +38,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 6 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -180,7 +180,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_DELETE
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 6 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/tmtests/tm07/config.h b/testsuites/ada/tmtests/tm07/config.h
index ffb8dc3..f6ca20e 100644
--- a/testsuites/ada/tmtests/tm07/config.h
+++ b/testsuites/ada/tmtests/tm07/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 7"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_MAXIMUM_SEMAPHORES         101
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
diff --git a/testsuites/ada/tmtests/tm07/tmtest.adb b/testsuites/ada/tmtests/tm07/tmtest.adb
index c3a2c62..4f2f4ab 100644
--- a/testsuites/ada/tmtests/tm07/tmtest.adb
+++ b/testsuites/ada/tmtests/tm07/tmtest.adb
@@ -38,7 +38,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 7 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -114,7 +114,7 @@ package body TMTEST is
          RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
       end if;
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 07 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm08/config.h b/testsuites/ada/tmtests/tm08/config.h
index ffb8dc3..1c6324f 100644
--- a/testsuites/ada/tmtests/tm08/config.h
+++ b/testsuites/ada/tmtests/tm08/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 8"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_MAXIMUM_SEMAPHORES         101
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
diff --git a/testsuites/ada/tmtests/tm08/tmtest.adb b/testsuites/ada/tmtests/tm08/tmtest.adb
index c1dbcb3..9f14c93 100644
--- a/testsuites/ada/tmtests/tm08/tmtest.adb
+++ b/testsuites/ada/tmtests/tm08/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 8 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -266,7 +266,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.CLOCK_GET
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 8 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TEST_TASK;
diff --git a/testsuites/ada/tmtests/tm09/config.h b/testsuites/ada/tmtests/tm09/config.h
index 5b40e5c..c14f17c 100644
--- a/testsuites/ada/tmtests/tm09/config.h
+++ b/testsuites/ada/tmtests/tm09/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              2
+
+#define ADA_TEST_NAME "ADA TM 9"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm09/tmtest.adb b/testsuites/ada/tmtests/tm09/tmtest.adb
index 432a7b5..ee54c19 100644
--- a/testsuites/ada/tmtests/tm09/tmtest.adb
+++ b/testsuites/ada/tmtests/tm09/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 9 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          1,
@@ -108,7 +108,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_DELETE
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 9 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TEST_TASK;
diff --git a/testsuites/ada/tmtests/tm10/config.h b/testsuites/ada/tmtests/tm10/config.h
index 7d4d661..fd96463 100644
--- a/testsuites/ada/tmtests/tm10/config.h
+++ b/testsuites/ada/tmtests/tm10/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              110
+
+#define ADA_TEST_NAME "ADA TM 10"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm10/tmtest.adb b/testsuites/ada/tmtests/tm10/tmtest.adb
index 9a92266..23e2513 100644
--- a/testsuites/ada/tmtests/tm10/tmtest.adb
+++ b/testsuites/ada/tmtests/tm10/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 10 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -212,7 +212,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_RECEIVE 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 10 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tm11/config.h b/testsuites/ada/tmtests/tm11/config.h
index f5412f0..e4ed6d1 100644
--- a/testsuites/ada/tmtests/tm11/config.h
+++ b/testsuites/ada/tmtests/tm11/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 11"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm11/tmtest.adb b/testsuites/ada/tmtests/tm11/tmtest.adb
index 610c248..b454462 100644
--- a/testsuites/ada/tmtests/tm11/tmtest.adb
+++ b/testsuites/ada/tmtests/tm11/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 11 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          1,
@@ -174,7 +174,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_SEND 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 11 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm12/config.h b/testsuites/ada/tmtests/tm12/config.h
index f5412f0..1d9df47 100644
--- a/testsuites/ada/tmtests/tm12/config.h
+++ b/testsuites/ada/tmtests/tm12/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 12"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm12/tmtest.adb b/testsuites/ada/tmtests/tm12/tmtest.adb
index a97330f..11a4f6a 100644
--- a/testsuites/ada/tmtests/tm12/tmtest.adb
+++ b/testsuites/ada/tmtests/tm12/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 12 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          1,
@@ -168,7 +168,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_SEND 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 12 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm13/config.h b/testsuites/ada/tmtests/tm13/config.h
index f5412f0..b05713d 100644
--- a/testsuites/ada/tmtests/tm13/config.h
+++ b/testsuites/ada/tmtests/tm13/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 13"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm13/tmtest.adb b/testsuites/ada/tmtests/tm13/tmtest.adb
index aa9a760..6bb8d3f 100644
--- a/testsuites/ada/tmtests/tm13/tmtest.adb
+++ b/testsuites/ada/tmtests/tm13/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 13 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          1,
@@ -172,7 +172,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_URGENT 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 13 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm14/config.h b/testsuites/ada/tmtests/tm14/config.h
index f5412f0..ee8a005 100644
--- a/testsuites/ada/tmtests/tm14/config.h
+++ b/testsuites/ada/tmtests/tm14/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 14"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm14/tmtest.adb b/testsuites/ada/tmtests/tm14/tmtest.adb
index adde5de..b2f676e 100644
--- a/testsuites/ada/tmtests/tm14/tmtest.adb
+++ b/testsuites/ada/tmtests/tm14/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 14 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          1,
@@ -179,7 +179,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_URGENT 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 14 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm15/config.h b/testsuites/ada/tmtests/tm15/config.h
index f5412f0..1753ca0 100644
--- a/testsuites/ada/tmtests/tm15/config.h
+++ b/testsuites/ada/tmtests/tm15/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 15"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm15/tmtest.adb b/testsuites/ada/tmtests/tm15/tmtest.adb
index 2a7efed..33ff7df 100644
--- a/testsuites/ada/tmtests/tm15/tmtest.adb
+++ b/testsuites/ada/tmtests/tm15/tmtest.adb
@@ -38,7 +38,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 15 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -232,7 +232,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.EVENT_SEND 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 15 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tm16/config.h b/testsuites/ada/tmtests/tm16/config.h
index f5412f0..324be4e 100644
--- a/testsuites/ada/tmtests/tm16/config.h
+++ b/testsuites/ada/tmtests/tm16/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 16"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm16/tmtest.adb b/testsuites/ada/tmtests/tm16/tmtest.adb
index 4be7a6b..982adc8 100644
--- a/testsuites/ada/tmtests/tm16/tmtest.adb
+++ b/testsuites/ada/tmtests/tm16/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 16 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          RTEMS.BUILD_NAME( 'T', 'E', 'S', 'T' ),
@@ -188,7 +188,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.EVENT_SEND 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 16 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end HIGH_TASK;
diff --git a/testsuites/ada/tmtests/tm17/config.h b/testsuites/ada/tmtests/tm17/config.h
index f5412f0..9eb0d0f 100644
--- a/testsuites/ada/tmtests/tm17/config.h
+++ b/testsuites/ada/tmtests/tm17/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 17"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm17/tmtest.adb b/testsuites/ada/tmtests/tm17/tmtest.adb
index 5e64558..1e093c8 100644
--- a/testsuites/ada/tmtests/tm17/tmtest.adb
+++ b/testsuites/ada/tmtests/tm17/tmtest.adb
@@ -39,7 +39,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 17 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TASK_PRIORITY := 254;
 
@@ -147,7 +147,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_SET_PRIORITY 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 17 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LAST_TASK;
diff --git a/testsuites/ada/tmtests/tm18/config.h b/testsuites/ada/tmtests/tm18/config.h
index f5412f0..cebc065 100644
--- a/testsuites/ada/tmtests/tm18/config.h
+++ b/testsuites/ada/tmtests/tm18/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 18"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm18/tmtest.adb b/testsuites/ada/tmtests/tm18/tmtest.adb
index e86b24c..25c4594 100644
--- a/testsuites/ada/tmtests/tm18/tmtest.adb
+++ b/testsuites/ada/tmtests/tm18/tmtest.adb
@@ -39,7 +39,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 18 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.TEST_INIT;
 
@@ -143,7 +143,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_DELETE 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 18 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LAST_TASK;
diff --git a/testsuites/ada/tmtests/tm19/config.h b/testsuites/ada/tmtests/tm19/config.h
index f5412f0..b41632e 100644
--- a/testsuites/ada/tmtests/tm19/config.h
+++ b/testsuites/ada/tmtests/tm19/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 19"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm19/tmtest.adb b/testsuites/ada/tmtests/tm19/tmtest.adb
index 288a6a7..df05cb4 100644
--- a/testsuites/ada/tmtests/tm19/tmtest.adb
+++ b/testsuites/ada/tmtests/tm19/tmtest.adb
@@ -39,7 +39,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 19 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' ),
@@ -279,7 +279,7 @@ package body TMTEST is
          0
      );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 19 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_3;
diff --git a/testsuites/ada/tmtests/tm20/config.h b/testsuites/ada/tmtests/tm20/config.h
index 5ba47ff..2085f4e 100644
--- a/testsuites/ada/tmtests/tm20/config.h
+++ b/testsuites/ada/tmtests/tm20/config.h
@@ -21,6 +21,8 @@
 #define CONFIGURE_MAXIMUM_PARTITIONS         1
 #define CONFIGURE_MAXIMUM_REGIONS            1
 #define CONFIGURE_MAXIMUM_TASKS              3
+
+#define ADA_TEST_NAME "ADA TM 20"
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/tmtests/tm20/tmtest.adb b/testsuites/ada/tmtests/tm20/tmtest.adb
index 4a997f3..d17e660 100644
--- a/testsuites/ada/tmtests/tm20/tmtest.adb
+++ b/testsuites/ada/tmtests/tm20/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 20 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          RTEMS.BUILD_NAME( 'T', 'I', 'M', '1' ),
@@ -394,7 +394,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.REGION_DELETE 
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 20 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/tmtests/tm21/config.h b/testsuites/ada/tmtests/tm21/config.h
index 92e63bd..1398cd6 100644
--- a/testsuites/ada/tmtests/tm21/config.h
+++ b/testsuites/ada/tmtests/tm21/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              102
+
+#define ADA_TEST_NAME "ADA TM 21"
 #define CONFIGURE_MAXIMUM_TIMERS             100
 #define CONFIGURE_MAXIMUM_SEMAPHORES         100
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     100
diff --git a/testsuites/ada/tmtests/tm21/tmtest.adb b/testsuites/ada/tmtests/tm21/tmtest.adb
index 2453769..9cf2d09 100644
--- a/testsuites/ada/tmtests/tm21/tmtest.adb
+++ b/testsuites/ada/tmtests/tm21/tmtest.adb
@@ -46,7 +46,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 21 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' ),
@@ -296,7 +296,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.RATE_MONOTONIC_IDENT
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 21 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end TASK_1;
diff --git a/testsuites/ada/tmtests/tm22/config.h b/testsuites/ada/tmtests/tm22/config.h
index 2bceeec..7da5388 100644
--- a/testsuites/ada/tmtests/tm22/config.h
+++ b/testsuites/ada/tmtests/tm22/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              103
+
+#define ADA_TEST_NAME "ADA TM 22"
 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm22/tmtest.adb b/testsuites/ada/tmtests/tm22/tmtest.adb
index ea1afc8..0ef326b 100644
--- a/testsuites/ada/tmtests/tm22/tmtest.adb
+++ b/testsuites/ada/tmtests/tm22/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 22 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.MESSAGE_QUEUE.CREATE( 
          RTEMS.BUILD_NAME( 'M', 'Q', '1', ' ' ),
@@ -215,7 +215,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.MESSAGE_QUEUE_BROADCAST
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 22 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tm23/config.h b/testsuites/ada/tmtests/tm23/config.h
index 1873730..98fcf60 100644
--- a/testsuites/ada/tmtests/tm23/config.h
+++ b/testsuites/ada/tmtests/tm23/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 23"
 #define CONFIGURE_MAXIMUM_TIMERS             110
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm23/tmtest.adb b/testsuites/ada/tmtests/tm23/tmtest.adb
index 4b5a26f..6115416 100644
--- a/testsuites/ada/tmtests/tm23/tmtest.adb
+++ b/testsuites/ada/tmtests/tm23/tmtest.adb
@@ -43,7 +43,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 23 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TASK_PRIORITY := 5;
 
@@ -380,7 +380,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_WAKE_WHEN
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 23 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tm24/config.h b/testsuites/ada/tmtests/tm24/config.h
index 0e9cbf4..207ac7e 100644
--- a/testsuites/ada/tmtests/tm24/config.h
+++ b/testsuites/ada/tmtests/tm24/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 24"
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
 #define CONFIGURE_POSIX_INIT_THREAD_TABLE
diff --git a/testsuites/ada/tmtests/tm24/tmtest.adb b/testsuites/ada/tmtests/tm24/tmtest.adb
index 2bcd220..b5830ce 100644
--- a/testsuites/ada/tmtests/tm24/tmtest.adb
+++ b/testsuites/ada/tmtests/tm24/tmtest.adb
@@ -40,7 +40,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 24 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIMER_DRIVER.INITIALIZE;
          for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
@@ -148,7 +148,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.TASK_WAKE_AFTER
          );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 24 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
          RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
       end if;
diff --git a/testsuites/ada/tmtests/tm25/config.h b/testsuites/ada/tmtests/tm25/config.h
index 0a37e7f..79b6724 100644
--- a/testsuites/ada/tmtests/tm25/config.h
+++ b/testsuites/ada/tmtests/tm25/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 25"
 #define CONFIGURE_MAXIMUM_SEMAPHORES         1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm25/tmtest.adb b/testsuites/ada/tmtests/tm25/tmtest.adb
index 8710052..63d68d4 100644
--- a/testsuites/ada/tmtests/tm25/tmtest.adb
+++ b/testsuites/ada/tmtests/tm25/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 25 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.SEMAPHORE.CREATE(
          RTEMS.BUILD_NAME( 'S', 'M', '1', ' ' ),
@@ -147,7 +147,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.CLOCK_TICK
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 25 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tm28/config.h b/testsuites/ada/tmtests/tm28/config.h
index d050077..aca1947 100644
--- a/testsuites/ada/tmtests/tm28/config.h
+++ b/testsuites/ada/tmtests/tm28/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              2
+
+#define ADA_TEST_NAME "ADA TM 28"
 #define CONFIGURE_MAXIMUM_PORTS              1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm28/tmtest.adb b/testsuites/ada/tmtests/tm28/tmtest.adb
index 189090e..71b6edc 100644
--- a/testsuites/ada/tmtests/tm28/tmtest.adb
+++ b/testsuites/ada/tmtests/tm28/tmtest.adb
@@ -38,7 +38,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 28 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       RTEMS.TASKS.CREATE( 
          RTEMS.BUILD_NAME( 'T', 'E', 'S', 'T' ),
@@ -163,7 +163,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.PORT_DELETE
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 28 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  
    end TEST_TASK;
diff --git a/testsuites/ada/tmtests/tm29/config.h b/testsuites/ada/tmtests/tm29/config.h
index 85aa0d9..fd99933 100644
--- a/testsuites/ada/tmtests/tm29/config.h
+++ b/testsuites/ada/tmtests/tm29/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              111
+
+#define ADA_TEST_NAME "ADA TM 29"
 #define CONFIGURE_MAXIMUM_PERIODS            111
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tm29/tmtest.adb b/testsuites/ada/tmtests/tm29/tmtest.adb
index 0a6a31b..c77fbc0 100644
--- a/testsuites/ada/tmtests/tm29/tmtest.adb
+++ b/testsuites/ada/tmtests/tm29/tmtest.adb
@@ -41,7 +41,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST 29 ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TMTEST.PERIOD_NAME := RTEMS.BUILD_NAME( 'P', 'R', 'D', ' ' );
 
@@ -228,7 +228,7 @@ package body TMTEST is
          RTEMS_CALLING_OVERHEAD.RATE_MONOTONIC_PERIOD
       );
    
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST 29 ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
 
    end LOW_TASK;
diff --git a/testsuites/ada/tmtests/tmck/config.h b/testsuites/ada/tmtests/tmck/config.h
index fac8bed..40b5622 100644
--- a/testsuites/ada/tmtests/tmck/config.h
+++ b/testsuites/ada/tmtests/tmck/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              2
+
+#define ADA_TEST_NAME "ADA TMCK"
 #define CONFIGURE_MAXIMUM_SEMAPHORES         1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tmck/tmtest.adb b/testsuites/ada/tmtests/tmck/tmtest.adb
index 8da1ff2..d1d7659 100644
--- a/testsuites/ada/tmtests/tmck/tmtest.adb
+++ b/testsuites/ada/tmtests/tmck/tmtest.adb
@@ -39,7 +39,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST CHECK ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE );
 
@@ -149,7 +149,7 @@ TEST_SUPPORT.PAUSE;
          0
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST CHECK ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;
diff --git a/testsuites/ada/tmtests/tmoverhd/config.h b/testsuites/ada/tmtests/tmoverhd/config.h
index fac8bed..df551c9 100644
--- a/testsuites/ada/tmtests/tmoverhd/config.h
+++ b/testsuites/ada/tmtests/tmoverhd/config.h
@@ -19,6 +19,8 @@
 #define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
 
 #define CONFIGURE_MAXIMUM_TASKS              2
+
+#define ADA_TEST_NAME "ADA TMOVERHD"
 #define CONFIGURE_MAXIMUM_SEMAPHORES         1
 #define CONFIGURE_TICKS_PER_TIMESLICE        0
 
diff --git a/testsuites/ada/tmtests/tmoverhd/tmtest.adb b/testsuites/ada/tmtests/tmoverhd/tmtest.adb
index 58c5ad0..d271ed2 100644
--- a/testsuites/ada/tmtests/tmoverhd/tmtest.adb
+++ b/testsuites/ada/tmtests/tmoverhd/tmtest.adb
@@ -39,7 +39,7 @@ package body TMTEST is
    begin
 
       TEXT_IO.NEW_LINE( 2 );
-      TEXT_IO.PUT_LINE( "*** TIME TEST OVERHEAD ***" );
+      TEST_SUPPORT.ADA_TEST_BEGIN;
 
       TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE );
 
@@ -1355,7 +1355,7 @@ TEST_SUPPORT.PAUSE;
          0
       );
 
-      TEXT_IO.PUT_LINE( "*** END OF TIME TEST OVERHEAD ***" );
+      TEST_SUPPORT.ADA_TEST_END;
       RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    
    end TASK_1;




More information about the vc mailing list