common/scripts/test_can_bitrate.sh

   1 #!/bin/sh
   2
   3 #This test is writen taking the DRA7xx-EVM board as an example
   4 #Theorical values of bitrate is from 1Kbit/s to 1Mbit/s
   5 #Real values to provide transmission are between 10797 bit/s and 1909090git bit/s
   6 #Real values that doesn't provide transmission but belong to the domain are between 781 bit/s and 5209999 bit/s
   7
   8 if [ ! -e /sys/class/net/can1 ];then
   9         lava-test-case canconfig_can0_bitrate --result skip
  10         lava-test-case receive_frames_through_can1 --result skip
  11         lava-test-case receive_frames_through_can1 --result skip
  12         lava-test-case receive_frames_through_can1 --result skip
  13         lava-test-case canconfig_can0_bitrate --result skip
  14         lava-test-case receive_frames_through_can1 --result skip
  15         exit 0
  16 fi
  17
  18 #This is the first part of the test, that tests if the bitrate inserted belongs to the domain and if
  19 #this first bitrate afford frames transmission or not
  20 ip link set can0 down
  21 if [ $? -eq 0 ];then
  22     lava-test-case stop_can0 --result pass
  23 else
  24     lava-test-case stop_can0 --result fail
  25 fi
  26 sleep 2
  27 ip link set can1 down
  28 if [ $? -eq 0 ];then
  29     lava-test-case stop_can1 --result pass
  30 else
  31     lava-test-case stop_can1 --result fail
  32 fi
  33 sleep 2
  34
  35 # b refers to bitrate
  36
  37 found_bitrate=0
  38 for b in `seq 778 790`;do
  39         ip link set can0 type can bitrate $b
  40         x=$?
  41         if [ $x -eq 0 ];then
  42                 lava-test-case can0_bitrate --result pass --measurement $b --units bit/s
  43                 echo "$b is the first bitrate in the domain"
  44                 found_bitrate=1
  45                 ip link set can1 type can bitrate $b
  46                 if [ $? -eq 0 ];then
  47                         lava-test-case can1_bitrate --result pass --measurement $b --units bit/s
  48                 else
  49                         lava-test-case can1_bitrate --result fail --measurement $b --units bit/s
  50                 fi
  51                 sleep 2
  52                 ip link set can0 up
  53                 if [ $? -eq 0 ];then
  54                         lava-test-case start_can0 --result pass
  55                 else
  56                         lava-test-case start_can0 --result fail
  57                 fi
  58                 sleep 2
  59                 ip link set can1 up
  60                 if [ $? -eq 0 ];then
  61                         lava-test-case start_can1 --result pass
  62                 else
  63                         lava-test-case start_can1 --result fail
  64                 fi
  65                 sleep 2
  66                 file_can=$(mktemp)
  67                 cangen can0 &
  68                 candump can1 > $file_can &
  69                 sleep 3
  70                 if [ -s $file_can ];then
  71                         lava-test-case Receive_can1 --result pass --measurement $b --units bit/s
  72                 else
  73                         lava-test-case Receive_can1 --result fail --measurement $b --units bit/s
  74                         sleep 2
  75                         echo "This bitrate $b belongs to the domain but doesn't provide frames transmission"
  76                         break
  77                 fi
  78                 rm $file_can
  79         fi
  80 done
  81
  82 if [ $found_bitrate -eq 0 ];then
  83         lava-test-case can0_bitrate --result fail --measurement $b --units bit/s
  84         sleep 2
  85         echo "There is no supportable bitrate in this interval"
  86 fi
  87 ip link set can0 down
  88 ip link set can1 down
  89 sleep 2
  90 #This is the second part of the test, it tests the first bitrate to provide frames transmission
  91
  92 ip link set can0 down
  93 ip link set can1 down
  94 found_bitrate_for_transmisson=0
  95 for b in `seq 10790 10800`;do
  96     ip link set can0 type can bitrate $b
  97     ip link set can1 type can bitrate $b
  98     ip link set can0 up
  99     ip link set can1 up
 100     sleep 3
 101     file_can=$(mktemp)
 102         cangen can0 &
 103         candump can1 > $file_can &
 104         sleep 4
 105     if [ -s $file_can ];then
 106                 found_bitrate_for_transmisson=1
 107                 lava-test-case Receive_can1 --result pass --measurement $b --units bit/s
 108         sleep 2
 109                 echo "$b is the first supportable bitrate to provide transmission"
 110                 break
 111         fi
 112         ip link set can0 down
 113         ip link set can1 down
 114         rm $file_can
 115 done
 116
 117 if [ $found_bitrate_for_transmisson -eq 0 ];then
 118         lava-test-case Receive_can1 --result fail --measurement $b --units bit/s
 119         sleep 2
 120         echo "There is no bitrate in this interval to provide frames transmission"
 121 fi
 122
 123
 124 #This is the third part of the test, it tests the last bitrate to provide frames transmission
 125
 126 ip link set can0 down
 127 ip link set can1 down
 128 bitrate_no_transmission=0
 129 for b in `seq 1909088 1909092`;do
 130     ip link set can0 type can bitrate $b
 131     ip link set can1 type can bitrate $b
 132     ip link set can0 up
 133     ip link set can1 up
 134     sleep 2
 135     file_can=$(mktemp)
 136     cangen can0 &
 137     candump can1 > $file_can &
 138     sleep 3
 139         size=$(stat -c %s $file_can)
 140         if [ $size -eq 0 ];then
 141                 bitrate_no_transmission=1
 142                 lava-test-case Receive_can1 --result pass --measurement $(($b-1)) --units bit/s
 143                 lava-test-case Receive_can1 --result fail --measurement $b --units bit/s
 144                 sleep 2
 145                 echo "This bitrate $b doesn't provide frames transmission"
 146                 echo "The last bitrate to provide frames transmission is $(($b-1))"
 147                 break
 148         fi
 149         ip link set can0 down
 150         ip link set can1 down
 151     rm $file_can
 152 done
 153
 154 if [ $bitrate_no_transmission -eq 0 ];then
 155         lava-test-case Receive_can1 --result pass --measurement $b --units bit/s
 156         echo "All bitrates in this interval provide frames transmission"
 157         ip link set can0 down
 158         ip link set can1 down
 159 fi
 160
 161 #This is the last part of the test, it tests the last bitrate that belongs to the domain
 162 sleep 3
 163 ip link set can0 down
 164 ip link set can1 down
 165 out_of_domain=0
 166 for b in `seq 5290999 5291000`;do
 167         ip link set can0 type can bitrate $b
 168         x=$?
 169         sleep 2
 170         if [ $x -ne 0 ];then
 171                 out_of_domain=1
 172                 lava-test-case can0_bitrate --result fail --measurement $b --units bit/s
 173                 echo "$b is the first bitrate to be out of the domain"
 174                 echo "The last bitrate to belong to the domain is $(($b-1))"
 175                 break
 176         fi
 177 done
 178
 179 if [ $out_of_domain -eq 0 ];then
 180         lava-test-case can0_bitrate --result pass --measurement $b --units bit/s
 181         echo "All bitrates in this interval belong to the domain"
 182         canconfig can0 stop
 183         canconfig can1 stop
 184 fi