forked from Imagelibrary/rtems
8028089000
This avoids test durations of more than one hour on fast targets, since fast targets can count a lot during one clock tick period, so the minor loop iteration count was quite high. Estimate now the test body duration to iterate only through the interesting time window. Add and use interrupt_critical_section_test().
133 lines
3.2 KiB
C
133 lines
3.2 KiB
C
/*
|
|
* COPYRIGHT (c) 1989-2012.
|
|
* On-Line Applications Research Corporation (OAR).
|
|
*
|
|
* The license and distribution terms for this file may be
|
|
* found in the file LICENSE in this distribution or at
|
|
* http://www.rtems.org/license/LICENSE.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include <tmacros.h>
|
|
#include <intrcritical.h>
|
|
#include <rtems/score/watchdogimpl.h>
|
|
#include <rtems/rtems/ratemonimpl.h>
|
|
|
|
const char rtems_test_name[] = "SPINTRCRITICAL 8";
|
|
|
|
/* forward declarations to avoid warnings */
|
|
rtems_task Init(rtems_task_argument argument);
|
|
|
|
static rtems_id Period;
|
|
|
|
static volatile bool case_hit = false;
|
|
|
|
static rtems_rate_monotonic_period_states getState(void)
|
|
{
|
|
Objects_Locations location;
|
|
Rate_monotonic_Control *period;
|
|
|
|
period = (Rate_monotonic_Control *)_Objects_Get(
|
|
&_Rate_monotonic_Information, Period, &location );
|
|
if ( location != OBJECTS_LOCAL ) {
|
|
puts( "Bad object lookup" );
|
|
rtems_test_exit(0);
|
|
}
|
|
_Thread_Unnest_dispatch();
|
|
|
|
return period->state;
|
|
}
|
|
|
|
static rtems_timer_service_routine test_release_from_isr(
|
|
rtems_id timer,
|
|
void *arg
|
|
)
|
|
{
|
|
Chain_Control *chain = &_Watchdog_Ticks_chain;
|
|
|
|
if ( !_Chain_Is_empty( chain ) ) {
|
|
Watchdog_Control *watchdog = _Watchdog_First( chain );
|
|
|
|
if (
|
|
watchdog->delta_interval == 0
|
|
&& watchdog->routine == _Rate_monotonic_Timeout
|
|
) {
|
|
Watchdog_States state = _Watchdog_Remove( watchdog );
|
|
|
|
rtems_test_assert( state == WATCHDOG_ACTIVE );
|
|
(*watchdog->routine)( watchdog->id, watchdog->user_data );
|
|
|
|
if ( getState() == RATE_MONOTONIC_EXPIRED_WHILE_BLOCKING ) {
|
|
case_hit = true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static bool test_body( void *arg )
|
|
{
|
|
rtems_status_code sc;
|
|
|
|
(void) arg;
|
|
|
|
sc = rtems_rate_monotonic_cancel( Period );
|
|
rtems_test_assert( sc == RTEMS_SUCCESSFUL );
|
|
|
|
sc = rtems_rate_monotonic_period( Period, 1 );
|
|
rtems_test_assert( sc == RTEMS_SUCCESSFUL );
|
|
|
|
sc = rtems_rate_monotonic_period( Period, 1 );
|
|
rtems_test_assert( sc == RTEMS_SUCCESSFUL || sc == RTEMS_TIMEOUT );
|
|
|
|
return case_hit;
|
|
}
|
|
|
|
rtems_task Init(
|
|
rtems_task_argument ignored
|
|
)
|
|
{
|
|
rtems_status_code sc;
|
|
|
|
TEST_BEGIN();
|
|
|
|
puts( "Init - Trying to generate period ending while blocking" );
|
|
|
|
puts( "Init - rtems_rate_monotonic_create - OK" );
|
|
sc = rtems_rate_monotonic_create(
|
|
rtems_build_name( 'P', 'E', 'R', '1' ),
|
|
&Period
|
|
);
|
|
directive_failed( sc, "rtems_rate_monotonic_create" );
|
|
|
|
interrupt_critical_section_test( test_body, NULL, test_release_from_isr );
|
|
|
|
if ( case_hit ) {
|
|
puts( "Init - It appears the case has been hit" );
|
|
TEST_END();
|
|
} else
|
|
puts( "Init - Case not hit - ran too long" );
|
|
rtems_test_exit(0);
|
|
}
|
|
|
|
/* configuration information */
|
|
|
|
#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER
|
|
#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
|
|
|
|
#define CONFIGURE_MAXIMUM_TASKS 2
|
|
#define CONFIGURE_MAXIMUM_TIMERS 1
|
|
#define CONFIGURE_MAXIMUM_PERIODS 1
|
|
#define CONFIGURE_MAXIMUM_USER_EXTENSIONS 1
|
|
#define CONFIGURE_MICROSECONDS_PER_TICK 1000
|
|
#define CONFIGURE_INITIAL_EXTENSIONS RTEMS_TEST_INITIAL_EXTENSION
|
|
|
|
#define CONFIGURE_RTEMS_INIT_TASKS_TABLE
|
|
|
|
#define CONFIGURE_INIT
|
|
#include <rtems/confdefs.h>
|
|
|
|
/* global variables */
|