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 Merinoset -f 24*13de33a5SJulio Merinotestcase 'set -- $s' '1|ast*que?non' 25*13de33a5SJulio Merinotestcase 'set -- ${s%\?*}' '1|ast*que' 26*13de33a5SJulio Merinotestcase 'set -- "${s%\?*}"' '1|ast*que' 27*13de33a5SJulio Merinotestcase 'set -- ${s%\**}' '1|ast' 28*13de33a5SJulio Merinotestcase 'set -- "${s%\**}"' '1|ast' 29*13de33a5SJulio Merinotestcase 'set -- ${s%"$q"*}' '1|ast*que' 30*13de33a5SJulio Merinotestcase 'set -- "${s%"$q"*}"' '1|ast*que' 31*13de33a5SJulio Merinotestcase 'set -- ${s%"$a"*}' '1|ast' 32*13de33a5SJulio Merinotestcase 'set -- "${s%"$a"*}"' '1|ast' 33*13de33a5SJulio Merinotestcase 'set -- ${s%"$q"$a}' '1|ast*que' 34*13de33a5SJulio Merinotestcase 'set -- "${s%"$q"$a}"' '1|ast*que' 35*13de33a5SJulio Merinotestcase 'set -- ${s%"$a"$a}' '1|ast' 36*13de33a5SJulio Merinotestcase 'set -- "${s%"$a"$a}"' '1|ast' 37*13de33a5SJulio Merinoset +f 38*13de33a5SJulio Merino 39*13de33a5SJulio Merinotestcase 'set -- "${b%\}}"' '1|{{(#)}' 40*13de33a5SJulio Merino# Parentheses are special in ksh, check that they can be escaped 41*13de33a5SJulio Merinotestcase 'set -- "${b%\)*}"' '1|{{(#' 42*13de33a5SJulio Merinotestcase 'set -- "${h#\#}"' '1|#' 43*13de33a5SJulio Merino 44*13de33a5SJulio Merinotestcase 'set -- ${p%"${p#?}"}' '1|/' 45*13de33a5SJulio Merinotestcase 'set -- ${p%"${p#??????}"}' '1|/etc' 46*13de33a5SJulio Merinotestcase 'set -- ${p%"${p#???????}"}' '1|/etc/' 47*13de33a5SJulio Merinotestcase 'set -- "${p%"${p#?}"}"' '1|/' 48*13de33a5SJulio Merinotestcase 'set -- "${p%"${p#??????}"}"' '1|/et[c]' 49*13de33a5SJulio Merinotestcase 'set -- "${p%"${p#???????}"}"' '1|/et[c]/' 50*13de33a5SJulio Merinotestcase 'set -- ${p#"${p}"}' '0|' 51*13de33a5SJulio Merinotestcase 'set -- "${p#"${p}"}"' '1|' 52*13de33a5SJulio Merinotestcase 'set -- "${p#*\[}"' '1|c]/' 53*13de33a5SJulio Merino 54*13de33a5SJulio Merinotest "x$failures" = x 55