sptests/sp20/task1.c

0001 /* SPDX-License-Identifier: BSD-2-Clause */
0002
0003 /*
0004  *  COPYRIGHT (c) 1989-2011.
0005  *  On-Line Applications Research Corporation (OAR).
0006  *
0007  * Redistribution and use in source and binary forms, with or without
0008  * modification, are permitted provided that the following conditions
0009  * are met:
0010  * 1. Redistributions of source code must retain the above copyright
0011  *    notice, this list of conditions and the following disclaimer.
0012  * 2. Redistributions in binary form must reproduce the above copyright
0013  *    notice, this list of conditions and the following disclaimer in the
0014  *    documentation and/or other materials provided with the distribution.
0015  *
0016  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0017  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0018  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0019  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0020  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0021  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0022  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0023  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0024  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0025  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0026  * POSSIBILITY OF SUCH DAMAGE.
0027  */
0028
0029 #ifdef HAVE_CONFIG_H
0030 #include "config.h"
0031 #endif
0032
0033 #include "system.h"
0034
0035 #include <rtems/score/watchdogimpl.h>
0036
0037 /*
0038  runtime of TA6 should be shorter than TA5
0039  */
0040 #define TA6_ITERATIONS 10
0041 #define TA6_PERIOD_FACTOR 10
0042
0043 uint32_t      Periods[7]    = { 0,   2,   2,   2,   2, 100, 0 };
0044 uint32_t      Iterations[7] = { 0,  50,  50,  50,  50,   1, TA6_ITERATIONS };
0045 rtems_task_priority Priorities[7] = { 0,   1,   1,   3,   4,   5, 1 };
0046
0047 static char *name( size_t i, char buf[ 4 ] )
0048 {
0049   rtems_name_to_characters(
0050     Task_name[ i ],
0051     &buf[ 0 ],
0052     &buf[ 1 ],
0053     &buf[ 2 ],
0054     &buf[ 3 ]
0055   );
0056   buf[ 3 ] = '\0';
0057   return &buf[ 0 ];
0058 }
0059
0060 rtems_task Task_1_through_6(
0061   rtems_task_argument argument
0062 )
0063 {
0064   rtems_id          rmid;
0065   rtems_id          test_rmid;
0066   int               index;
0067   int               pass;
0068   uint32_t          failed;
0069   rtems_status_code status;
0070   char              buf[ 4 ];
0071
0072   status = rtems_rate_monotonic_create( argument, &rmid );
0073   directive_failed( status, "rtems_rate_monotonic_create" );
0074   rtems_test_printf(
0075     "%s - rtems_rate_monotonic_create id = 0x%08" PRIxrtems_id "\n",
0076     name( argument, buf ),
0077     rmid
0078   );
0079
0080   status = rtems_rate_monotonic_ident( argument, &test_rmid );
0081   directive_failed( status, "rtems_rate_monotonic_ident" );
0082   rtems_test_printf(
0083     "%s - rtems_rate_monotonic_ident id = 0x%08" PRIxrtems_id "\n",
0084     name( argument, buf ),
0085     test_rmid
0086   );
0087
0088   if ( rmid != test_rmid ) {
0089     rtems_test_printf(
0090       "RMID's DO NOT MATCH (0x%" PRIxrtems_id " and 0x%" PRIxrtems_id ")\n",
0091        rmid,
0092        test_rmid
0093     );
0094     rtems_test_exit( 0 );
0095   }
0096
0097   rtems_test_printf(
0098     "%s - (0x%08" PRIxrtems_id ") period %" PRIu32 "\n",
0099     name( argument, buf ),
0100     rmid,
0101     Periods[ argument ]
0102   );
0103
0104   status = rtems_task_wake_after( 2 );
0105   directive_failed( status, "rtems_task_wake_after" );
0106
0107   switch ( argument ) {
0108     case 1:
0109     case 2:
0110     case 3:
0111     case 4:
0112       while ( FOREVER ) {
0113         status = rtems_rate_monotonic_period( rmid, Periods[ argument ] );
0114         directive_failed( status, "rtems_rate_monotonic_period" );
0115
0116         Count.count[ argument ]++;
0117       }
0118       break;
0119     case 5:
0120       pass   = 0;
0121       failed = 0;
0122
0123       status = rtems_rate_monotonic_period( rmid, Periods[ argument ] );
0124       directive_failed( status, "rtems_rate_monotonic_period 1 of TA5" );
0125
0126       Get_all_counters();
0127
0128       while ( FOREVER ) {
0129
0130         status = rtems_rate_monotonic_period( rmid, Periods[ argument ] );
0131         directive_failed( status, "rtems_rate_monotonic_period 2 of TA5" );
0132
0133         Get_all_counters();
0134
0135         for( index = 1 ; index <= 4 ; index++ ) {
0136           if ( Temporary_count.count[ index ] != Iterations[ index ] ) {
0137             rtems_test_printf(
0138               "%s - FAIL - Actual=%" PRIu32 ", Expected=%" PRIu32 "\n",
0139               name( index, buf ),
0140               Temporary_count.count[ index ],
0141               Iterations[ index ]
0142             );
0143             failed += 1;
0144           }
0145         }
0146
0147         if ( failed == 5 )
0148           rtems_test_exit( 0 );
0149
0150         pass += 1;
0151
0152         rtems_test_printf( "TA5 - PERIODS CHECK OK (%d)\n", pass );
0153
0154         if ( pass == 10 ) {
0155           end_of_test();
0156         }
0157
0158       }
0159       break;
0160     case 6:
0161       /* test changing periods */
0162       {
0163         uint32_t   time[TA6_ITERATIONS+1];
0164         rtems_interval period;
0165
0166         period = 1*TA6_PERIOD_FACTOR;
0167         status = rtems_rate_monotonic_period( rmid, period);
0168         directive_failed( status, "rtems_rate_monotonic_period of TA6" );
0169         time[0] = _Watchdog_Ticks_since_boot; /* timestamp */
0170         /*rtems_test_printf("%d - %d\n", period, time[0]);*/
0171
0172         for (index = 1; index <= TA6_ITERATIONS; index++) {
0173           period = (index+1)*TA6_PERIOD_FACTOR;
0174           status = rtems_rate_monotonic_period( rmid,  period);
0175           directive_failed( status, "rtems_rate_monotonic_period of TA6" );
0176           time[index] = _Watchdog_Ticks_since_boot; /* timestamp */
0177           /*rtems_test_printf("%d - %d\n", period, time[index]);*/
0178         }
0179
0180         for (index = 1; index <= TA6_ITERATIONS; index++) {
0181           rtems_interval meas = time[index] - time[index-1];
0182           period = index*TA6_PERIOD_FACTOR;
0183           rtems_test_printf(
0184             "TA6 - Actual: %" PRIdrtems_interval
0185               " Expected: %" PRIdrtems_interval,
0186             meas,
0187             period
0188           );
0189           if (period == meas) rtems_test_printf(" - OK\n");
0190           else                rtems_test_printf(" - FAILED\n");
0191         }
0192       }
0193       rtems_task_suspend(RTEMS_SELF);
0194       break;
0195   }
0196 }