source: rtems/testsuites/itrontests/itrontask03/task1.c @ e099180

4.104.114.84.95
Last change on this file since e099180 was e099180, checked in by Joel Sherrill <joel.sherrill@…>, on 11/09/99 at 23:27:05

Merged tests from Task group.

  • Property mode set to 100644
File size: 1.4 KB
Line 
1/*  Task_1
2 *
3 *  This routine serves as a test task.  It verifies the task manager.
4 *
5 *  Input parameters:
6 *    argument - task argument
7 *
8 *  Output parameters:  NONE
9 *
10 *  COPYRIGHT (c) 1989-1998.
11 *  On-Line Applications Research Corporation (OAR).
12 *  Copyright assigned to U.S. Government, 1994.
13 *
14 *  The license and distribution terms for this file may be
15 *  found in the file LICENSE in this distribution or at
16 *  http://www.OARcorp.com/rtems/license.html.
17 *
18 *  $Id$
19 */
20
21#include "system.h"
22
23void Task_1()
24{
25  ER       status;
26  PRI      previous_priority;
27
28  /*
29   * XXX - Change to itron routine.
30   */
31
32  puts( "TA1 - rtems_task_wake_after - sleep 1 second" );
33  status = rtems_task_wake_after( 1*TICKS_PER_SECOND );
34  directive_failed( status, "rtems_task_wake_after" );
35
36  status = chg_pri( TA3_ID , 2 );
37  directive_failed( status, "chg_pri" );
38
39  puts( "TA1 - chg_pri - set TA3's priority to 2" );
40
41  puts( "TA1 - rtems_task_suspend - suspend TA2" );
42  status = sus_tsk( TA2_ID  );
43  directive_failed( status, "sus_tsk of TA2" );
44
45  puts( "TA1 -  - delete TA2" );
46  status = ter_tsk( TA2_ID );
47  directive_failed( status, "ter_tsk of TA2" );
48
49  /*
50   * XXX - Change to itron routine.
51   */
52
53  puts( "TA1 - rtems_task_wake_after - sleep for 5 seconds" );
54  status = rtems_task_wake_after( 5*TICKS_PER_SECOND );
55  directive_failed( status, "rtems_task_wake_after" );
56
57  puts( "*** END OF TEST 5 ***" );
58  exit( 0 );
59}
Note: See TracBrowser for help on using the repository browser.