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