source: rtems/testsuites/sptests/sp02/task1.c @ 0dbc0c33

4.104.115
Last change on this file since 0dbc0c33 was 0dbc0c33, checked in by Joel Sherrill <joel.sherrill@…>, on Jul 7, 2009 at 7:36:53 PM

2009-07-07 Joel Sherrill <joel.sherrill@…>

  • sp02/task1.c: Minor spacing.
  • Property mode set to 100644
File size: 2.2 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-2008.
11 *  On-Line Applications Research Corporation (OAR).
12 *
13 *  The license and distribution terms for this file may be
14 *  found in the file LICENSE in this distribution or at
15 *  http://www.rtems.com/license/LICENSE.
16 *
17 *  $Id$
18 */
19
20#include "system.h"
21
22rtems_task Task_1(
23  rtems_task_argument argument
24)
25{
26  rtems_id          tid2;
27  rtems_id          tid3;
28  rtems_status_code status;
29  rtems_name        tid2_name;
30  uint32_t    previous_priority;
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 = rtems_task_ident( Task_name[ 2 ], RTEMS_SEARCH_ALL_NODES, &tid2 );
37  directive_failed( status, "rtems_task_ident of TA2" );
38
39  printf( "TA1 - rtems_task_ident - tid of TA2 (0x%.8x)\n", tid2 );
40  status = rtems_object_get_classic_name( tid2, &tid2_name );
41  directive_failed( status, "rtems_object_get_classic_name of TA2" );
42
43  printf( "TA1 - rtems_get_classic_name - id -> name of TA2 %sOK\n",
44    (tid2_name != Task_name[2]) ? "NOT " : "" );
45
46  status = rtems_task_ident( Task_name[ 3 ], RTEMS_SEARCH_ALL_NODES, &tid3 );
47  directive_failed( status, "rtems_task_ident of TA3" );
48
49  printf( "TA1 - rtems_task_ident - tid of TA3 (0x%.8x)\n", tid3 );
50
51  status = rtems_task_set_priority( tid3, 2, &previous_priority );
52  directive_failed( status, "rtems_task_set_priority" );
53
54  puts( "TA1 - rtems_task_set_priority - set TA3's priority to 2" );
55
56
57  puts( "TA1 - rtems_task_suspend - suspend TA2" );
58  status = rtems_task_suspend( tid2 );
59  directive_failed( status, "rtems_task_suspend of TA2" );
60
61  puts( "TA1 - rtems_task_delete - delete TA2" );
62  status = rtems_task_delete( tid2 );
63  directive_failed( status, "rtems_task_delete of TA2" );
64
65  puts( "TA1 - rtems_task_wake_after - sleep for 5 seconds" );
66  status = rtems_task_wake_after( 5*TICKS_PER_SECOND );
67  directive_failed( status, "rtems_task_wake_after" );
68
69  puts( "*** END OF TEST 2 ***" );
70  rtems_test_exit( 0 );
71}
Note: See TracBrowser for help on using the repository browser.