RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

ada: Add standard test begin/end message

Browse Source
This commit is contained in:
Sebastian Huber
2017-12-01 08:51:17 +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

2
testsuites/ada/mptests/mp01/config_base.h
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

5
testsuites/ada/mptests/mp01/mptest.adb
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 );

2
testsuites/ada/mptests/mp03/config_base.h
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

5
testsuites/ada/mptests/mp03/mptest.adb
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 );

2
testsuites/ada/mptests/mp04/config_base.h
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

5
testsuites/ada/mptests/mp04/mptest.adb
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 );

2
testsuites/ada/mptests/mp05/config_base.h
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

5
testsuites/ada/mptests/mp05/mptest.adb
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 );

2
testsuites/ada/mptests/mp06/config_base.h
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

5
testsuites/ada/mptests/mp06/mptest.adb
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 );

2
testsuites/ada/mptests/mp07/config_base.h
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

5
testsuites/ada/mptests/mp07/mptest.adb
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 );

2
testsuites/ada/mptests/mp08/config_base.h
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

7
testsuites/ada/mptests/mp08/mptest.adb
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 );

2
testsuites/ada/mptests/mp09/config_base.h
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

5
testsuites/ada/mptests/mp09/mptest.adb
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 );

2
testsuites/ada/mptests/mp10/config_base.h
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

5
testsuites/ada/mptests/mp10/mptest.adb
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 );

2
testsuites/ada/mptests/mp11/config_base.h
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

5
testsuites/ada/mptests/mp11/mptest.adb
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 );

2
testsuites/ada/mptests/mp12/config_base.h
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

5
testsuites/ada/mptests/mp12/mptest.adb
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 );

2
testsuites/ada/mptests/mp13/config_base.h
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

7
testsuites/ada/mptests/mp13/mptest.adb
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 );

2
testsuites/ada/mptests/mp14/config_base.h
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

3
testsuites/ada/mptests/mp14/mptest.adb
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

2
testsuites/ada/samples/base_mp/config.h
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

4
testsuites/ada/samples/base_mp/mptest.adb
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 );

2
testsuites/ada/samples/base_sp/config.h
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 */

4
testsuites/ada/samples/base_sp/sptest.adb
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 );

2
testsuites/ada/samples/hello/config.h
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 */

5
testsuites/ada/samples/hello/sptest.adb
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 );

2
testsuites/ada/samples/nsecs/config.h
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 */

5
testsuites/ada/samples/nsecs/sptest.adb
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 );

2
testsuites/ada/samples/ticker/config.h
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 */

4
testsuites/ada/samples/ticker/sptest.adb
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;

2
testsuites/ada/sptests/sp01/config.h
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 */

4
testsuites/ada/sptests/sp01/sptest.adb
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;

2
testsuites/ada/sptests/sp02/config.h
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 */

4
testsuites/ada/sptests/sp02/sptest.adb
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;

2
testsuites/ada/sptests/sp03/config.h
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 */

4
testsuites/ada/sptests/sp03/sptest.adb
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;

2
testsuites/ada/sptests/sp04/config.h
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 */

4
testsuites/ada/sptests/sp04/sptest.adb
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;

2
testsuites/ada/sptests/sp05/config.h
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 */

4
testsuites/ada/sptests/sp05/sptest.adb
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;

2
testsuites/ada/sptests/sp06/config.h
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 */

4
testsuites/ada/sptests/sp06/sptest.adb
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;

2
testsuites/ada/sptests/sp07/config.h
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 */

4
testsuites/ada/sptests/sp07/sptest.adb
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;

2
testsuites/ada/sptests/sp08/config.h
View File

@@ -25,6 +25,8 @@
#define CONFIGURE_MAXIMUM_TASKS 2
#define ADA_TEST_NAME "ADA SP 8"
#include <rtems/confdefs.h>
/* end of include file */

4
testsuites/ada/sptests/sp08/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp09/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp09/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp11/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp11/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp12/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp12/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp13/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp13/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp14/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp14/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp15/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp15/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp16/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp16/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp17/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp17/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp19/config.h
View File

@@ -23,6 +23,8 @@
#define CONFIGURE_MAXIMUM_TASKS 7
#define ADA_TEST_NAME "ADA SP 19"
#include <rtems/confdefs.h>
/* end of include file */

4
testsuites/ada/sptests/sp19/sptest.adp
View File

@@ -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;

2
testsuites/ada/sptests/sp20/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp20/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp22/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp22/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp23/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp23/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp24/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp24/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/sp25/config.h
View File

@@ -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

4
testsuites/ada/sptests/sp25/sptest.adb
View File

@@ -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;

2
testsuites/ada/sptests/spatcb01/config.h
View File

@@ -13,4 +13,6 @@
#define CONFIGURE_MAXIMUM_POSIX_THREADS 1
#define ADA_TEST_NAME "ADA SPATCB 1"
#include <rtems/confdefs.h>

5
testsuites/ada/sptests/spatcb01/spatcb01.adb
View File

@@ -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;

2
testsuites/ada/sptests/spname01/config.h
View File

@@ -26,6 +26,8 @@
#define CONFIGURE_MAXIMUM_TASKS 1
#define ADA_TEST_NAME "ADA SPNAME 1"
#include <rtems/confdefs.h>
/* end of include file */

4
testsuites/ada/sptests/spname01/sptest.adb
View File

@@ -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 );

18
testsuites/ada/support/init.c
View File

@@ -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
)

6
testsuites/ada/support/test_support.ads
View File

@@ -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
--

2
testsuites/ada/tmtests/tm01/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm01/tmtest.adb
View File

@@ -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;

2
testsuites/ada/tmtests/tm02/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm02/tmtest.adb
View File

@@ -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;

2
testsuites/ada/tmtests/tm03/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm03/tmtest.adb
View File

@@ -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;

2
testsuites/ada/tmtests/tm04/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm04/tmtest.adb
View File

@@ -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;

2
testsuites/ada/tmtests/tm05/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm05/tmtest.adb
View File

@@ -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;

2
testsuites/ada/tmtests/tm06/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm06/tmtest.adb
View File

@@ -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;

2
testsuites/ada/tmtests/tm07/config.h
View File

@@ -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

4
testsuites/ada/tmtests/tm07/tmtest.adb
View File

@@ -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;

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