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