From f37e656d554bce676a007008807b6a02198ab644 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Sun, 21 Sep 1997 16:57:46 +0000 Subject: Added Monitor test. --- testsuites/libtests/monitor/init.c | 74 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 74 insertions(+) create mode 100644 testsuites/libtests/monitor/init.c (limited to 'testsuites/libtests/monitor/init.c') diff --git a/testsuites/libtests/monitor/init.c b/testsuites/libtests/monitor/init.c new file mode 100644 index 0000000000..8d88f759f9 --- /dev/null +++ b/testsuites/libtests/monitor/init.c @@ -0,0 +1,74 @@ +/* + * This is a simple test whose only purpose is to start the Monitor + * task. The Monitor task can be used to obtain information about + * a variety of RTEMS objects. + * + * COPYRIGHT (c) 1989-1997. + * On-Line Applications Research Corporation (OAR). + * Copyright assigned to U.S. Government, 1994. + * + * The license and distribution terms for this file may in + * the file LICENSE in this distribution or at + * http://www.OARcorp.com/rtems/license.html. + * + * init.c,v 1.6 1995/12/19 20:21:09 joel Exp + */ + +#define TEST_INIT +#include "system.h" + +#include + +rtems_task_priority Priorities[6] = { 0, 1, 1, 3, 4, 5 }; + +rtems_task Task_1_through_5( + rtems_unsigned32 argument +) +{ + rtems_status_code status; + + for ( ; ; ) { + status = rtems_task_wake_after( 100 ); + directive_failed( status, "rtems_task_wake_after" ); + } +} + + + +rtems_task Init( + rtems_task_argument argument +) +{ + rtems_unsigned32 index; + rtems_status_code status; + + puts( "\n\n*** MONITOR TASK TEST ***" ); + + Task_name[ 1 ] = rtems_build_name( 'T', 'A', '1', ' ' ); + Task_name[ 2 ] = rtems_build_name( 'T', 'A', '2', ' ' ); + Task_name[ 3 ] = rtems_build_name( 'T', 'A', '3', ' ' ); + Task_name[ 4 ] = rtems_build_name( 'T', 'A', '4', ' ' ); + Task_name[ 5 ] = rtems_build_name( 'T', 'A', '5', ' ' ); + + for ( index = 1 ; index <= 5 ; index++ ) { + status = rtems_task_create( + Task_name[ index ], + Priorities[ index ], + RTEMS_MINIMUM_STACK_SIZE * 4, + RTEMS_DEFAULT_MODES, + (index == 5) ? RTEMS_FLOATING_POINT : RTEMS_DEFAULT_ATTRIBUTES, + &Task_id[ index ] + ); + directive_failed( status, "rtems_task_create loop" ); + } + + for ( index = 1 ; index <= 5 ; index++ ) { + status = rtems_task_start( Task_id[ index ], Task_1_through_5, index ); + directive_failed( status, "rtems_task_start loop" ); + } + + rtems_monitor_init( 0 ); + + status = rtems_task_delete( RTEMS_SELF ); + directive_failed( status, "rtems_task_delete of RTEMS_SELF" ); +} -- cgit v1.2.3