From 9c88bc6e80fd40115fdf7ede3cef50264d656ee6 Mon Sep 17 00:00:00 2001 From: Bjorn Larsson Date: Tue, 25 Mar 2014 09:13:03 -0500 Subject: spratemon_err01: New test split from sp09. --- testsuites/sptests/Makefile.am | 2 +- testsuites/sptests/configure.ac | 1 + testsuites/sptests/sp09/Makefile.am | 4 +- testsuites/sptests/sp09/screen03.c | 11 - testsuites/sptests/sp09/screen10.c | 222 --------------------- testsuites/sptests/sp09/sp09.scn | 27 --- testsuites/sptests/sp09/system.h | 8 +- testsuites/sptests/sp09/task1.c | 4 +- testsuites/sptests/sp09/task4.c | 51 ----- testsuites/sptests/spratemon_err01/Makefile.am | 23 +++ testsuites/sptests/spratemon_err01/init.c | 42 ++++ testsuites/sptests/spratemon_err01/screen10.c | 222 +++++++++++++++++++++ .../sptests/spratemon_err01/spratemon_err01.doc | 25 +++ .../sptests/spratemon_err01/spratemon_err01.scn | 28 +++ testsuites/sptests/spratemon_err01/system.h | 75 +++++++ testsuites/sptests/spratemon_err01/task4.c | 51 +++++ 16 files changed, 472 insertions(+), 324 deletions(-) delete mode 100644 testsuites/sptests/sp09/screen10.c delete mode 100644 testsuites/sptests/sp09/task4.c create mode 100644 testsuites/sptests/spratemon_err01/Makefile.am create mode 100644 testsuites/sptests/spratemon_err01/init.c create mode 100644 testsuites/sptests/spratemon_err01/screen10.c create mode 100644 testsuites/sptests/spratemon_err01/spratemon_err01.doc create mode 100644 testsuites/sptests/spratemon_err01/spratemon_err01.scn create mode 100644 testsuites/sptests/spratemon_err01/system.h create mode 100644 testsuites/sptests/spratemon_err01/task4.c diff --git a/testsuites/sptests/Makefile.am b/testsuites/sptests/Makefile.am index 315069457c..6a4070fd4d 100644 --- a/testsuites/sptests/Makefile.am +++ b/testsuites/sptests/Makefile.am @@ -29,7 +29,7 @@ SUBDIRS = \ sppagesize spsem01 spsem02 spsimplesched01 spsimplesched02 \ spsimplesched03 spnsext01 spedfsched01 spedfsched02 spedfsched03 \ spcbssched01 spcbssched02 spcbssched03 spqreslib sptimespec01 \ - spregion_err01 sppartition_err01 + spregion_err01 sppartition_err01 spratemon_err01 SUBDIRS += spprofiling01 SUBDIRS += spcache01 SUBDIRS += sptls03 diff --git a/testsuites/sptests/configure.ac b/testsuites/sptests/configure.ac index 71f0c8d69c..df8009da51 100644 --- a/testsuites/sptests/configure.ac +++ b/testsuites/sptests/configure.ac @@ -200,6 +200,7 @@ sppagesize/Makefile spprintk/Makefile spprivenv01/Makefile spqreslib/Makefile +spratemon_err01/Makefile sprbtree01/Makefile spsem01/Makefile spsem02/Makefile diff --git a/testsuites/sptests/sp09/Makefile.am b/testsuites/sptests/sp09/Makefile.am index 67e97ce096..f486853561 100644 --- a/testsuites/sptests/sp09/Makefile.am +++ b/testsuites/sptests/sp09/Makefile.am @@ -1,8 +1,8 @@ rtems_tests_PROGRAMS = sp09 sp09_SOURCES = init.c delay.c isr.c screen01.c screen02.c screen03.c screen04.c \ - screen05.c screen06.c screen07.c screen08.c screen09.c screen10.c \ - task1.c task2.c task3.c task4.c \ + screen05.c screen06.c screen07.c screen08.c screen09.c \ + task1.c task2.c task3.c \ system.h dist_rtems_tests_DATA = sp09.scn diff --git a/testsuites/sptests/sp09/screen03.c b/testsuites/sptests/sp09/screen03.c index 3fd3fc9089..7debabc22c 100644 --- a/testsuites/sptests/sp09/screen03.c +++ b/testsuites/sptests/sp09/screen03.c @@ -133,17 +133,6 @@ void Screen3() directive_failed( status, "rtems_task_create of TA3" ); puts( "TA1 - rtems_task_create - TA3 created - RTEMS_SUCCESSFUL" ); - status = rtems_task_create( - Task_name[ 4 ], - 4, - RTEMS_MINIMUM_STACK_SIZE, - RTEMS_DEFAULT_MODES, - RTEMS_DEFAULT_ATTRIBUTES, - &Task_id[ 4 ] - ); - directive_failed( status, "rtems_task_create of TA4" ); - puts( "TA1 - rtems_task_create - 4 created - RTEMS_SUCCESSFUL" ); - status = rtems_task_create( Task_name[ 5 ], 4, diff --git a/testsuites/sptests/sp09/screen10.c b/testsuites/sptests/sp09/screen10.c deleted file mode 100644 index e7a883a489..0000000000 --- a/testsuites/sptests/sp09/screen10.c +++ /dev/null @@ -1,222 +0,0 @@ -/* Screen10 - * - * This routine generates error screen 10 for test 9. - * - * Input parameters: NONE - * - * Output parameters: NONE - * - * COPYRIGHT (c) 1989-2009. - * 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 "system.h" - -void Screen10() -{ - rtems_rate_monotonic_period_status period_status; - rtems_status_code status; - - /* - * Check create error cases. - */ - status = rtems_rate_monotonic_create( Period_name[ 1 ], NULL ); - fatal_directive_status( - status, - RTEMS_INVALID_ADDRESS, - "rtems_rate_monotonic_create with NULL param" - ); - - puts( "TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_ADDRESS" ); - - status = rtems_rate_monotonic_create( 0, &Junk_id ); - fatal_directive_status( - status, - RTEMS_INVALID_NAME, - "rtems_rate_monotonic_create with illegal name" - ); - puts( "TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_NAME" ); - - status = rtems_rate_monotonic_create( Period_name[ 1 ], &Period_id[ 1 ] ); - directive_failed( status, "rtems_rate_monotonic_create successful" ); - puts( "TA1 - rtems_rate_monotonic_create - RTEMS_SUCCESSFUL" ); - - status = rtems_rate_monotonic_create( Period_name[ 1 ], &Junk_id ); - fatal_directive_status( - status, - RTEMS_TOO_MANY, - "rtems_rate_monotonic_create of too many" - ); - puts( "TA1 - rtems_rate_monotonic_create - RTEMS_TOO_MANY" ); - - /* - * Check ident error cases. - */ - status = rtems_rate_monotonic_ident( 0, &Junk_id ); - fatal_directive_status( - status, - RTEMS_INVALID_NAME, - "rtems_rate_monotonic_ident with illegal name" - ); - puts( "TA1 - rtems_rate_monotonic_ident - RTEMS_INVALID_NAME" ); - - /* - * Check period error cases. - */ - status = rtems_rate_monotonic_period( 100, 5 ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_period with illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_period - RTEMS_INVALID_ID" ); - - status = rtems_rate_monotonic_period( rtems_build_id( 1, 1, 1, 256 ), 5 ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_period with illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_period - local RTEMS_INVALID_ID" ); - - status = rtems_rate_monotonic_period( Period_id[ 1 ], RTEMS_PERIOD_STATUS ); - fatal_directive_status( - status, - RTEMS_NOT_DEFINED, - "rtems_rate_monotonic_period status not defined" - ); - puts( - "TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_NOT_DEFINED" - ); - - status = rtems_rate_monotonic_period( Period_id[ 1 ], 100 ); - directive_failed( status, "rtems_rate_monotonic_period successful" ); - puts( "TA1 - rtems_rate_monotonic_period - 100 ticks - RTEMS_SUCCESSFUL" ); - - status = rtems_rate_monotonic_period( Period_id[ 1 ], RTEMS_PERIOD_STATUS ); - directive_failed( status, "rtems_rate_monotonic_period status" ); - puts( - "TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_SUCCESSFUL" - ); - - while ( FOREVER ) { - - status = rtems_rate_monotonic_period(Period_id[ 1 ], RTEMS_PERIOD_STATUS); - - if ( status == RTEMS_TIMEOUT ) break; - - directive_failed( - status, - "rtems_rate_monotonic_period waiting for timeout" - ); - - rtems_task_wake_after( 1 ); - } - puts( - "TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_TIMEOUT" - ); - - /* - * Check get_statistics error cases. - */ - status = rtems_rate_monotonic_get_statistics( Period_id[ 1 ], NULL ); - fatal_directive_status( - status, - RTEMS_INVALID_ADDRESS, - "rtems_rate_monotonic_get_statistics with NULL param" - ); - puts( "TA1 - rtems_rate_monotonic_get_statistics - RTEMS_INVALID_ADDRESS" ); - - /* - * Check get_status error cases. - */ - status = rtems_rate_monotonic_get_status( Period_id[ 1 ], NULL ); - fatal_directive_status( - status, - RTEMS_INVALID_ADDRESS, - "rtems_rate_monotonic_get_status with NULL param" - ); - puts( "TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ADDRESS" ); - - status = rtems_rate_monotonic_get_status( 100, &period_status ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_get_status with illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ID" ); - - /* - * Check cancel error cases. - */ - status = rtems_rate_monotonic_cancel( 100 ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_cancel with illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_cancel - RTEMS_INVALID_ID" ); - - status = rtems_rate_monotonic_cancel( rtems_build_id( 1, 1, 1, 256 ) ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_cancel will illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_cancel - local RTEMS_INVALID_ID" ); - - status = rtems_rate_monotonic_cancel( Period_id[ 1 ] ); - directive_failed( status, "rtems_rate_monotonic_cancel" ); - puts( "TA1 - rtems_rate_monotonic_cancel - RTEMS_SUCCESSFUL" ); - - status = rtems_rate_monotonic_period( Period_id[ 1 ], 5 ); - directive_failed( status, "rtems_rate_monotonic_period restart" ); - - status = rtems_task_wake_after( rtems_clock_get_ticks_per_second() ); - directive_failed( status, "rtems_task_wake_after" ); - - status = rtems_rate_monotonic_period( Period_id[ 1 ], 5 ); - fatal_directive_status( - status, - RTEMS_TIMEOUT, - "rtems_rate_monotonic_period" - ); - puts( "TA1 - rtems_rate_monotonic_period - 5 ticks - RTEMS_TIMEOUT" ); - - status = rtems_task_start( Task_id[ 4 ], Task_4, 0 ); - directive_failed( status, "rtems_task_start of TA4" ); - - puts( "TA1 - yielding to TA4" ); - status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR ); - - /* - * Check delete error cases. - */ - status = rtems_rate_monotonic_delete( 100 ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_delete with illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_delete - RTEMS_INVALID_ID" ); - - status = rtems_rate_monotonic_delete( rtems_build_id( 1, 1, 1, 256 ) ); - fatal_directive_status( - status, - RTEMS_INVALID_ID, - "rtems_rate_monotonic_delete with illegal id" - ); - puts( "TA1 - rtems_rate_monotonic_delete - local RTEMS_INVALID_ID" ); - - status = rtems_rate_monotonic_delete( Period_id[ 1 ] ); - directive_failed( status, "rtems_rate_monotonic_delete" ); - puts( "TA1 - rtems_rate_monotonic_delete - RTEMS_SUCCESSFUL" ); -} diff --git a/testsuites/sptests/sp09/sp09.scn b/testsuites/sptests/sp09/sp09.scn index 9cd3545cd0..5539b1fd89 100644 --- a/testsuites/sptests/sp09/sp09.scn +++ b/testsuites/sptests/sp09/sp09.scn @@ -65,7 +65,6 @@ TA1 - rtems_task_suspend - suspend TA2 - RTEMS_SUCCESSFUL TA1 - rtems_task_suspend - suspend TA2 - RTEMS_ALREADY_SUSPENDED TA1 - rtems_task_resume - TA2 resumed - RTEMS_SUCCESSFUL TA1 - rtems_task_create - TA3 created - RTEMS_SUCCESSFUL -TA1 - rtems_task_create - 4 created - RTEMS_SUCCESSFUL TA1 - rtems_task_create - 5 created - RTEMS_SUCCESSFUL TA1 - rtems_task_create - 6 created - RTEMS_SUCCESSFUL TA1 - rtems_task_create - 7 created - RTEMS_SUCCESSFUL @@ -192,30 +191,4 @@ TA1 - rtems_port_ident - RTEMS_INVALID_NAME TA1 - rtems_port_external_to_internal - RTEMS_INVALID_ADDRESS TA1 - rtems_port_internal_to_external - RTEMS_INVALID_ID TA1 - rtems_port_external_to_internal - RTEMS_INVALID_ADDRESS - -TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_ADDRESS -TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_NAME -TA1 - rtems_rate_monotonic_create - RTEMS_SUCCESSFUL -TA1 - rtems_rate_monotonic_create - RTEMS_TOO_MANY -TA1 - rtems_rate_monotonic_ident - RTEMS_INVALID_NAME -TA1 - rtems_rate_monotonic_period - RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_period - local RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_NOT_DEFINED -TA1 - rtems_rate_monotonic_period - 100 ticks - RTEMS_SUCCESSFUL -TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_SUCCESSFUL -TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_TIMEOUT -TA1 - rtems_rate_monotonic_get_statistics - RTEMS_INVALID_ADDRESS -TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ADDRESS -TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_cancel - RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_cancel - local RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_cancel - RTEMS_SUCCESSFUL -TA1 - rtems_rate_monotonic_period - 5 ticks - RTEMS_TIMEOUT -TA1 - yielding to TA4 -TA4 - rtems_rate_monotonic_cancel - RTEMS_NOT_OWNER_OF_RESOURCE -TA4 - rtems_rate_monotonic_period - RTEMS_NOT_OWNER_OF_RESOURCE -TA4 - rtems_task_delete - delete self - RTEMS_SUCCESSFUL -TA1 - rtems_rate_monotonic_delete - RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_delete - local RTEMS_INVALID_ID -TA1 - rtems_rate_monotonic_delete - RTEMS_SUCCESSFUL *** END OF TEST 9 *** diff --git a/testsuites/sptests/sp09/system.h b/testsuites/sptests/sp09/system.h index 812868d762..628aa87c06 100644 --- a/testsuites/sptests/sp09/system.h +++ b/testsuites/sptests/sp09/system.h @@ -37,10 +37,6 @@ rtems_task Task_3( rtems_task_argument argument ); -rtems_task Task_4( - rtems_task_argument argument -); - rtems_isr Service_routine( rtems_vector_number ignored ); @@ -67,14 +63,12 @@ void Screen8( void ); void Screen9( void ); -void Screen10( void ); - /* configuration information */ #define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER #define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER -#define CONFIGURE_MAXIMUM_TASKS 10 +#define CONFIGURE_MAXIMUM_TASKS 9 #define CONFIGURE_MAXIMUM_TIMERS 1 #define CONFIGURE_MAXIMUM_SEMAPHORES 2 #define CONFIGURE_MAXIMUM_MESSAGE_QUEUES 1 diff --git a/testsuites/sptests/sp09/task1.c b/testsuites/sptests/sp09/task1.c index 0f58de6ab3..2cd6fb8127 100644 --- a/testsuites/sptests/sp09/task1.c +++ b/testsuites/sptests/sp09/task1.c @@ -50,10 +50,8 @@ rtems_task Task_1( rtems_test_pause_and_screen_number( 9 ); Screen9(); - rtems_test_pause_and_screen_number( 10 ); - - Screen10(); TEST_END(); + rtems_test_exit( 0 ); } diff --git a/testsuites/sptests/sp09/task4.c b/testsuites/sptests/sp09/task4.c deleted file mode 100644 index 4e8df72801..0000000000 --- a/testsuites/sptests/sp09/task4.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Task_4 - * - * This routine serves as a test task. Its only purpose in life is to - * generate the error where a rate monotonic period is accessed by a - * task other than its creator. - * - * Input parameters: - * argument - task argument - * - * Output parameters: NONE - * - * COPYRIGHT (c) 1989-1999. - * 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 "system.h" - -rtems_task Task_4( - rtems_task_argument argument -) -{ - rtems_status_code status; - - status = rtems_rate_monotonic_cancel( Period_id[ 1 ] ); - fatal_directive_status( - status, - RTEMS_NOT_OWNER_OF_RESOURCE, - "rtems_rate_monotonic_cancel not the owner" - ); - puts( "TA4 - rtems_rate_monotonic_cancel - RTEMS_NOT_OWNER_OF_RESOURCE" ); - - status = rtems_rate_monotonic_period( Period_id[ 1 ], 5 ); - fatal_directive_status( - status, - RTEMS_NOT_OWNER_OF_RESOURCE, - "rtems_rate_monotonic_period not the owner" - ); - puts( "TA4 - rtems_rate_monotonic_period - RTEMS_NOT_OWNER_OF_RESOURCE" ); - - puts( "TA4 - rtems_task_delete - delete self - RTEMS_SUCCESSFUL" ); - status = rtems_task_delete( RTEMS_SELF ); - directive_failed( status, "rtems_task_delete of TA4" ); -} diff --git a/testsuites/sptests/spratemon_err01/Makefile.am b/testsuites/sptests/spratemon_err01/Makefile.am new file mode 100644 index 0000000000..e068243d2d --- /dev/null +++ b/testsuites/sptests/spratemon_err01/Makefile.am @@ -0,0 +1,23 @@ + +rtems_tests_PROGRAMS = spratemon_err01 +spratemon_err01_SOURCES = init.c screen10.c \ + task4.c system.h + +dist_rtems_tests_DATA = spratemon_err01.scn +dist_rtems_tests_DATA += spratemon_err01.doc + +include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg +include $(top_srcdir)/../automake/compile.am +include $(top_srcdir)/../automake/leaf.am + + +AM_CPPFLAGS += -I$(top_srcdir)/../support/include + +LINK_OBJS = $(spratemon_err01_OBJECTS) +LINK_LIBS = $(spratemon_err01_LDLIBS) + +spratemon_err01$(EXEEXT): $(spratemon_err01_OBJECTS) $(spratemon_err01_DEPENDENCIES) + @rm -f spratemon_err01$(EXEEXT) + $(make-exe) + +include $(top_srcdir)/../automake/local.am diff --git a/testsuites/sptests/spratemon_err01/init.c b/testsuites/sptests/spratemon_err01/init.c new file mode 100644 index 0000000000..2243da52f6 --- /dev/null +++ b/testsuites/sptests/spratemon_err01/init.c @@ -0,0 +1,42 @@ +/* + * COPYRIGHT (c) 2014. + * 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.com/license/LICENSE. + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#define CONFIGURE_INIT +#include "system.h" + +const char rtems_test_name[] = "SP RATE MONOTONIC ERROR 01"; + +rtems_task Init( + rtems_task_argument argument +) +{ + rtems_status_code status; + + TEST_BEGIN(); + Task_name[ 4 ] = rtems_build_name( 'T', 'A', '4', ' ' ); + Period_name[ 1 ] = rtems_build_name( 'T', 'M', '1', ' ' ); + + status = rtems_task_create( + Task_name[ 4 ], + 1, + RTEMS_MINIMUM_STACK_SIZE, + RTEMS_DEFAULT_MODES, + RTEMS_DEFAULT_ATTRIBUTES, + &Task_id[ 4 ] + ); + directive_failed( status, "rtems_task_create of TA4" ); + puts( "TA1 - rtems_task_create - 4 created - RTEMS_SUCCESSFUL" ); + + Screen10(); + TEST_END(); +} diff --git a/testsuites/sptests/spratemon_err01/screen10.c b/testsuites/sptests/spratemon_err01/screen10.c new file mode 100644 index 0000000000..d1c18501f6 --- /dev/null +++ b/testsuites/sptests/spratemon_err01/screen10.c @@ -0,0 +1,222 @@ +/* Screen10 + * + * This routine generates error screen 10 for test 9. + * + * Input parameters: NONE + * + * Output parameters: NONE + * + * COPYRIGHT (c) 1989-2009. + * 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.com/license/LICENSE. + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" + +void Screen10() +{ + rtems_rate_monotonic_period_status period_status; + rtems_status_code status; + + /* + * Check create error cases. + */ + status = rtems_rate_monotonic_create( Period_name[ 1 ], NULL ); + fatal_directive_status( + status, + RTEMS_INVALID_ADDRESS, + "rtems_rate_monotonic_create with NULL param" + ); + + puts( "TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_ADDRESS" ); + + status = rtems_rate_monotonic_create( 0, &Junk_id ); + fatal_directive_status( + status, + RTEMS_INVALID_NAME, + "rtems_rate_monotonic_create with illegal name" + ); + puts( "TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_NAME" ); + + status = rtems_rate_monotonic_create( Period_name[ 1 ], &Period_id[ 1 ] ); + directive_failed( status, "rtems_rate_monotonic_create successful" ); + puts( "TA1 - rtems_rate_monotonic_create - RTEMS_SUCCESSFUL" ); + + status = rtems_rate_monotonic_create( Period_name[ 1 ], &Junk_id ); + fatal_directive_status( + status, + RTEMS_TOO_MANY, + "rtems_rate_monotonic_create of too many" + ); + puts( "TA1 - rtems_rate_monotonic_create - RTEMS_TOO_MANY" ); + + /* + * Check ident error cases. + */ + status = rtems_rate_monotonic_ident( 0, &Junk_id ); + fatal_directive_status( + status, + RTEMS_INVALID_NAME, + "rtems_rate_monotonic_ident with illegal name" + ); + puts( "TA1 - rtems_rate_monotonic_ident - RTEMS_INVALID_NAME" ); + + /* + * Check period error cases. + */ + status = rtems_rate_monotonic_period( 100, 5 ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_period with illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_period - RTEMS_INVALID_ID" ); + + status = rtems_rate_monotonic_period( rtems_build_id( 1, 1, 1, 256 ), 5 ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_period with illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_period - local RTEMS_INVALID_ID" ); + + status = rtems_rate_monotonic_period( Period_id[ 1 ], RTEMS_PERIOD_STATUS ); + fatal_directive_status( + status, + RTEMS_NOT_DEFINED, + "rtems_rate_monotonic_period status not defined" + ); + puts( + "TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_NOT_DEFINED" + ); + + status = rtems_rate_monotonic_period( Period_id[ 1 ], 100 ); + directive_failed( status, "rtems_rate_monotonic_period successful" ); + puts( "TA1 - rtems_rate_monotonic_period - 100 ticks - RTEMS_SUCCESSFUL" ); + + status = rtems_rate_monotonic_period( Period_id[ 1 ], RTEMS_PERIOD_STATUS ); + directive_failed( status, "rtems_rate_monotonic_period status" ); + puts( + "TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_SUCCESSFUL" + ); + + while ( FOREVER ) { + + status = rtems_rate_monotonic_period(Period_id[ 1 ], RTEMS_PERIOD_STATUS); + + if ( status == RTEMS_TIMEOUT ) break; + + directive_failed( + status, + "rtems_rate_monotonic_period waiting for timeout" + ); + + rtems_task_wake_after( 1 ); + } + puts( + "TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_TIMEOUT" + ); + + /* + * Check get_statistics error cases. + */ + status = rtems_rate_monotonic_get_statistics( Period_id[ 1 ], NULL ); + fatal_directive_status( + status, + RTEMS_INVALID_ADDRESS, + "rtems_rate_monotonic_get_statistics with NULL param" + ); + puts( "TA1 - rtems_rate_monotonic_get_statistics - RTEMS_INVALID_ADDRESS" ); + + /* + * Check get_status error cases. + */ + status = rtems_rate_monotonic_get_status( Period_id[ 1 ], NULL ); + fatal_directive_status( + status, + RTEMS_INVALID_ADDRESS, + "rtems_rate_monotonic_get_status with NULL param" + ); + puts( "TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ADDRESS" ); + + status = rtems_rate_monotonic_get_status( 100, &period_status ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_get_status with illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ID" ); + + /* + * Check cancel error cases. + */ + status = rtems_rate_monotonic_cancel( 100 ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_cancel with illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_cancel - RTEMS_INVALID_ID" ); + + status = rtems_rate_monotonic_cancel( rtems_build_id( 1, 1, 1, 256 ) ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_cancel will illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_cancel - local RTEMS_INVALID_ID" ); + + status = rtems_rate_monotonic_cancel( Period_id[ 1 ] ); + directive_failed( status, "rtems_rate_monotonic_cancel" ); + puts( "TA1 - rtems_rate_monotonic_cancel - RTEMS_SUCCESSFUL" ); + + status = rtems_rate_monotonic_period( Period_id[ 1 ], 5 ); + directive_failed( status, "rtems_rate_monotonic_period restart" ); + + status = rtems_task_wake_after( rtems_clock_get_ticks_per_second() ); + directive_failed( status, "rtems_task_wake_after" ); + + status = rtems_rate_monotonic_period( Period_id[ 1 ], 5 ); + fatal_directive_status( + status, + RTEMS_TIMEOUT, + "rtems_rate_monotonic_period" + ); + puts( "TA1 - rtems_rate_monotonic_period - 5 ticks - RTEMS_TIMEOUT" ); + + status = rtems_task_start( Task_id[ 4 ], Task_4, 0 ); + directive_failed( status, "rtems_task_start of TA4" ); + + puts( "TA1 - yielding to TA4" ); + status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR ); + + /* + * Check delete error cases. + */ + status = rtems_rate_monotonic_delete( 100 ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_delete with illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_delete - RTEMS_INVALID_ID" ); + + status = rtems_rate_monotonic_delete( rtems_build_id( 1, 1, 1, 256 ) ); + fatal_directive_status( + status, + RTEMS_INVALID_ID, + "rtems_rate_monotonic_delete with illegal id" + ); + puts( "TA1 - rtems_rate_monotonic_delete - local RTEMS_INVALID_ID" ); + + status = rtems_rate_monotonic_delete( Period_id[ 1 ] ); + directive_failed( status, "rtems_rate_monotonic_delete" ); + puts( "TA1 - rtems_rate_monotonic_delete - RTEMS_SUCCESSFUL" ); +} diff --git a/testsuites/sptests/spratemon_err01/spratemon_err01.doc b/testsuites/sptests/spratemon_err01/spratemon_err01.doc new file mode 100644 index 0000000000..bf1a43cdf8 --- /dev/null +++ b/testsuites/sptests/spratemon_err01/spratemon_err01.doc @@ -0,0 +1,25 @@ +# COPYRIGHT (c) 1989-2014. +# 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.com/license/LICENSE. +# + + +This file describes the directives and concepts tested by this test set. + +test set name: spratemon_err01 + + directives: + rm_create, rm_period, rm_stats, rm_gstatus, rm_cancel, rm_delete + +concepts: + + a. Verifies all error codes returned by the executive in single + processor configurations. + + b. Verifies error conditions in the following kernel routines or macros: + _Ck_date_time, _Expired, _Q_submit, _Get_mnodes, _Get_node, + _Free_mem, _Get_mem, _Valid_block, _Set_tcb, _Set_resource, + _In_range, _On_boundary diff --git a/testsuites/sptests/spratemon_err01/spratemon_err01.scn b/testsuites/sptests/spratemon_err01/spratemon_err01.scn new file mode 100644 index 0000000000..ca2cebd624 --- /dev/null +++ b/testsuites/sptests/spratemon_err01/spratemon_err01.scn @@ -0,0 +1,28 @@ +*** TEST RATE MONOTONIC ERROR 01 *** +TA1 - rtems_task_create - 4 created - RTEMS_SUCCESSFUL +TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_ADDRESS +TA1 - rtems_rate_monotonic_create - RTEMS_INVALID_NAME +TA1 - rtems_rate_monotonic_create - RTEMS_SUCCESSFUL +TA1 - rtems_rate_monotonic_create - RTEMS_TOO_MANY +TA1 - rtems_rate_monotonic_ident - RTEMS_INVALID_NAME +TA1 - rtems_rate_monotonic_period - RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_period - local RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_NOT_DEFINED +TA1 - rtems_rate_monotonic_period - 100 ticks - RTEMS_SUCCESSFUL +TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_SUCCESSFUL +TA1 - rtems_rate_monotonic_period(RTEMS_PERIOD_STATUS) - RTEMS_TIMEOUT +TA1 - rtems_rate_monotonic_get_statistics - RTEMS_INVALID_ADDRESS +TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ADDRESS +TA1 - rtems_rate_monotonic_get_status - RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_cancel - RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_cancel - local RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_cancel - RTEMS_SUCCESSFUL +TA1 - rtems_rate_monotonic_period - 5 ticks - RTEMS_TIMEOUT +TA1 - yielding to TA4 +TA4 - rtems_rate_monotonic_cancel - RTEMS_NOT_OWNER_OF_RESOURCE +TA4 - rtems_rate_monotonic_period - RTEMS_NOT_OWNER_OF_RESOURCE +TA4 - rtems_task_delete - delete self - RTEMS_SUCCESSFUL +TA1 - rtems_rate_monotonic_delete - RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_delete - local RTEMS_INVALID_ID +TA1 - rtems_rate_monotonic_delete - RTEMS_SUCCESSFUL +*** END TEST RATE MONOTONIC ERROR 01 *** diff --git a/testsuites/sptests/spratemon_err01/system.h b/testsuites/sptests/spratemon_err01/system.h new file mode 100644 index 0000000000..52bb580500 --- /dev/null +++ b/testsuites/sptests/spratemon_err01/system.h @@ -0,0 +1,75 @@ +/* + * This include file contains information that is included in every + * function in the test set. + */ + +/* + * COPYRIGHT (c) 1989-2014. + * 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.com/license/LICENSE. + */ + +#include + +/* functions */ + +rtems_task Init( + rtems_task_argument argument +); + +rtems_timer_service_routine Delayed_routine( + rtems_id ignored_id, + void *ignored_address +); + +rtems_task Task_4( + rtems_task_argument argument +); + +void Screen10( void ); + +/* configuration information */ + +#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER +#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER + +#define CONFIGURE_MAXIMUM_TASKS 10 +#define CONFIGURE_MAXIMUM_TIMERS 1 +#define CONFIGURE_MAXIMUM_SEMAPHORES 2 +#define CONFIGURE_MAXIMUM_MESSAGE_QUEUES 1 +#define CONFIGURE_MAXIMUM_PERIODS 1 +#define CONFIGURE_MAXIMUM_USER_EXTENSIONS 0 +#define CONFIGURE_TICKS_PER_TIMESLICE 100 + +#define CONFIGURE_RTEMS_INIT_TASKS_TABLE + +#define CONFIGURE_EXTRA_TASK_STACKS (20 * RTEMS_MINIMUM_STACK_SIZE) + +#include + +/* global variables */ + +TEST_EXTERN rtems_id Task_id[ 11 ]; /* array of task ids */ +TEST_EXTERN rtems_name Task_name[ 11 ]; /* array of task names */ + +TEST_EXTERN rtems_name Semaphore_name[ 4 ]; /* array of semaphore names */ +TEST_EXTERN rtems_id Semaphore_id[ 4 ]; /* array of semaphore ids */ + +TEST_EXTERN rtems_name Queue_name[ 3 ]; /* array of queue names */ +TEST_EXTERN rtems_id Queue_id[ 3 ]; /* array of queue ids */ + +TEST_EXTERN rtems_name Port_name[ 2 ]; /* array of port names */ +TEST_EXTERN rtems_id Port_id[ 2 ]; /* array of port ids */ + +TEST_EXTERN rtems_name Period_name[ 2 ]; /* array of period names */ +TEST_EXTERN rtems_id Period_id[ 2 ]; /* array of period ids */ + +TEST_EXTERN rtems_id Junk_id; /* id used to return errors */ + +#define Internal_port_area (void *) 0x00001000 +#define External_port_area (void *) 0x00002000 + +/* end of include file */ diff --git a/testsuites/sptests/spratemon_err01/task4.c b/testsuites/sptests/spratemon_err01/task4.c new file mode 100644 index 0000000000..73a52ea8a9 --- /dev/null +++ b/testsuites/sptests/spratemon_err01/task4.c @@ -0,0 +1,51 @@ +/* Task_4 + * + * This routine serves as a test task. Its only purpose in life is to + * generate the error where a rate monotonic period is accessed by a + * task other than its creator. + * + * Input parameters: + * argument - task argument + * + * Output parameters: NONE + * + * COPYRIGHT (c) 1989-1999. + * 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.com/license/LICENSE. + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "system.h" + +rtems_task Task_4( + rtems_task_argument argument +) +{ + rtems_status_code status; + + status = rtems_rate_monotonic_cancel( Period_id[ 1 ] ); + fatal_directive_status( + status, + RTEMS_NOT_OWNER_OF_RESOURCE, + "rtems_rate_monotonic_cancel not the owner" + ); + puts( "TA4 - rtems_rate_monotonic_cancel - RTEMS_NOT_OWNER_OF_RESOURCE" ); + + status = rtems_rate_monotonic_period( Period_id[ 1 ], 5 ); + fatal_directive_status( + status, + RTEMS_NOT_OWNER_OF_RESOURCE, + "rtems_rate_monotonic_period not the owner" + ); + puts( "TA4 - rtems_rate_monotonic_period - RTEMS_NOT_OWNER_OF_RESOURCE" ); + + puts( "TA4 - rtems_task_delete - delete self - RTEMS_SUCCESSFUL" ); + status = rtems_task_delete( RTEMS_SELF ); + directive_failed( status, "rtems_task_delete of TA4" ); +} -- cgit v1.2.3