source: rtems/testsuites/sptests/sp05/task1.c @ c87608f

4.104.114.84.95
Last change on this file since c87608f was c87608f, checked in by Ralf Corsepius <ralf.corsepius@…>, on 03/30/04 at 11:15:35

2004-03-30 Ralf Corsepius <ralf_corsepius@…>

  • sp02/task1.c, sp04/system.h, sp04/task1.c, sp04/tswitch.c, sp05/task1.c, sp06/task1.c, sp09/screen01.c, sp09/screen07.c, sp09/screen12.c, sp09/system.h, sp09/task3.c, sp11/task1.c, sp12/pridrv.c, sp12/pritask.c, sp12/system.h, sp13/task1.c, sp13/task2.c, sp13/task3.c, sp14/system.h, sp15/system.h, sp16/system.h, sp17/system.h, sp19/first.c, sp19/fptask.c, sp19/inttest.h, sp19/system.h, sp19/task1.c, sp20/init.c, sp20/system.h, sp20/task1.c, sp23/system.h, sp24/init.c, sp25/system.h, sp30/init.c, spfatal/fatal.c, spfatal/puterr.c, spfatal/system.h, spsize/size.c: Convert to using c99 fixed size types.
  • Property mode set to 100644
File size: 2.1 KB
Line 
1/*  Task_1
2 *
3 *  This routine serves as a test task.  It verifies that tasks can
4 *  be suspended and resumed.
5 *
6 *  Input parameters:
7 *    argument - task argument
8 *
9 *  Output parameters:  NONE
10 *
11 *  NOTE: The rtems_task_suspend() directives fail on the first iteration.
12 *
13 *  COPYRIGHT (c) 1989-1999.
14 *  On-Line Applications Research Corporation (OAR).
15 *
16 *  The license and distribution terms for this file may be
17 *  found in the file LICENSE in this distribution or at
18 *  http://www.rtems.com/license/LICENSE.
19 *
20 *  $Id$
21 */
22
23#include "system.h"
24
25rtems_task Task_1(
26  rtems_task_argument argument
27)
28{
29  rtems_id          tid2;
30  rtems_id          tid3;
31  uint32_t    pass;
32  rtems_status_code status;
33
34  status = rtems_task_ident( Task_name[ 2 ], 1, &tid2 );
35  directive_failed( status, "rtems_task_ident of TA2" );
36
37  status = rtems_task_ident( Task_name[ 3 ], 1, &tid3 );
38  directive_failed( status, "rtems_task_ident of TA3" );
39
40  for ( pass=1 ; pass <= 3 ; pass++ ) {
41
42    puts( "TA1 - rtems_task_wake_after - sleep 5 seconds" );
43    status = rtems_task_wake_after( 5*TICKS_PER_SECOND );
44    directive_failed( status, "rtems_task_wake_after of TA1" );
45
46    puts( "TA1 - rtems_task_suspend - suspend TA3" );
47    status = rtems_task_suspend( tid3 );
48    if ( pass == 1 ) {
49      fatal_directive_status(
50         status,
51         RTEMS_ALREADY_SUSPENDED,
52         "rtems_task_suspend of TA3"
53      );
54    } else {
55      directive_failed( status, "rtems_task_suspend of TA3" );
56    }
57
58    puts( "TA1 - rtems_task_resume - resume TA2" );
59    status = rtems_task_resume( tid2 );
60    directive_failed( status, "rtems_task_resume of TA2" );
61
62    puts( "TA1 - rtems_task_wake_after - sleep 5 seconds" );
63    status = rtems_task_wake_after( 5*TICKS_PER_SECOND );
64    directive_failed( status, "rtems_task_wake_after" );
65
66    puts( "TA1 - rtems_task_suspend - suspend TA2" );
67    status = rtems_task_suspend( tid2 );
68    directive_failed( status, "rtems_task_suspend of TA2" );
69
70    puts( "TA1 - rtems_task_resume - resume TA3" );
71    status = rtems_task_resume( tid3 );
72    directive_failed( status, "rtems_task_resume" );
73  }
74
75  puts( "*** END OF TEST 5 ***" );
76  rtems_test_exit( 0 );
77}
Note: See TracBrowser for help on using the repository browser.