1*13de33a5SJulio Merino 2*13de33a5SJulio Merinoe= q='?' a='*' t=texttext s='ast*que?non' p='/et[c]/' w='a b c' b='{{(#)}}' 3*13de33a5SJulio Merinoh='##' 4*13de33a5SJulio Merinofailures='' 5*13de33a5SJulio Merinook='' 6*13de33a5SJulio Merino 7*13de33a5SJulio Merinotestcase() { 8*13de33a5SJulio Merino code="$1" 9*13de33a5SJulio Merino expected="$2" 10*13de33a5SJulio Merino oIFS="$IFS" 11*13de33a5SJulio Merino eval "$code" 12*13de33a5SJulio Merino IFS='|' 13*13de33a5SJulio Merino result="$#|$*" 14*13de33a5SJulio Merino IFS="$oIFS" 15*13de33a5SJulio Merino if [ "x$result" = "x$expected" ]; then 16*13de33a5SJulio Merino ok=x$ok 17*13de33a5SJulio Merino else 18*13de33a5SJulio Merino failures=x$failures 19*13de33a5SJulio Merino echo "For $code, expected $expected actual $result" 20*13de33a5SJulio Merino fi 21*13de33a5SJulio Merino} 22*13de33a5SJulio Merino 23*13de33a5SJulio Merinotestcase 'set -- ${t%t}' '1|texttex' 24*13de33a5SJulio Merinotestcase 'set -- "${t%t}"' '1|texttex' 25*13de33a5SJulio Merinotestcase 'set -- ${t%e*}' '1|textt' 26*13de33a5SJulio Merinotestcase 'set -- "${t%e*}"' '1|textt' 27*13de33a5SJulio Merinotestcase 'set -- ${t%%e*}' '1|t' 28*13de33a5SJulio Merinotestcase 'set -- "${t%%e*}"' '1|t' 29*13de33a5SJulio Merinotestcase 'set -- ${t%%*}' '0|' 30*13de33a5SJulio Merinotestcase 'set -- "${t%%*}"' '1|' 31*13de33a5SJulio Merinotestcase 'set -- ${t#t}' '1|exttext' 32*13de33a5SJulio Merinotestcase 'set -- "${t#t}"' '1|exttext' 33*13de33a5SJulio Merinotestcase 'set -- ${t#*x}' '1|ttext' 34*13de33a5SJulio Merinotestcase 'set -- "${t#*x}"' '1|ttext' 35*13de33a5SJulio Merinotestcase 'set -- ${t##*x}' '1|t' 36*13de33a5SJulio Merinotestcase 'set -- "${t##*x}"' '1|t' 37*13de33a5SJulio Merinotestcase 'set -- ${t##*}' '0|' 38*13de33a5SJulio Merinotestcase 'set -- "${t##*}"' '1|' 39*13de33a5SJulio Merinotestcase 'set -- ${t%e$a}' '1|textt' 40*13de33a5SJulio Merino 41*13de33a5SJulio Merinoset -f 42*13de33a5SJulio Merinotestcase 'set -- ${s%[?]*}' '1|ast*que' 43*13de33a5SJulio Merinotestcase 'set -- "${s%[?]*}"' '1|ast*que' 44*13de33a5SJulio Merinotestcase 'set -- ${s%[*]*}' '1|ast' 45*13de33a5SJulio Merinotestcase 'set -- "${s%[*]*}"' '1|ast' 46*13de33a5SJulio Merinoset +f 47*13de33a5SJulio Merino 48*13de33a5SJulio Merinotestcase 'set -- $b' '1|{{(#)}}' 49*13de33a5SJulio Merinotestcase 'set -- ${b%\}}' '1|{{(#)}' 50*13de33a5SJulio Merinotestcase 'set -- ${b#{}' '1|{(#)}}' 51*13de33a5SJulio Merinotestcase 'set -- "${b#{}"' '1|{(#)}}' 52*13de33a5SJulio Merino# Parentheses are special in ksh, check that they can be escaped 53*13de33a5SJulio Merinotestcase 'set -- ${b%\)*}' '1|{{(#' 54*13de33a5SJulio Merinotestcase 'set -- ${b#{}' '1|{(#)}}' 55*13de33a5SJulio Merinotestcase 'set -- $h' '1|##' 56*13de33a5SJulio Merinotestcase 'set -- ${h#\#}' '1|#' 57*13de33a5SJulio Merinotestcase 'set -- ${h###}' '1|#' 58*13de33a5SJulio Merinotestcase 'set -- "${h###}"' '1|#' 59*13de33a5SJulio Merinotestcase 'set -- ${h%#}' '1|#' 60*13de33a5SJulio Merinotestcase 'set -- "${h%#}"' '1|#' 61*13de33a5SJulio Merino 62*13de33a5SJulio Merinoset -f 63*13de33a5SJulio Merinotestcase 'set -- ${s%"${s#?}"}' '1|a' 64*13de33a5SJulio Merinotestcase 'set -- ${s%"${s#????}"}' '1|ast*' 65*13de33a5SJulio Merinotestcase 'set -- ${s%"${s#????????}"}' '1|ast*que?' 66*13de33a5SJulio Merinotestcase 'set -- ${s#"${s%?}"}' '1|n' 67*13de33a5SJulio Merinotestcase 'set -- ${s#"${s%????}"}' '1|?non' 68*13de33a5SJulio Merinotestcase 'set -- ${s#"${s%????????}"}' '1|*que?non' 69*13de33a5SJulio Merinoset +f 70*13de33a5SJulio Merinotestcase 'set -- "${s%"${s#?}"}"' '1|a' 71*13de33a5SJulio Merinotestcase 'set -- "${s%"${s#????}"}"' '1|ast*' 72*13de33a5SJulio Merinotestcase 'set -- "${s%"${s#????????}"}"' '1|ast*que?' 73*13de33a5SJulio Merinotestcase 'set -- "${s#"${s%?}"}"' '1|n' 74*13de33a5SJulio Merinotestcase 'set -- "${s#"${s%????}"}"' '1|?non' 75*13de33a5SJulio Merinotestcase 'set -- "${s#"${s%????????}"}"' '1|*que?non' 76*13de33a5SJulio Merinotestcase 'set -- ${p#${p}}' '1|/etc/' 77*13de33a5SJulio Merinotestcase 'set -- "${p#${p}}"' '1|/et[c]/' 78*13de33a5SJulio Merinotestcase 'set -- ${p#*[[]}' '1|c]/' 79*13de33a5SJulio Merinotestcase 'set -- "${p#*[[]}"' '1|c]/' 80*13de33a5SJulio Merinotestcase 'set -- ${p#*\[}' '1|c]/' 81*13de33a5SJulio Merinotestcase 'set -- ${p#*"["}' '1|c]/' 82*13de33a5SJulio Merinotestcase 'set -- "${p#*"["}"' '1|c]/' 83*13de33a5SJulio Merino 84*13de33a5SJulio Merinotest "x$failures" = x 85