Changeset f6c9334d in rtems for testsuites/ada/sptests


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/sptests
Files:
48 edited

Legend:

Unmodified
Added
Removed
  • 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 );
Note: See TracChangeset for help on using the changeset viewer.