Changeset f6c9334d in rtems for testsuites/ada/support


Ignore:
Timestamp:
Dec 1, 2017, 7:51:17 AM (2 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
master
Children:
a01e169
Parents:
6899a8d
git-author:
Sebastian Huber <sebastian.huber@…> (12/01/17 07:51:17)
git-committer:
Sebastian Huber <sebastian.huber@…> (12/01/17 08:52:41)
Message:

ada: Add standard test begin/end message

Location:
testsuites/ada/support
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • testsuites/ada/support/init.c

    r6899a8d rf6c9334d  
    44 */
    55
    6 #include <bsp.h>
    76#include <stdlib.h>
    87
     8#include <rtems/test.h>
    99#include <rtems/score/threadimpl.h>
    1010
     
    2727 *  from Ada, there are no external .h files even though they must be public.
    2828 */
     29void ada_test_begin(void);
     30void ada_test_end(void);
    2931uint32_t milliseconds_per_tick(void);
    3032uint32_t ticks_per_second(void);
     
    4244#define CONFIGURE_MEMORY_OVERHEAD  (256)
    4345
     46#define CONFIGURE_INITIAL_EXTENSIONS RTEMS_TEST_INITIAL_EXTENSION
     47
    4448#include <config.h>
     49
     50const char rtems_test_name[] = ADA_TEST_NAME;
     51
     52void ada_test_begin(void)
     53{
     54  rtems_test_begin(rtems_test_name, RTEMS_TEST_STATE_PASS);
     55}
     56
     57void ada_test_end(void)
     58{
     59  rtems_test_end(rtems_test_name);
     60}
    4561
    4662rtems_id tcb_to_id(
  • testsuites/ada/support/test_support.ads

    r6899a8d rf6c9334d  
    2222
    2323package Test_Support is
     24
     25   procedure Ada_Test_Begin;
     26   pragma Import (C, Ada_Test_Begin, "ada_test_begin");
     27
     28   procedure Ada_Test_End;
     29   pragma Import (C, Ada_Test_End, "ada_test_end");
    2430
    2531--
Note: See TracChangeset for help on using the changeset viewer.