diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 08:51:17 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 09:52:41 +0100 |
commit | f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e (patch) | |
tree | 2a06c91d9977552a5a42292fb9cbd8094b7f6485 /testsuites/ada/support | |
parent | ada: Delete superfluous CONFIGURE_SPTEST (diff) | |
download | rtems-f6c9334d9b78d8a9791b2ba3ab401c43fb6eb39e.tar.bz2 |
ada: Add standard test begin/end message
Diffstat (limited to 'testsuites/ada/support')
-rw-r--r-- | testsuites/ada/support/init.c | 18 | ||||
-rw-r--r-- | testsuites/ada/support/test_support.ads | 6 |
2 files changed, 23 insertions, 1 deletions
diff --git a/testsuites/ada/support/init.c b/testsuites/ada/support/init.c index 968b17b3a4..9c10aabca5 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 e41bf834ed..b1f2f55280 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 -- |