Changeset f6c9334d in rtems


Ignore:
Timestamp:
Dec 1, 2017, 7:51:17 AM (3 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
5, 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
Files:
144 edited

Legend:

Unmodified
Added
Removed
  • testsuites/ada/mptests/mp01/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 1"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp01/mptest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT( "*** TEST 1 -- NODE " );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
     45      TEXT_IO.PUT( "*** NODE " );
    4546      UNSIGNED32_IO.PUT(
    4647         TEST_SUPPORT.NODE,
     
    222223      end if;
    223224
    224       TEXT_IO.PUT_LINE( "*** END OF TEST 1 ***" );
     225      TEST_SUPPORT.ADA_TEST_END;
    225226
    226227      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp03/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 3"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp03/mptest.adb

    r6899a8d rf6c9334d  
    3737
    3838      TEXT_IO.NEW_LINE( 2 );
    39       TEXT_IO.PUT( "*** TEST 3 -- NODE " );
     39      TEST_SUPPORT.ADA_TEST_BEGIN;
     40      TEXT_IO.PUT( "*** NODE " );
    4041      UNSIGNED32_IO.PUT(
    4142         TEST_SUPPORT.NODE,
     
    168169      MPTEST.TEST_TASK_SUPPORT( 2 );
    169170
    170       TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );
     171      TEST_SUPPORT.ADA_TEST_END;
    171172
    172173      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp04/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 4"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp04/mptest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT( "*** TEST 4 -- NODE " );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
     42      TEXT_IO.PUT( "*** NODE " );
    4243      UNSIGNED32_IO.PUT(
    4344         TEST_SUPPORT.NODE,
     
    155156      TEXT_IO.PUT_LINE( "Local task priority has been set" );
    156157
    157       TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
     158      TEST_SUPPORT.ADA_TEST_END;
    158159
    159160      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp05/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 5"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp05/mptest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT( "*** TEST 5 -- NODE " );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
     45      TEXT_IO.PUT( "*** NODE " );
    4546      UNSIGNED32_IO.PUT(
    4647         TEST_SUPPORT.NODE,
     
    239240
    240241      TEXT_IO.NEW_LINE;
    241       TEXT_IO.PUT_LINE( "*** END OF TEST 5 ***" );
     242      TEST_SUPPORT.ADA_TEST_END;
    242243
    243244      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp06/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 6"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp06/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 6 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    244245      end if;
    245246
    246       TEXT_IO.PUT_LINE( "*** END OF TEST 6 ***" );
     247      TEST_SUPPORT.ADA_TEST_END;
    247248
    248249      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp07/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 7"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp07/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 7 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    196197      TEXT_IO.NEW_LINE;
    197198
    198       TEXT_IO.PUT_LINE( "*** END OF TEST 7 ***" );
     199      TEST_SUPPORT.ADA_TEST_END;
    199200
    200201      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp08/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 8"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp08/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 8 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    164165            TEXT_IO.PUT_LINE( "Global semaphore deleted" );
    165166
    166             TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
     167            TEST_SUPPORT.ADA_TEST_END;
    167168
    168169            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
     
    185186            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
    186187
    187             TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
     188            TEST_SUPPORT.ADA_TEST_END;
    188189
    189190            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp09/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 9"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp09/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 9 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    365366      end if;
    366367
    367       TEXT_IO.PUT_LINE( "*** END OF TEST 9 ***" );
     368      TEST_SUPPORT.ADA_TEST_END;
    368369
    369370      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp10/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 10"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp10/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 10 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    165166      end if;
    166167
    167       TEXT_IO.PUT_LINE( "*** END OF TEST 10 ***" );
     168      TEST_SUPPORT.ADA_TEST_END;
    168169
    169170      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp11/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 11"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp11/mptest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT( "*** TEST 11 -- NODE " );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
     45      TEXT_IO.PUT( "*** NODE " );
    4546      UNSIGNED32_IO.PUT(
    4647         TEST_SUPPORT.NODE,
     
    128129      end if;
    129130
    130       TEXT_IO.PUT_LINE( "*** END OF TEST 11 ***" );
     131      TEST_SUPPORT.ADA_TEST_END;
    131132
    132133      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp12/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 12"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp12/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 12 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    140141      end if;
    141142
    142       TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
     143      TEST_SUPPORT.ADA_TEST_END;
    143144
    144145      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp13/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 13"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp13/mptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT( "*** TEST 13 -- NODE " );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
     44      TEXT_IO.PUT( "*** NODE " );
    4445      UNSIGNED32_IO.PUT(
    4546         TEST_SUPPORT.NODE,
     
    134135         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    135136
    136          TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
     137         TEST_SUPPORT.ADA_TEST_END;
    137138
    138139         RTEMS.SHUTDOWN_EXECUTIVE( 0 );
     
    315316      TEXT_IO.PUT_LINE( "semaphore_obtain correctly returned TIMEOUT" );
    316317
    317       TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
     318      TEST_SUPPORT.ADA_TEST_END;
    318319
    319320      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/mptests/mp14/config_base.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS                       2
    2222
     23#define ADA_TEST_NAME "ADA MP 14"
     24
    2325#define CONFIGURE_MAXIMUM_POSIX_THREADS              10
    2426#define CONFIGURE_MAXIMUM_POSIX_KEYS                 10
  • testsuites/ada/mptests/mp14/mptest.adb

    r6899a8d rf6c9334d  
    8383
    8484      TEXT_IO.NEW_LINE( 2 );
    85       TEXT_IO.PUT( "*** TEST 14 -- NODE " );
     85      TEST_SUPPORT.ADA_TEST_BEGIN;
     86      TEXT_IO.PUT( "*** NODE " );
    8687      UNSIGNED32_IO.PUT(
    8788         TEST_SUPPORT.NODE,
  • testsuites/ada/samples/base_mp/config.h

    r6899a8d rf6c9334d  
    2121#define CONFIGURE_MAXIMUM_TASKS           2
    2222
     23#define ADA_TEST_NAME "ADA BASE MP"
     24
    2325#define CONFIGURE_POSIX_INIT_THREAD_TABLE
    2426
  • testsuites/ada/samples/base_mp/mptest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT( "*** SAMPLE MULTIPROCESSOR APPLICATION ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343      TEXT_IO.PUT( "Creating and starting an application task" );
    4444
     
    9292      TEXT_IO.NEW_LINE;
    9393 
    94       TEXT_IO.PUT_LINE( "*** END OF SAMPLE MULTIPROCESSOR APPLICATION  ***" );
     94      TEST_SUPPORT.ADA_TEST_END;
    9595
    9696      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/samples/base_sp/config.h

    r6899a8d rf6c9334d  
    2424#define CONFIGURE_MAXIMUM_TASKS            2
    2525
     26#define ADA_TEST_NAME "ADA BASE SP"
     27
    2628#include <rtems/confdefs.h>
    2729
  • testsuites/ada/samples/base_sp/sptest.adb

    r6899a8d rf6c9334d  
    3737
    3838      TEXT_IO.NEW_LINE( 2 );
    39       TEXT_IO.PUT_LINE( "*** SAMPLE SINGLE PROCESSOR APPLICATION ***" );
     39      TEST_SUPPORT.ADA_TEST_BEGIN;
    4040      TEXT_IO.PUT_LINE( "Creating and starting an application task" );
    4141
     
    8585      TEXT_IO.NEW_LINE;
    8686
    87       TEXT_IO.PUT_LINE( "*** END OF SAMPLE SINGLE PROCESSOR APPLICATION ***" );
     87      TEST_SUPPORT.ADA_TEST_END;
    8888
    8989      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/samples/hello/config.h

    r6899a8d rf6c9334d  
    2727#define CONFIGURE_MAXIMUM_TASKS              1
    2828
     29#define ADA_TEST_NAME "ADA HELLO"
     30
    2931#include <rtems/confdefs.h>
    3032
  • testsuites/ada/samples/hello/sptest.adb

    r6899a8d rf6c9334d  
    2020
    2121with TEXT_IO;
     22with TEST_SUPPORT;
    2223
    2324package body SPTEST is
     
    3435
    3536      TEXT_IO.NEW_LINE( 2 );
    36       TEXT_IO.PUT_LINE( "*** HELLO WORLD TEST ***" );
     37      TEST_SUPPORT.ADA_TEST_BEGIN;
    3738      TEXT_IO.PUT_LINE( "Hello World" );
    38       TEXT_IO.PUT_LINE( "*** END OF HELLO WORLD TEST ***" );
     39      TEST_SUPPORT.ADA_TEST_END;
    3940
    4041      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/samples/nsecs/config.h

    r6899a8d rf6c9334d  
    2626#define CONFIGURE_MAXIMUM_TASKS              1
    2727
     28#define ADA_TEST_NAME "ADA NSECS"
     29
    2830#include <rtems/confdefs.h>
    2931
  • testsuites/ada/samples/nsecs/sptest.adb

    r6899a8d rf6c9334d  
    2424with RTEMS.Clock;
    2525with Text_IO;
     26with TEST_SUPPORT;
    2627use type Interfaces.C.Long;
    2728use type RTEMS.Time_T;
     
    7071
    7172      TEXT_IO.NEW_LINE( 2 );
    72       TEXT_IO.PUT_LINE( "*** NANOSECOND CLOCK TEST ***" );
     73      TEST_SUPPORT.ADA_TEST_BEGIN;
    7374
    7475      --
     
    145146      delay( 1.0 );
    146147
    147       TEXT_IO.PUT_LINE( "*** END OF NANOSECOND CLOCK TEST ***" );
     148      TEST_SUPPORT.ADA_TEST_END;
    148149
    149150      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • testsuites/ada/samples/ticker/config.h

    r6899a8d rf6c9334d  
    2424#define CONFIGURE_MAXIMUM_TASKS             4
    2525
     26#define ADA_TEST_NAME "ADA TICKER"
     27
    2628#include <rtems/confdefs.h>
    2729
  • testsuites/ada/samples/ticker/sptest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TEST 1 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
     
    134134
    135135         if TIME.SECOND >= 35 then
    136             TEXT_IO.PUT_LINE( "*** END OF CLOCK TICK TEST ***" );
     136            TEST_SUPPORT.ADA_TEST_END;
    137137            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    138138         end if;
  • testsuites/ada/sptests/sp01/config.h

    r6899a8d rf6c9334d  
    2424#define CONFIGURE_MAXIMUM_TASKS             4
    2525
     26#define ADA_TEST_NAME "ADA SP 1"
     27
    2628#include <rtems/confdefs.h>
    2729
  • testsuites/ada/sptests/sp01/sptest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TEST 1 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
     
    134134
    135135         if TIME.SECOND >= 35 then
    136             TEXT_IO.PUT_LINE( "*** END OF TEST 1 ***" );
     136            TEST_SUPPORT.ADA_TEST_END;
    137137            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    138138         end if;
  • testsuites/ada/sptests/sp02/config.h

    r6899a8d rf6c9334d  
    2424#define CONFIGURE_MAXIMUM_TASKS             4
    2525
     26#define ADA_TEST_NAME "ADA SP 2"
     27
    2628#include <rtems/confdefs.h>
    2729
  • testsuites/ada/sptests/sp02/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 2 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.PREEMPT_TASK_NAME := RTEMS.BUILD_NAME(  'P', 'R', 'M', 'T' );
     
    282282      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
    283283
    284       TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
     284      TEST_SUPPORT.ADA_TEST_END;
    285285      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    286286   
  • testsuites/ada/sptests/sp03/config.h

    r6899a8d rf6c9334d  
    2424#define CONFIGURE_MAXIMUM_TASKS             3
    2525
     26#define ADA_TEST_NAME "ADA SP 3"
     27
    2628#include <rtems/confdefs.h>
    2729
  • testsuites/ada/sptests/sp03/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 3 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    155155
    156156         if TIME.SECOND >= 17 then
    157             TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );
     157            TEST_SUPPORT.ADA_TEST_END;
    158158            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    159159         end if;
  • testsuites/ada/sptests/sp04/config.h

    r6899a8d rf6c9334d  
    2727#define CONFIGURE_MAXIMUM_TASKS             4
    2828
     29#define ADA_TEST_NAME "ADA SP 4"
     30
    2931#include <rtems/confdefs.h>
    3032
  • testsuites/ada/sptests/sp04/sptest.adb

    r6899a8d rf6c9334d  
    8080
    8181      TEXT_IO.NEW_LINE( 2 );
    82       TEXT_IO.PUT_LINE( "*** TEST 4 ***" );
     82      TEST_SUPPORT.ADA_TEST_BEGIN;
    8383
    8484      TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
     
    265265            END LOOP;
    266266            Flush_Task_Event_Log;
    267             TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
     267            TEST_SUPPORT.ADA_TEST_END;
    268268            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    269269
  • testsuites/ada/sptests/sp05/config.h

    r6899a8d rf6c9334d  
    2626#define CONFIGURE_MAXIMUM_TASKS             4
    2727
     28#define ADA_TEST_NAME "ADA SP 5"
     29
    2830#include <rtems/confdefs.h>
    2931
  • testsuites/ada/sptests/sp05/sptest.adb

    r6899a8d rf6c9334d  
    3737
    3838      TEXT_IO.NEW_LINE( 2 );
    39       TEXT_IO.PUT_LINE( "*** TEST 5 ***" );
     39      TEST_SUPPORT.ADA_TEST_BEGIN;
    4040
    4141      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    171171      end loop;
    172172
    173       TEXT_IO.PUT_LINE( "*** END OF TEST 5 ***" );
     173      TEST_SUPPORT.ADA_TEST_END;
    174174      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    175175
  • testsuites/ada/sptests/sp06/config.h

    r6899a8d rf6c9334d  
    2626#define CONFIGURE_MAXIMUM_TASKS             4
    2727
     28#define ADA_TEST_NAME "ADA SP 6"
     29
    2830#include <rtems/confdefs.h>
    2931
  • testsuites/ada/sptests/sp06/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 6 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    133133
    134134      if PASS = 5 then
    135          TEXT_IO.PUT_LINE( "*** END OF TEST 6 ***" );
     135         TEST_SUPPORT.ADA_TEST_END;
    136136         RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    137137      end if;
  • testsuites/ada/sptests/sp07/config.h

    r6899a8d rf6c9334d  
    2727#define CONFIGURE_MAXIMUM_TASKS             5
    2828
     29#define ADA_TEST_NAME "ADA SP 7"
     30
    2931#include <rtems/confdefs.h>
    3032
  • testsuites/ada/sptests/sp07/sptest.adb

    r6899a8d rf6c9334d  
    132132
    133133      TEXT_IO.NEW_LINE( 2 );
    134       TEXT_IO.PUT_LINE( "*** TEST 7 ***" );
     134      TEST_SUPPORT.ADA_TEST_BEGIN;
    135135
    136136      SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME(  'E', 'X', 'T', ' ' );
     
    420420      end if;
    421421
    422       TEXT_IO.PUT_LINE( "*** END OF TEST 7 ***" );
     422      TEST_SUPPORT.ADA_TEST_END;
    423423      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    424424
  • testsuites/ada/sptests/sp08/config.h

    r6899a8d rf6c9334d  
    2626#define CONFIGURE_MAXIMUM_TASKS             2
    2727
     28#define ADA_TEST_NAME "ADA SP 8"
     29
    2830#include <rtems/confdefs.h>
    2931
  • testsuites/ada/sptests/sp08/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 8 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    340340-- END OF CURRENT MODE
    341341
    342       TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
     342      TEST_SUPPORT.ADA_TEST_END;
    343343      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    344344   end TASK_1;
  • testsuites/ada/sptests/sp09/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS              10
     20
     21#define ADA_TEST_NAME "ADA SP 9"
    2022#define CONFIGURE_MAXIMUM_TIMERS              1
    2123#define CONFIGURE_MAXIMUM_SEMAPHORES          2
  • testsuites/ada/sptests/sp09/sptest.adb

    r6899a8d rf6c9334d  
    4646
    4747      TEXT_IO.NEW_LINE( 2 );
    48       TEXT_IO.PUT_LINE( "*** TEST 9 ***" );
     48      TEST_SUPPORT.ADA_TEST_BEGIN;
    4949
    5050      SPTEST.TASK_NAME( 1 )   := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    29852985      SPTEST.SCREEN_14;
    29862986
    2987       TEXT_IO.PUT_LINE( "*** END OF TEST 9 ***" );
     2987      TEST_SUPPORT.ADA_TEST_END;
    29882988      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    29892989
  • testsuites/ada/sptests/sp11/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               3
     20
     21#define ADA_TEST_NAME "ADA SP 11"
    2022#define CONFIGURE_MAXIMUM_TIMERS              6
    2123#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • testsuites/ada/sptests/sp11/sptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TEST 11 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    624624      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER 200 ticks" );
    625625
    626       TEXT_IO.PUT_LINE( "*** END OF TEST 11 ***" );
     626      TEST_SUPPORT.ADA_TEST_END;
    627627      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    628628
  • testsuites/ada/sptests/sp12/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               8
     20
     21#define ADA_TEST_NAME "ADA SP 12"
    2022#define CONFIGURE_MAXIMUM_SEMAPHORES         10
    2123#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • testsuites/ada/sptests/sp12/sptest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TEST 12 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    802802      TEXT_IO.PUT_LINE( "TA5 - SM1 deleted by TA1" );
    803803   
    804       TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
     804      TEST_SUPPORT.ADA_TEST_END;
    805805      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    806806   
  • testsuites/ada/sptests/sp13/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               4
     20
     21#define ADA_TEST_NAME "ADA SP 13"
    2022#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     10
    2123#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • testsuites/ada/sptests/sp13/sptest.adb

    r6899a8d rf6c9334d  
    4444
    4545      TEXT_IO.NEW_LINE( 2 );
    46       TEXT_IO.PUT_LINE( "*** TEST 13 ***" );
     46      TEST_SUPPORT.ADA_TEST_BEGIN;
    4747
    4848      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    679679      end loop;
    680680
    681       TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
     681      TEST_SUPPORT.ADA_TEST_END;
    682682      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    683683
  • testsuites/ada/sptests/sp14/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               3
     20
     21#define ADA_TEST_NAME "ADA SP 14"
    2022#define CONFIGURE_MAXIMUM_TIMERS              1
    2123#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • testsuites/ada/sptests/sp14/sptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TEST 14 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    278278      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER YIELD" );
    279279
    280       TEXT_IO.PUT_LINE( "*** END OF TEST 14 ***" );
     280      TEST_SUPPORT.ADA_TEST_END;
    281281      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    282282
  • testsuites/ada/sptests/sp15/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               2
     20
     21#define ADA_TEST_NAME "ADA SP 15"
    2022#define CONFIGURE_MAXIMUM_PARTITIONS          2
    2123#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • testsuites/ada/sptests/sp15/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 15 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    271271      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE OF SELF" );
    272272
    273       TEXT_IO.PUT_LINE( "*** END OF TEST 15 ***" );
     273      TEST_SUPPORT.ADA_TEST_END;
    274274      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    275275   
  • testsuites/ada/sptests/sp16/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               4
     20
     21#define ADA_TEST_NAME "ADA SP 16"
    2022#define CONFIGURE_MAXIMUM_REGIONS             4
    2123#define CONFIGURE_TICKS_PER_TIMESLICE       100
  • testsuites/ada/sptests/sp16/sptest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TEST 16 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    531531      TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_delete" );
    532532
    533       TEXT_IO.PUT_LINE( "*** END OF TEST 16 ***" );
     533      TEST_SUPPORT.ADA_TEST_END;
    534534      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    535535
  • testsuites/ada/sptests/sp17/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS           3
     20
     21#define ADA_TEST_NAME "ADA SP 17"
    2022#define CONFIGURE_MICROSECONDS_PER_TICK   RTEMS_MILLISECONDS_TO_MICROSECONDS(25)
    2123#define CONFIGURE_TICKS_PER_TIMESLICE     1000
  • testsuites/ada/sptests/sp17/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 17 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    137137      TEXT_IO.PUT_LINE( "TA1 - Got Back!!!" );
    138138     
    139       TEXT_IO.PUT_LINE( "*** END OF TEST 17 ***" );
     139      TEST_SUPPORT.ADA_TEST_END;
    140140      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    141141   
  • testsuites/ada/sptests/sp19/config.h

    r6899a8d rf6c9334d  
    2424#define CONFIGURE_MAXIMUM_TASKS             7
    2525
     26#define ADA_TEST_NAME "ADA SP 19"
     27
    2628#include <rtems/confdefs.h>
    2729
  • testsuites/ada/sptests/sp19/sptest.adp

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TEST 19 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    314314            TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
    315315 
    316             TEXT_IO.PUT_LINE( "*** END OF TEST 19 ***" );
     316            TEST_SUPPORT.ADA_TEST_END;
    317317            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    318318         end if;
  • testsuites/ada/sptests/sp20/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               7
     20
     21#define ADA_TEST_NAME "ADA SP 20"
    2022#define CONFIGURE_MAXIMUM_PERIODS             10
    2123
  • testsuites/ada/sptests/sp20/sptest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TEST 20 ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    226226 
    227227               if PASS = 10 then
    228                   TEXT_IO.PUT_LINE( "*** END OF TEST 20 ***" );
     228                  TEST_SUPPORT.ADA_TEST_END;
    229229                  RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    230230               end if;
  • testsuites/ada/sptests/sp22/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS           2
     20
     21#define ADA_TEST_NAME "ADA SP 22"
    2022#define CONFIGURE_MAXIMUM_TIMERS          2
    2123
  • testsuites/ada/sptests/sp22/sptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TEST 22 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
     
    290290      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_DELETE" );
    291291         
    292       TEXT_IO.PUT_LINE( "*** END OF TEST 22 ***" );
     292      TEST_SUPPORT.ADA_TEST_END;
    293293      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    294294   
  • testsuites/ada/sptests/sp23/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS           2
     20
     21#define ADA_TEST_NAME "ADA SP 23"
    2022#define CONFIGURE_MAXIMUM_PORTS           1
    2123
  • testsuites/ada/sptests/sp23/sptest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TEST 23 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    168168      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PORT_DELETE" );
    169169
    170       TEXT_IO.PUT_LINE( "*** END OF TEST 23 ***" );
     170      TEST_SUPPORT.ADA_TEST_END;
    171171      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    172172
  • testsuites/ada/sptests/sp24/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               4
     20
     21#define ADA_TEST_NAME "ADA SP 24"
    2022#define CONFIGURE_MAXIMUM_TIMERS              3
    2123
  • testsuites/ada/sptests/sp24/sptest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TEST 24 ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
     
    146146
    147147         if TIME.SECOND >= 35 then
    148             TEXT_IO.PUT_LINE( "*** END OF TEST 24 ***" );
     148            TEST_SUPPORT.ADA_TEST_END;
    149149            RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    150150         end if;
  • testsuites/ada/sptests/sp25/config.h

    r6899a8d rf6c9334d  
    1818
    1919#define CONFIGURE_MAXIMUM_TASKS               2
     20
     21#define ADA_TEST_NAME "ADA SP 25"
    2022#define CONFIGURE_MAXIMUM_REGIONS             1
    2123
  • testsuites/ada/sptests/sp25/sptest.adb

    r6899a8d rf6c9334d  
    3838
    3939      TEXT_IO.NEW_LINE( 2 );
    40       TEXT_IO.PUT_LINE( "*** TEST 25 ***" );
     40      TEST_SUPPORT.ADA_TEST_BEGIN;
    4141
    4242      SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    355355      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_DELETE OF RN1" );
    356356
    357       TEXT_IO.PUT_LINE( "*** END OF TEST 25 ***" );
     357      TEST_SUPPORT.ADA_TEST_END;
    358358      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    359359
  • testsuites/ada/sptests/spatcb01/config.h

    r6899a8d rf6c9334d  
    1414#define CONFIGURE_MAXIMUM_POSIX_THREADS 1
    1515
     16#define ADA_TEST_NAME "ADA SPATCB 1"
     17
    1618#include <rtems/confdefs.h>
  • testsuites/ada/sptests/spatcb01/spatcb01.adb

    r6899a8d rf6c9334d  
    1515
    1616with TEXT_IO;
     17with TEST_SUPPORT;
    1718with System.Task_Primitives.Operations;
    1819with System.Tasking;
     
    2122  Self_Id : constant System.Tasking.Task_Id := System.Task_Primitives.Operations.Self;
    2223begin
    23   TEXT_IO.PUT_LINE( "*** BEGIN OF TEST SPATCB 1 ***" );
     24  TEST_SUPPORT.ADA_TEST_BEGIN;
    2425  TEXT_IO.PUT_LINE( Self_Id.Common.Task_Image( 1 .. Self_Id.Common.Task_Image_Len ) );
    25   TEXT_IO.PUT_LINE( "*** END OF TEST SPATCB 1 ***" );
     26  TEST_SUPPORT.ADA_TEST_END;
    2627end SPATCB01;
  • testsuites/ada/sptests/spname01/config.h

    r6899a8d rf6c9334d  
    2727#define CONFIGURE_MAXIMUM_TASKS              1
    2828
     29#define ADA_TEST_NAME "ADA SPNAME 1"
     30
    2931#include <rtems/confdefs.h>
    3032
  • testsuites/ada/sptests/spname01/sptest.adb

    r6899a8d rf6c9334d  
    3434
    3535      TEXT_IO.NEW_LINE( 2 );
    36       TEXT_IO.PUT_LINE( "*** Ada Task Name TEST ***" );
     36      TEST_SUPPORT.ADA_TEST_BEGIN;
    3737
    3838      RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer );
     
    5454      end if;
    5555
    56       TEXT_IO.PUT_LINE( "*** END OF Ada Task Name TEST ***" );
     56      TEST_SUPPORT.ADA_TEST_END;
    5757
    5858      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
  • 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--
  • testsuites/ada/tmtests/tm01/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              2
     22
     23#define ADA_TEST_NAME "ADA TM 1"
    2224#define CONFIGURE_MAXIMUM_SEMAPHORES         1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm01/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 1 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      TMTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
     
    266266      );
    267267
    268       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 1 ***" );
     268      TEST_SUPPORT.ADA_TEST_END;
    269269      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    270270   
  • testsuites/ada/tmtests/tm02/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 2"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         101
  • testsuites/ada/tmtests/tm02/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 2 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      TMTEST.TEST_INIT;
     
    199199      );
    200200
    201       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 2 ***" );
     201      TEST_SUPPORT.ADA_TEST_END;
    202202      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    203203
  • testsuites/ada/tmtests/tm03/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 3"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         101
  • testsuites/ada/tmtests/tm03/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 3 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.TASKS.CREATE(
     
    183183      );
    184184
    185       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 3 ***" );
     185      TEST_SUPPORT.ADA_TEST_END;
    186186      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    187187
  • testsuites/ada/tmtests/tm04/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 4"
    2224#define CONFIGURE_MAXIMUM_SEMAPHORES         1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm04/tmtest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TIME TEST 4 ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      TMTEST.TEST_INIT;
     
    398398      );
    399399
    400       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 4 ***" );
     400      TEST_SUPPORT.ADA_TEST_END;
    401401      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    402402
  • testsuites/ada/tmtests/tm05/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 5"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         101
  • testsuites/ada/tmtests/tm05/tmtest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TIME TEST 5 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      TMTEST.TEST_INIT;
     
    116116      );
    117117
    118       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 5 ***" );
     118      TEST_SUPPORT.ADA_TEST_END;
    119119      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    120120
  • testsuites/ada/tmtests/tm06/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 6"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         101
  • testsuites/ada/tmtests/tm06/tmtest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TIME TEST 6 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      TMTEST.TEST_INIT;
     
    181181      );
    182182
    183       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 6 ***" );
     183      TEST_SUPPORT.ADA_TEST_END;
    184184      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    185185
  • testsuites/ada/tmtests/tm07/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 7"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         101
  • testsuites/ada/tmtests/tm07/tmtest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TIME TEST 7 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      TMTEST.TEST_INIT;
     
    115115      end if;
    116116
    117       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 07 ***" );
     117      TEST_SUPPORT.ADA_TEST_END;
    118118      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    119119
  • testsuites/ada/tmtests/tm08/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 8"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         101
  • testsuites/ada/tmtests/tm08/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 8 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      TMTEST.TEST_INIT;
     
    267267      );
    268268
    269       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 8 ***" );
     269      TEST_SUPPORT.ADA_TEST_END;
    270270      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    271271
  • testsuites/ada/tmtests/tm09/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              2
     22
     23#define ADA_TEST_NAME "ADA TM 9"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm09/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 9 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.TASKS.CREATE(
     
    109109      );
    110110
    111       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 9 ***" );
     111      TEST_SUPPORT.ADA_TEST_END;
    112112      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    113113
  • testsuites/ada/tmtests/tm10/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              110
     22
     23#define ADA_TEST_NAME "ADA TM 10"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm10/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 10 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      TMTEST.TEST_INIT;
     
    213213      );
    214214
    215       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 10 ***" );
     215      TEST_SUPPORT.ADA_TEST_END;
    216216      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    217217
  • testsuites/ada/tmtests/tm11/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 11"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm11/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 11 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.TASKS.CREATE(
     
    175175      );
    176176
    177       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 11 ***" );
     177      TEST_SUPPORT.ADA_TEST_END;
    178178      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    179179
  • testsuites/ada/tmtests/tm12/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 12"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm12/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 12 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.TASKS.CREATE(
     
    169169      );
    170170
    171       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 12 ***" );
     171      TEST_SUPPORT.ADA_TEST_END;
    172172      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    173173
  • testsuites/ada/tmtests/tm13/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 13"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm13/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 13 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.TASKS.CREATE(
     
    173173      );
    174174
    175       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 13 ***" );
     175      TEST_SUPPORT.ADA_TEST_END;
    176176      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    177177
  • testsuites/ada/tmtests/tm14/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 14"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm14/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 14 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.TASKS.CREATE(
     
    180180      );
    181181
    182       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 14 ***" );
     182      TEST_SUPPORT.ADA_TEST_END;
    183183      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    184184
  • testsuites/ada/tmtests/tm15/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 15"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm15/tmtest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TIME TEST 15 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      TMTEST.TEST_INIT;
     
    233233      );
    234234
    235       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 15 ***" );
     235      TEST_SUPPORT.ADA_TEST_END;
    236236      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    237237
  • testsuites/ada/tmtests/tm16/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 16"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm16/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 16 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      RTEMS.TASKS.CREATE(
     
    189189      );
    190190
    191       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 16 ***" );
     191      TEST_SUPPORT.ADA_TEST_END;
    192192      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    193193
  • testsuites/ada/tmtests/tm17/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 17"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm17/tmtest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TIME TEST 17 ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      TMTEST.TASK_PRIORITY := 254;
     
    148148      );
    149149
    150       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 17 ***" );
     150      TEST_SUPPORT.ADA_TEST_END;
    151151      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    152152
  • testsuites/ada/tmtests/tm18/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 18"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm18/tmtest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TIME TEST 18 ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      TMTEST.TEST_INIT;
     
    144144      );
    145145
    146       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 18 ***" );
     146      TEST_SUPPORT.ADA_TEST_END;
    147147      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    148148
  • testsuites/ada/tmtests/tm19/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 19"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm19/tmtest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TIME TEST 19 ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      RTEMS.TASKS.CREATE(
     
    280280     );
    281281
    282       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 19 ***" );
     282      TEST_SUPPORT.ADA_TEST_END;
    283283     RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    284284
  • testsuites/ada/tmtests/tm20/config.h

    r6899a8d rf6c9334d  
    2222#define CONFIGURE_MAXIMUM_REGIONS            1
    2323#define CONFIGURE_MAXIMUM_TASKS              3
     24
     25#define ADA_TEST_NAME "ADA TM 20"
    2426#define CONFIGURE_TICKS_PER_TIMESLICE        0
    2527
  • testsuites/ada/tmtests/tm20/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 20 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      RTEMS.TASKS.CREATE(
     
    395395      );
    396396
    397       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 20 ***" );
     397      TEST_SUPPORT.ADA_TEST_END;
    398398      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    399399
  • testsuites/ada/tmtests/tm21/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              102
     22
     23#define ADA_TEST_NAME "ADA TM 21"
    2224#define CONFIGURE_MAXIMUM_TIMERS             100
    2325#define CONFIGURE_MAXIMUM_SEMAPHORES         100
  • testsuites/ada/tmtests/tm21/tmtest.adb

    r6899a8d rf6c9334d  
    4747
    4848      TEXT_IO.NEW_LINE( 2 );
    49       TEXT_IO.PUT_LINE( "*** TIME TEST 21 ***" );
     49      TEST_SUPPORT.ADA_TEST_BEGIN;
    5050
    5151      RTEMS.TASKS.CREATE(
     
    297297      );
    298298
    299       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 21 ***" );
     299      TEST_SUPPORT.ADA_TEST_END;
    300300      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    301301
  • testsuites/ada/tmtests/tm22/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              103
     22
     23#define ADA_TEST_NAME "ADA TM 22"
    2224#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES     1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm22/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 22 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      RTEMS.MESSAGE_QUEUE.CREATE(
     
    216216      );
    217217
    218       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 22 ***" );
     218      TEST_SUPPORT.ADA_TEST_END;
    219219      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    220220
  • testsuites/ada/tmtests/tm23/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 23"
    2224#define CONFIGURE_MAXIMUM_TIMERS             110
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm23/tmtest.adb

    r6899a8d rf6c9334d  
    4444
    4545      TEXT_IO.NEW_LINE( 2 );
    46       TEXT_IO.PUT_LINE( "*** TIME TEST 23 ***" );
     46      TEST_SUPPORT.ADA_TEST_BEGIN;
    4747
    4848      TASK_PRIORITY := 5;
     
    381381      );
    382382
    383       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 23 ***" );
     383      TEST_SUPPORT.ADA_TEST_END;
    384384      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    385385
  • testsuites/ada/tmtests/tm24/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 24"
    2224#define CONFIGURE_TICKS_PER_TIMESLICE        0
    2325
  • testsuites/ada/tmtests/tm24/tmtest.adb

    r6899a8d rf6c9334d  
    4141
    4242      TEXT_IO.NEW_LINE( 2 );
    43       TEXT_IO.PUT_LINE( "*** TIME TEST 24 ***" );
     43      TEST_SUPPORT.ADA_TEST_BEGIN;
    4444
    4545      TIMER_DRIVER.INITIALIZE;
     
    149149         );
    150150
    151       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 24 ***" );
     151      TEST_SUPPORT.ADA_TEST_END;
    152152         RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    153153
  • testsuites/ada/tmtests/tm25/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 25"
    2224#define CONFIGURE_MAXIMUM_SEMAPHORES         1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm25/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 25 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      RTEMS.SEMAPHORE.CREATE(
     
    148148      );
    149149
    150       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 25 ***" );
     150      TEST_SUPPORT.ADA_TEST_END;
    151151      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    152152
  • testsuites/ada/tmtests/tm28/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              2
     22
     23#define ADA_TEST_NAME "ADA TM 28"
    2224#define CONFIGURE_MAXIMUM_PORTS              1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm28/tmtest.adb

    r6899a8d rf6c9334d  
    3939
    4040      TEXT_IO.NEW_LINE( 2 );
    41       TEXT_IO.PUT_LINE( "*** TIME TEST 28 ***" );
     41      TEST_SUPPORT.ADA_TEST_BEGIN;
    4242
    4343      RTEMS.TASKS.CREATE(
     
    164164      );
    165165
    166       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 28 ***" );
     166      TEST_SUPPORT.ADA_TEST_END;
    167167      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    168168 
  • testsuites/ada/tmtests/tm29/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              111
     22
     23#define ADA_TEST_NAME "ADA TM 29"
    2224#define CONFIGURE_MAXIMUM_PERIODS            111
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tm29/tmtest.adb

    r6899a8d rf6c9334d  
    4242
    4343      TEXT_IO.NEW_LINE( 2 );
    44       TEXT_IO.PUT_LINE( "*** TIME TEST 29 ***" );
     44      TEST_SUPPORT.ADA_TEST_BEGIN;
    4545
    4646      TMTEST.PERIOD_NAME := RTEMS.BUILD_NAME( 'P', 'R', 'D', ' ' );
     
    229229      );
    230230   
    231       TEXT_IO.PUT_LINE( "*** END OF TIME TEST 29 ***" );
     231      TEST_SUPPORT.ADA_TEST_END;
    232232      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    233233
  • testsuites/ada/tmtests/tmck/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              2
     22
     23#define ADA_TEST_NAME "ADA TMCK"
    2224#define CONFIGURE_MAXIMUM_SEMAPHORES         1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tmck/tmtest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TIME TEST CHECK ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE );
     
    150150      );
    151151
    152       TEXT_IO.PUT_LINE( "*** END OF TIME TEST CHECK ***" );
     152      TEST_SUPPORT.ADA_TEST_END;
    153153      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    154154   
  • testsuites/ada/tmtests/tmoverhd/config.h

    r6899a8d rf6c9334d  
    2020
    2121#define CONFIGURE_MAXIMUM_TASKS              2
     22
     23#define ADA_TEST_NAME "ADA TMOVERHD"
    2224#define CONFIGURE_MAXIMUM_SEMAPHORES         1
    2325#define CONFIGURE_TICKS_PER_TIMESLICE        0
  • testsuites/ada/tmtests/tmoverhd/tmtest.adb

    r6899a8d rf6c9334d  
    4040
    4141      TEXT_IO.NEW_LINE( 2 );
    42       TEXT_IO.PUT_LINE( "*** TIME TEST OVERHEAD ***" );
     42      TEST_SUPPORT.ADA_TEST_BEGIN;
    4343
    4444      TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE );
     
    13561356      );
    13571357
    1358       TEXT_IO.PUT_LINE( "*** END OF TIME TEST OVERHEAD ***" );
     1358      TEST_SUPPORT.ADA_TEST_END;
    13591359      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
    13601360   
Note: See TracChangeset for help on using the changeset viewer.