Mirrors_Framework/rtems
1
0
Fork 0
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2026-09-20 16:39:02 +08:00
Code Issues Packages Projects Releases Wiki Activity

ada: Add standard test begin/end message

Browse Source
This commit is contained in:
Sebastian Huber
2017-12-01 09:52:41 +01:00
parent 6899a8d79d
commit f6c9334d9b
144 changed files with 324 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files
testsuites/ada/mptests/mp01/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp01/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp03/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp03/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp04/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp04/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp05/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp05/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp06/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp06/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp07/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp07/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp08/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp08/mptest.adb
+4 -3
View File
@@ -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 );
testsuites/ada/mptests/mp09/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp09/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp10/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp10/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp11/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp11/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp12/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp12/mptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/mptests/mp13/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp13/mptest.adb
+4 -3
View File
@@ -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 );
testsuites/ada/mptests/mp14/config_base.h
+2
View File
@@ -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
testsuites/ada/mptests/mp14/mptest.adb
+2 -1
View File
@@ -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
testsuites/ada/samples/base_mp/config.h
+2
View File
@@ -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
testsuites/ada/samples/base_mp/mptest.adb
+2 -2
View File
@@ -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 );
testsuites/ada/samples/base_sp/config.h
+2
View File
@@ -23,6 +23,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
#define ADA_TEST_NAME "ADA BASE SP"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/samples/base_sp/sptest.adb
+2 -2
View File
@@ -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 );
testsuites/ada/samples/hello/config.h
+2
View File
@@ -26,6 +26,8 @@
#define CONFIGURE_MAXIMUM_TASKS 1
#define ADA_TEST_NAME "ADA HELLO"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/samples/hello/sptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/samples/nsecs/config.h
+2
View File
@@ -25,6 +25,8 @@
#define CONFIGURE_MAXIMUM_TASKS 1
#define ADA_TEST_NAME "ADA NSECS"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/samples/nsecs/sptest.adb
+3 -2
View File
@@ -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 );
testsuites/ada/samples/ticker/config.h
+2
View File
@@ -23,6 +23,8 @@
#define CONFIGURE_MAXIMUM_TASKS 4
#define ADA_TEST_NAME "ADA TICKER"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/samples/ticker/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp01/config.h
+2
View File
@@ -23,6 +23,8 @@
#define CONFIGURE_MAXIMUM_TASKS 4
#define ADA_TEST_NAME "ADA SP 1"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp01/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp02/config.h
+2
View File
@@ -23,6 +23,8 @@
#define CONFIGURE_MAXIMUM_TASKS 4
#define ADA_TEST_NAME "ADA SP 2"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp02/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp03/config.h
+2
View File
@@ -23,6 +23,8 @@
#define CONFIGURE_MAXIMUM_TASKS 3
#define ADA_TEST_NAME "ADA SP 3"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp03/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp04/config.h
+2
View File
@@ -26,6 +26,8 @@
#define CONFIGURE_MAXIMUM_TASKS 4
#define ADA_TEST_NAME "ADA SP 4"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp04/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp05/config.h
+2
View File
@@ -25,6 +25,8 @@
#define CONFIGURE_MAXIMUM_TASKS 4
#define ADA_TEST_NAME "ADA SP 5"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp05/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp06/config.h
+2
View File
@@ -25,6 +25,8 @@
#define CONFIGURE_MAXIMUM_TASKS 4
#define ADA_TEST_NAME "ADA SP 6"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp06/sptest.adb
+2 -2
View File
@@ -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;
testsuites/ada/sptests/sp07/config.h
+2
View File
@@ -26,6 +26,8 @@
#define CONFIGURE_MAXIMUM_TASKS 5
#define ADA_TEST_NAME "ADA SP 7"
#include <rtems/confdefs.h>
/* end of include file */
testsuites/ada/sptests/sp07/sptest.adb
+2 -2
View File
@@ -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;

Some files were not shown because too many files have changed in this diff Show More