[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