sptests/sp05/task1.c

0001 /* SPDX-License-Identifier: BSD-2-Clause */
0002
0003 /*  Task_1
0004  *
0005  *  This routine serves as a test task.  It verifies that tasks can
0006  *  be suspended and resumed.
0007  *
0008  *  Input parameters:
0009  *    argument - task argument
0010  *
0011  *  Output parameters:  NONE
0012  *
0013  *  NOTE: The rtems_task_suspend() directives fail on the first iteration.
0014  *
0015  *  COPYRIGHT (c) 1989-2009.
0016  *  On-Line Applications Research Corporation (OAR).
0017  *
0018  * Redistribution and use in source and binary forms, with or without
0019  * modification, are permitted provided that the following conditions
0020  * are met:
0021  * 1. Redistributions of source code must retain the above copyright
0022  *    notice, this list of conditions and the following disclaimer.
0023  * 2. Redistributions in binary form must reproduce the above copyright
0024  *    notice, this list of conditions and the following disclaimer in the
0025  *    documentation and/or other materials provided with the distribution.
0026  *
0027  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0028  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0029  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0030  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0031  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0032  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0033  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0034  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0035  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0036  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0037  * POSSIBILITY OF SUCH DAMAGE.
0038  */
0039
0040 #ifdef HAVE_CONFIG_H
0041 #include "config.h"
0042 #endif
0043
0044 #include "system.h"
0045
0046 rtems_task Task_1(
0047   rtems_task_argument argument
0048 )
0049 {
0050   rtems_id          tid2;
0051   rtems_id          tid3;
0052   uint32_t    pass;
0053   rtems_status_code status;
0054
0055   status = rtems_task_ident( Task_name[ 2 ], 1, &tid2 );
0056   directive_failed( status, "rtems_task_ident of TA2" );
0057
0058   status = rtems_task_ident( Task_name[ 3 ], 1, &tid3 );
0059   directive_failed( status, "rtems_task_ident of TA3" );
0060
0061   for ( pass=1 ; pass <= 3 ; pass++ ) {
0062
0063     puts( "TA1 - rtems_task_wake_after - sleep 5 seconds" );
0064     status = rtems_task_wake_after( 5*rtems_clock_get_ticks_per_second() );
0065     directive_failed( status, "rtems_task_wake_after of TA1" );
0066
0067     puts( "TA1 - rtems_task_suspend - suspend TA3" );
0068     status = rtems_task_suspend( tid3 );
0069     if ( pass == 1 ) {
0070       fatal_directive_status(
0071          status,
0072          RTEMS_ALREADY_SUSPENDED,
0073          "rtems_task_suspend of TA3"
0074       );
0075     } else {
0076       directive_failed( status, "rtems_task_suspend of TA3" );
0077     }
0078
0079     puts( "TA1 - rtems_task_resume - resume TA2" );
0080     status = rtems_task_resume( tid2 );
0081     directive_failed( status, "rtems_task_resume of TA2" );
0082
0083     puts( "TA1 - rtems_task_wake_after - sleep 5 seconds" );
0084     status = rtems_task_wake_after( 5*rtems_clock_get_ticks_per_second() );
0085     directive_failed( status, "rtems_task_wake_after" );
0086
0087     puts( "TA1 - rtems_task_suspend - suspend TA2" );
0088     status = rtems_task_suspend( tid2 );
0089     directive_failed( status, "rtems_task_suspend of TA2" );
0090
0091     puts( "TA1 - rtems_task_resume - resume TA3" );
0092     status = rtems_task_resume( tid3 );
0093     directive_failed( status, "rtems_task_resume" );
0094   }
0095
0096   TEST_END();
0097   rtems_test_exit( 0 );
0098 }