diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-11-09 23:27:05 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-11-09 23:27:05 +0000 |
commit | e0991809991a2c5547d45881978212d5efc0e1de (patch) | |
tree | 3f88b84781cec14fee64157792b9f6adf8abf758 /testsuites/itrontests/itrontask03/task1.c | |
parent | Added nesting count for suspend/resume. (diff) | |
download | rtems-e0991809991a2c5547d45881978212d5efc0e1de.tar.bz2 |
Merged tests from Task group.
Diffstat (limited to 'testsuites/itrontests/itrontask03/task1.c')
-rw-r--r-- | testsuites/itrontests/itrontask03/task1.c | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/testsuites/itrontests/itrontask03/task1.c b/testsuites/itrontests/itrontask03/task1.c new file mode 100644 index 0000000000..30a6078956 --- /dev/null +++ b/testsuites/itrontests/itrontask03/task1.c @@ -0,0 +1,59 @@ +/* Task_1 + * + * This routine serves as a test task. It verifies the task manager. + * + * Input parameters: + * argument - task argument + * + * Output parameters: NONE + * + * COPYRIGHT (c) 1989-1998. + * On-Line Applications Research Corporation (OAR). + * Copyright assigned to U.S. Government, 1994. + * + * The license and distribution terms for this file may be + * found in the file LICENSE in this distribution or at + * http://www.OARcorp.com/rtems/license.html. + * + * $Id$ + */ + +#include "system.h" + +void Task_1() +{ + ER status; + PRI previous_priority; + + /* + * XXX - Change to itron routine. + */ + + puts( "TA1 - rtems_task_wake_after - sleep 1 second" ); + status = rtems_task_wake_after( 1*TICKS_PER_SECOND ); + directive_failed( status, "rtems_task_wake_after" ); + + status = chg_pri( TA3_ID , 2 ); + directive_failed( status, "chg_pri" ); + + puts( "TA1 - chg_pri - set TA3's priority to 2" ); + + puts( "TA1 - rtems_task_suspend - suspend TA2" ); + status = sus_tsk( TA2_ID ); + directive_failed( status, "sus_tsk of TA2" ); + + puts( "TA1 - - delete TA2" ); + status = ter_tsk( TA2_ID ); + directive_failed( status, "ter_tsk of TA2" ); + + /* + * XXX - Change to itron routine. + */ + + puts( "TA1 - rtems_task_wake_after - sleep for 5 seconds" ); + status = rtems_task_wake_after( 5*TICKS_PER_SECOND ); + directive_failed( status, "rtems_task_wake_after" ); + + puts( "*** END OF TEST 5 ***" ); + exit( 0 ); +} |