tests/ifs-posix.tests

   1 # Usage: $SHELL ifs.sh
   2 #
   3 # This script generates 6856 tests for the set(1) and read(1)
   4 # builtins w.r.t. IFS whitespace and non-whitespace characters.
   5 # Each failed test produces one line on the standard output that
   6 # contains the test along with the expected and actual results.
   7 # The last output line contains the test result counts.  ordered>0
   8 # are the number of tests where IFS=": " produced different results
   9 # than IFS=" :".  If a test fails the same way for IFS=": " and
  10 # IFS=" :" then the second output line is suppressed.
  11
  12 TESTS=6856
  13
  14 ksh_read=0
  15 echo 1 | read ksh_read
  16 ksh_arith=0
  17 eval '((ksh_arith+=1))' 2>/dev/null
  18
  19 failed=0
  20 ordered=0
  21 passed=0
  22
  23 split()
  24 {
  25         i=$1 s=$2 r=$3 S='' R=''
  26         for ifs in ': ' ' :'
  27         do      IFS=$ifs
  28                 set x $i
  29                 shift
  30                 IFS=' '
  31                 g="[$#]"
  32                 while   :
  33                 do      case $# in
  34                         0)      break ;;
  35                         esac
  36                         g="$g($1)"
  37                         shift
  38                 done
  39                 case $g in
  40                 "$s")   case $ksh_arith in
  41                         1)      ((passed+=1)) ;;
  42                         *)      passed=`expr $passed + 1` ;;
  43                         esac
  44                         case $S in
  45                         '')     S=$g
  46                                 ;;
  47                         "$g")   ;;
  48                         *)      case $ksh_arith in
  49                                 1)      ((ordered+=1)) ;;
  50                                 *)      ordered=`expr $ordered + 1` ;;
  51                                 esac
  52                                 ;;
  53                         esac
  54                         ;;
  55                 "$S")   case $ksh_arith in
  56                         1)      ((failed+=1)) ;;
  57                         *)      failed=`expr $failed + 1` ;;
  58                         esac
  59                         ;;
  60                 *)      case $ksh_arith in
  61                         1)      ((failed+=1)) ;;
  62                         *)      failed=`expr $failed + 1` ;;
  63                         esac
  64                         case $s in
  65                         "$S")   ;;
  66                         ?0*)    echo "IFS=\"$ifs\"; x=\"$i\"; set x \$x; shift; echo \"[\$#]\" # expected \"$s\" got \"$g\"" ;;
  67                         ?1*)    echo "IFS=\"$ifs\"; x=\"$i\"; set x \$x; shift; echo \"[\$#](\$1)\" # expected \"$s\" got \"$g\"" ;;
  68                         ?2*)    echo "IFS=\"$ifs\"; x=\"$i\"; set x \$x; shift; echo \"[\$#](\$1)(\$2)\" # expected \"$s\" got \"$g\"" ;;
  69                         ?3*)    echo "IFS=\"$ifs\"; x=\"$i\"; set x \$x; shift; echo \"[\$#](\$1)(\$2)(\$3)\" # expected \"$s\" got \"$g\"" ;;
  70                         *)      echo TEST ERROR i="'$i'" s="'$s'" ;;
  71                         esac
  72                         case $S in
  73                         '')     S=$g
  74                                 ;;
  75                         "$g")   ;;
  76                         *)      case $ksh_arith in
  77                                 1)      ((ordered+=1)) ;;
  78                                 *)      ordered=`expr $ordered + 1` ;;
  79                                 esac
  80                                 ;;
  81                         esac
  82                 esac
  83                 case $ksh_read in
  84                 1)      echo "$i" | IFS=$ifs read x y; g="($x)($y)" ;;
  85                 *)      g=`export ifs; echo "$i" | ( IFS=$ifs; read x y; echo "($x)($y)" )` ;;
  86                 esac
  87                 case $g in
  88                 "$r")   case $ksh_arith in
  89                         1)      ((passed+=1)) ;;
  90                         *)      passed=`expr $passed + 1` ;;
  91                         esac
  92                         case $R in
  93                         '')     R=$g
  94                                 ;;
  95                         "$g")   ;;
  96                         *)      case $ksh_arith in
  97                                 1)      ((ordered+=1)) ;;
  98                                 *)      ordered=`expr $ordered + 1` ;;
  99                                 esac
 100                                 ;;
 101                         esac
 102                         ;;
 103                 "$R")   case $ksh_arith in
 104                         1)      ((failed+=1)) ;;
 105                         *)      failed=`expr $failed + 1` ;;
 106                         esac
 107                         ;;
 108                 *)      case $ksh_arith in
 109                         1)      ((failed+=1)) ;;
 110                         *)      failed=`expr $failed + 1` ;;
 111                         esac
 112                         case $r in
 113                         "$R")   ;;
 114                         *)      echo "echo \"$i\" | ( IFS=\"$ifs\" read x y; echo \"(\$x)(\$y)\" ) # expected \"$r\" got \"$g\"" ;;
 115                         esac
 116                         case $R in
 117                         '')     R=$g
 118                                 ;;
 119                         "$g")   ;;
 120                         *)      case $ksh_arith in
 121                                 1)      ((ordered+=1)) ;;
 122                                 *)      ordered=`expr $ordered + 1` ;;
 123                                 esac
 124                                 ;;
 125                         esac
 126                         ;;
 127                 esac
 128         done
 129 }
 130
 131 for str in      \
 132         '-'     \
 133         'a'     \
 134         '- -'   \
 135         '- a'   \
 136         'a -'   \
 137         'a b'   \
 138         '- - -' \
 139         '- - a' \
 140         '- a -' \
 141         '- a b' \
 142         'a - -' \
 143         'a - b' \
 144         'a b -' \
 145         'a b c' \
 146
 147 do
 148         IFS=' '
 149         set x $str
 150
 151         shift
 152         case $# in
 153         0)      continue ;;
 154         esac
 155
 156         f1=$1
 157         case $f1 in
 158         '-')    f1='' ;;
 159         esac
 160
 161         shift
 162         case $# in
 163         0)      for d0 in '' ' '
 164                 do
 165                         for d1 in '' ' ' ':' ' :' ': ' ' : '
 166                         do
 167                                 case $f1$d1 in
 168                                 '')     split "$d0$f1$d1" "[0]" "()()" ;;
 169                                 ' ')    ;;
 170                                 *)      split "$d0$f1$d1" "[1]($f1)" "($f1)()" ;;
 171                                 esac
 172                         done
 173                 done
 174                 continue
 175                 ;;
 176         esac
 177         f2=$1
 178         case $f2 in
 179         '-')    f2='' ;;
 180         esac
 181
 182         shift
 183         case $# in
 184         0)      for d0 in '' ' '
 185                 do
 186                         for d1 in ' ' ':' ' :' ': ' ' : '
 187                         do
 188                                 case ' ' in
 189                                 $f1$d1|$d1$f2)  continue ;;
 190                                 esac
 191                                 for d2 in '' ' ' ':' ' :' ': ' ' : '
 192                                 do
 193                                         case $f2$d2 in
 194                                         '')     split "$d0$f1$d1$f2$d2" "[1]($f1)" "($f1)()" ;;
 195                                         ' ')    ;;
 196                                         *)      split "$d0$f1$d1$f2$d2" "[2]($f1)($f2)" "($f1)($f2)" ;;
 197                                         esac
 198                                 done
 199                         done
 200                 done
 201                 continue
 202                 ;;
 203         esac
 204         f3=$1
 205         case $f3 in
 206         '-')    f3='' ;;
 207         esac
 208
 209         shift
 210         case $# in
 211         0)      for d0 in '' ' '
 212                 do
 213                         for d1 in ':' ' :' ': ' ' : '
 214                         do
 215                                 case ' ' in
 216                                 $f1$d1|$d1$f2)  continue ;;
 217                                 esac
 218                                 for d2 in ' ' ':' ' :' ': ' ' : '
 219                                 do
 220                                         case $f2$d2 in
 221                                         ' ')    continue ;;
 222                                         esac
 223                                         case ' ' in
 224                                         $f2$d2|$d2$f3)  continue ;;
 225                                         esac
 226                                         for d3 in '' ' ' ':' ' :' ': ' ' : '
 227                                         do
 228                                                 case $f3$d3 in
 229                                                 '')     split "$d0$f1$d1$f2$d2$f3$d3" "[2]($f1)($f2)" "($f1)($f2)" ;;
 230                                                 ' ')    ;;
 231                                                 *)      x=$f2$d2$f3$d3
 232                                                         x=${x#' '}
 233                                                         x=${x%' '}
 234                                                         split "$d0$f1$d1$f2$d2$f3$d3" "[3]($f1)($f2)($f3)" "($f1)($x)"
 235                                                         ;;
 236                                                 esac
 237                                         done
 238                                 done
 239                         done
 240                 done
 241                 continue
 242                 ;;
 243         esac
 244 done
 245 case $ksh_arith in
 246 1)      ((tests=passed+failed)) ;;
 247 *)      tests=`expr $passed + $failed` ;;
 248 esac
 249 case $ordered in
 250 0)      ordered="" ;;
 251 *)      ordered=" ordered $ordered" ;;
 252 esac
 253 case $tests in
 254 $TESTS) fatal="" ;;
 255 *)      fatal=" -- fundamental IFS error -- $TESTS tests expected"
 256 esac
 257 echo "# tests $tests passed $passed failed $failed$ordered$fatal"