Changeset f6c9334d in rtems for testsuites/ada/samples


Ignore:
Timestamp:
Dec 1, 2017, 7:51:17 AM (3 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/samples
Files:
10 edited

Legend:

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