From ac7d5ef06a6d6e8d84abbd1f0b82162725f98326 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 11 May 1995 17:39:37 +0000 Subject: Initial revision --- testsuites/sptests/sp06/init.c | 90 ++++++++++++++++++++++++++++++++++++++++ testsuites/sptests/sp06/sp06.doc | 26 ++++++++++++ testsuites/sptests/sp06/sp06.scn | 40 ++++++++++++++++++ testsuites/sptests/sp06/system.h | 30 ++++++++++++++ testsuites/sptests/sp06/task1.c | 61 +++++++++++++++++++++++++++ testsuites/sptests/sp06/task2.c | 40 ++++++++++++++++++ testsuites/sptests/sp06/task3.c | 32 ++++++++++++++ 7 files changed, 319 insertions(+) create mode 100644 testsuites/sptests/sp06/init.c create mode 100644 testsuites/sptests/sp06/sp06.doc create mode 100644 testsuites/sptests/sp06/sp06.scn create mode 100644 testsuites/sptests/sp06/system.h create mode 100644 testsuites/sptests/sp06/task1.c create mode 100644 testsuites/sptests/sp06/task2.c create mode 100644 testsuites/sptests/sp06/task3.c (limited to 'testsuites/sptests/sp06') diff --git a/testsuites/sptests/sp06/init.c b/testsuites/sptests/sp06/init.c new file mode 100644 index 0000000000..08bab06594 --- /dev/null +++ b/testsuites/sptests/sp06/init.c @@ -0,0 +1,90 @@ +/* Init + * + * This routine is the initialization task for this test program. + * It is a user initialization task and has the responsibility for creating + * and starting the tasks that make up the test. If the time of day + * clock is required for the test, it should also be set to a known + * value by this function. + * + * 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. + * + * $Id$ + */ + +#include "system.h" +#undef EXTERN +#define EXTERN +#include "conftbl.h" +#include "gvar.h" + +rtems_task Init( + rtems_task_argument argument +) +{ + rtems_status_code status; + rtems_task_priority previous_priority; + + puts( "\n\n*** TEST 6 ***" ); + + 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', ' ' ); + + Argument = 0; + Restart_argument = 1; + + status = rtems_task_create( + Task_name[ 1 ], + 1, + 2048, + RTEMS_DEFAULT_MODES, + RTEMS_DEFAULT_ATTRIBUTES, + &Task_id[ 1 ] + ); + directive_failed( status, "rtems_task_create of TA1" ); + + status = rtems_task_create( + Task_name[ 2 ], + 1, + 2048, + RTEMS_DEFAULT_MODES, + RTEMS_DEFAULT_ATTRIBUTES, + &Task_id[ 2 ] + ); + directive_failed( status, "rtems_task_create of TA2" ); + + status = rtems_task_create( + Task_name[ 3 ], + 10, + 2048, + RTEMS_DEFAULT_MODES, + RTEMS_DEFAULT_ATTRIBUTES, + &Task_id[ 3 ] + ); + directive_failed( status, "rtems_task_create of TA3" ); + + status = rtems_task_start( Task_id[ 1 ], Task_1, 0 ); + directive_failed( status, "rtems_task_start of TA1" ); + + status = rtems_task_start( Task_id[ 2 ], Task_2, Argument ); + directive_failed( status, "rtems_task_start of TA2" ); + + status = rtems_task_start( Task_id[ 3 ], Task_3, Argument ); + directive_failed( status, "rtems_task_start of TA3" ); + + status = rtems_task_set_priority( Task_id[ 3 ], 5, &previous_priority ); + + status = rtems_task_delete( RTEMS_SELF ); + directive_failed( status, "rtems_task_delete of RTEMS_SELF" ); +} diff --git a/testsuites/sptests/sp06/sp06.doc b/testsuites/sptests/sp06/sp06.doc new file mode 100644 index 0000000000..e8b96f1f6b --- /dev/null +++ b/testsuites/sptests/sp06/sp06.doc @@ -0,0 +1,26 @@ +# +# $Id$ +# +# 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. +# + + +This file describes the directives and concepts tested by this test set. + +test set name: test6 + +directives: + ex_init, ex_start, t_create, t_start, tm_tick, i_return, + tm_wkafter, t_restart + +concepts: + + a. Verifies that a task can restart a task other than itself. + + b. Verifies that a task can restart itself. diff --git a/testsuites/sptests/sp06/sp06.scn b/testsuites/sptests/sp06/sp06.scn new file mode 100644 index 0000000000..64f6489dc8 --- /dev/null +++ b/testsuites/sptests/sp06/sp06.scn @@ -0,0 +1,40 @@ +*** TEST 6 *** +TA1 - is beginning to run +TA1 - restarting TA3 +TA2 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting TA2 +TA2 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting self +TA1 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting TA2 +TA2 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting self +TA1 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting TA2 +TA2 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting self +TA1 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting TA2 +TA2 - is beginning to run +TA2 - rtems_task_wake_after - sleep 1/2 second +TA2 - rtems_task_wake_after - sleep 1/2 second +TA1 - rtems_task_restart - restarting self +TA1 - is beginning to run +*** END OF TEST 6 *** + +NOTE: The prints from TA2 may not be as regular as indicated in the screen. + The important point is that TA2 is running and gets restarted. diff --git a/testsuites/sptests/sp06/system.h b/testsuites/sptests/sp06/system.h new file mode 100644 index 0000000000..aa2c6d17e4 --- /dev/null +++ b/testsuites/sptests/sp06/system.h @@ -0,0 +1,30 @@ +/* system.h + * + * This include file contains information that is included in every + * function in the test set. + * + * 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. + * + * $Id$ + */ + +#include +#include "tmacros.h" + +/* Miscellaneous */ + +#define EXTERN extern /* external definition */ + +/* macros */ + +/* structures */ + +#include "gvar.h" + +/* end of include file */ diff --git a/testsuites/sptests/sp06/task1.c b/testsuites/sptests/sp06/task1.c new file mode 100644 index 0000000000..6d0f67f395 --- /dev/null +++ b/testsuites/sptests/sp06/task1.c @@ -0,0 +1,61 @@ +/* Task_1 + * + * This task serves as a test task. Verifies that a task can restart + * both itself and other tasks. + * + * 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. + * + * $Id$ + */ + +#include "system.h" + +rtems_task Task_1( argument ) +rtems_unsigned32 argument; +{ + rtems_unsigned32 pass; + rtems_status_code status; + + puts( "TA1 - is beginning to run" ); + + pass = argument + 1; + + if ( pass == 5 ) { + puts( "*** END OF TEST 6 ***" ); + exit( 0 ); + } + + if ( pass == 1 ) { + puts( "TA1 - restarting TA3" ); + status = rtems_task_restart( Task_id[ 3 ], Restart_argument ); + directive_failed( status, "rtems_task_restart of TA3" ); + + status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); + directive_failed( status, "rtems_task_wake_after" ); + } + + status = rtems_task_wake_after( TICKS_PER_SECOND ); + directive_failed( status, "rtems_task_wake_after" ); + + puts( "TA1 - rtems_task_restart - restarting TA2" ); + status = rtems_task_restart( Task_id[ 2 ], Restart_argument ); + directive_failed( status, "rtems_task_restart TA2" ); + + status = rtems_task_wake_after( 1*TICKS_PER_SECOND ); + directive_failed( status, "rtems_task_wake_after" ); + + puts( "TA1 - rtems_task_restart - restarting self" ); + status = rtems_task_restart( Task_id[ 1 ], pass ); + directive_failed( status, "rtems_task_restart of RTEMS_SELF" ); +} diff --git a/testsuites/sptests/sp06/task2.c b/testsuites/sptests/sp06/task2.c new file mode 100644 index 0000000000..0c9e10bc07 --- /dev/null +++ b/testsuites/sptests/sp06/task2.c @@ -0,0 +1,40 @@ +/* Task_2 + * + * This routine serves as a test task. It simply runs forever so + * another task can restart it. + * + * 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. + * + * $Id$ + */ + +#include "system.h" + +rtems_task Task_2( argument ) +rtems_task_argument argument; +{ + rtems_status_code status; + + puts( "TA2 - is beginning to run" ); + if ( argument == Argument ) { + status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); + directive_failed( status, "rtems_task_wake_after" ); + } + + while( FOREVER ) { + puts( "TA2 - rtems_task_wake_after - sleep 1/2 second" ); + status = rtems_task_wake_after( TICKS_PER_SECOND / 2 ); + directive_failed( status, "rtems_task_wake_after" ); + } +} diff --git a/testsuites/sptests/sp06/task3.c b/testsuites/sptests/sp06/task3.c new file mode 100644 index 0000000000..379ef8de92 --- /dev/null +++ b/testsuites/sptests/sp06/task3.c @@ -0,0 +1,32 @@ +/* Task_3 + * + * This routine serves as a test task. It is started, has its priority + * changed, and when it runs it deletes itself. + * + * 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. + * + * $Id$ + */ + +#include "system.h" + +rtems_task Task_3( + rtems_task_argument argument +) +{ + rtems_status_code status; + + status = rtems_task_delete( RTEMS_SELF ); + directive_failed( status, "rtems_task_delete of RTEMS_SELF" ); +} -- cgit v1.2.3