source: rtems/testsuites/sptests/sp02/task1.c @ 6e315132

4.104.114.95
Last change on this file since 6e315132 was 6e315132, checked in by Joel Sherrill <joel.sherrill@…>, on Jan 29, 2008 at 9:53:04 PM

2008-01-29 Joel Sherrill <joel.sherrill@…>

  • Makefile.am, configure.ac, sp02/task1.c, sp24/resume.c, sp30/resume.c, sp41/init.c, sp42/init.c: Add new Object Services collection. This changed the name of a few previously public but undocumented services and added a some new services.
  • sp43/.cvsignore, sp43/Makefile.am, sp43/init.c, sp43/sp43.scn, sp43/system.h: New files.
  • 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
41  status = rtems_object_get_classic_name( tid2, &tid2_name );
42  directive_failed( status, "rtems_object_get_classic_name of TA2" );
43
44  printf( "TA1 - rtems_get_classic_name - id -> name of TA2 %sOK\n",
45    (tid2_name != Task_name[2]) ? "NOT " : "" );
46
47  status = rtems_task_ident( Task_name[ 3 ], RTEMS_SEARCH_ALL_NODES, &tid3 );
48  directive_failed( status, "rtems_task_ident of TA3" );
49
50  printf( "TA1 - rtems_task_ident - tid of TA3 (0x%.8x)\n", tid3 );
51
52  status = rtems_task_set_priority( tid3, 2, &previous_priority );
53  directive_failed( status, "rtems_task_set_priority" );
54
55  puts( "TA1 - rtems_task_set_priority - set TA3's priority to 2" );
56
57
58  puts( "TA1 - rtems_task_suspend - suspend TA2" );
59  status = rtems_task_suspend( tid2 );
60  directive_failed( status, "rtems_task_suspend of TA2" );
61
62  puts( "TA1 - rtems_task_delete - delete TA2" );
63  status = rtems_task_delete( tid2 );
64  directive_failed( status, "rtems_task_delete of TA2" );
65
66  puts( "TA1 - rtems_task_wake_after - sleep for 5 seconds" );
67  status = rtems_task_wake_after( 5*TICKS_PER_SECOND );
68  directive_failed( status, "rtems_task_wake_after" );
69
70  puts( "*** END OF TEST 2 ***" );
71  rtems_test_exit( 0 );
72}
Note: See TracBrowser for help on using the repository browser.