From 61a183a90eee65fc1fd3598e27739029e8efda45 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Wed, 9 Apr 1997 20:19:35 +0000 Subject: new test --- testsuites/libtests/rtmonuse/task1.c | 124 +++++++++++++++++++++++++++++++++++ 1 file changed, 124 insertions(+) create mode 100644 testsuites/libtests/rtmonuse/task1.c (limited to 'testsuites/libtests/rtmonuse/task1.c') diff --git a/testsuites/libtests/rtmonuse/task1.c b/testsuites/libtests/rtmonuse/task1.c new file mode 100644 index 0000000000..7ec48729a1 --- /dev/null +++ b/testsuites/libtests/rtmonuse/task1.c @@ -0,0 +1,124 @@ +/* Task_1_through_5 + * + * This routine serves as a test task for the period capabilities of the + * Rate Monotonic Manager. + * + * Input parameters: + * argument - task argument + * + * Output parameters: NONE + * + * COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994. + * On-Line Applications Research Corporation (OAR). + * All rights assigned to U.S. Government, 1994. + * + * This material may be reproduced by or for the U.S. Government pursuant + * to the copyright license under the clause at DFARS 252.227-7013. This + * notice must appear in all copies of this file and its derivatives. + * + * task1.c,v 1.3 1995/12/19 20:21:14 joel Exp + */ + +#include "system.h" + +#include +#include "rtmonuse.h" + +rtems_unsigned32 Periods[6] = { 0, 2, 2, 2, 2, 100 }; +rtems_unsigned32 Iterations[6] = { 0, 50, 50, 50, 50, 1 }; +rtems_task_priority Priorities[6] = { 0, 1, 1, 3, 4, 5 }; + +rtems_task Task_1_through_5( + rtems_unsigned32 argument +) +{ + rtems_id rmid; + rtems_id test_rmid; + rtems_unsigned32 index; + rtems_unsigned32 pass; + rtems_unsigned32 failed; + rtems_status_code status; + + status = rtems_rate_monotonic_create( argument, &rmid ); + directive_failed( status, "rtems_rate_monotonic_create" ); + put_name( Task_name[ argument ], FALSE ); + printf( "- rtems_rate_monotonic_create id = 0x%08x\n", rmid ); + + status = rtems_rate_monotonic_ident( argument, &test_rmid ); + directive_failed( status, "rtems_rate_monotonic_ident" ); + put_name( Task_name[ argument ], FALSE ); + printf( "- rtems_rate_monotonic_ident id = 0x%08x\n", test_rmid ); + + if ( rmid != test_rmid ) { + printf( "RMID's DO NOT MATCH (0x%x and 0x%x)\n", rmid, test_rmid ); + exit( 0 ); + } + + put_name( Task_name[ argument ], FALSE ); + printf( "- (0x%08x) period %d\n", rmid, Periods[ argument ] ); + + status = rtems_task_wake_after( 2 ); + directive_failed( status, "rtems_task_wake_after" ); + + switch ( argument ) { + case 1: + case 2: + case 3: + case 4: + while ( FOREVER ) { + Period_usage_Update( rmid ); + + status = rtems_rate_monotonic_period( rmid, Periods[ argument ] ); + directive_failed( status, "rtems_rate_monotonic_period" ); + Count.count[ argument ]++; + } + break; + case 5: + pass = 0; + failed = 0; + + status = rtems_rate_monotonic_period( rmid, Periods[ argument ] ); + directive_failed( status, "rtems_rate_monotonic_period 1 of TA5" ); + + Get_all_counters(); + + while ( FOREVER ) { + Period_usage_Update( rmid ); + + status = rtems_rate_monotonic_period( rmid, Periods[ argument ] ); + directive_failed( status, "rtems_rate_monotonic_period 2 of TA5" ); + + Get_all_counters(); + + for( index = 1 ; index <= 4 ; index++ ) { + if ( Temporary_count.count[ index ] != Iterations[ index ] ) { + puts_nocr( "FAIL -- " ); + put_name ( Task_name[ index ], FALSE ); + printf ( " Actual=%d, Expected=%d\n", + Temporary_count.count[ index ], + Iterations[ index ] + ); + failed += 1; + } + } + + if ( failed == 5 ) + exit( 0 ); + + pass += 1; + + printf( "TA5 - PERIODS CHECK OK (%d)\n", pass ); + + fflush( stdout ); + + if ( pass == 10 ) { + puts( "*** END OF RATE MONOTONIC PERIOD STATISTICS TEST ***" ); + CPU_usage_Dump(); + Period_usage_Dump(); + exit( 0 ); + } + + } + break; + } +} -- cgit v1.2.3