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