sh: Add some simple testcases for pathname expansion.
This commit is contained in:
parent
204b20d932
commit
58729dbfc4
61
tools/regression/bin/sh/expansion/pathname1.0
Normal file
61
tools/regression/bin/sh/expansion/pathname1.0
Normal file
@ -0,0 +1,61 @@
|
||||
# $FreeBSD$
|
||||
|
||||
failures=0
|
||||
|
||||
check() {
|
||||
testcase=$1
|
||||
expect=$2
|
||||
eval "set -- $testcase"
|
||||
actual="$*"
|
||||
if [ "$actual" != "$expect" ]; then
|
||||
failures=$((failures+1))
|
||||
printf '%s\n' "For $testcase, expected $expect actual $actual"
|
||||
fi
|
||||
}
|
||||
|
||||
set -e
|
||||
T=$(mktemp -d ${TMPDIR:-/tmp}/sh-test.XXXXXX)
|
||||
trap 'rm -rf $T' 0
|
||||
cd -P $T
|
||||
|
||||
mkdir testdir testdir2 'testdir/*' 'testdir/?' testdir/a testdir/b testdir2/b
|
||||
mkdir testdir2/.c
|
||||
touch testf 'testdir/*/1' 'testdir/?/1' testdir/a/1 testdir/b/1 testdir2/b/.a
|
||||
|
||||
check '' ''
|
||||
check 'testdir/b' 'testdir/b'
|
||||
check 'testdir/c' 'testdir/c'
|
||||
check '\*' '*'
|
||||
check '\?' '?'
|
||||
check '*' 'testdir testdir2 testf'
|
||||
check '*""' 'testdir testdir2 testf'
|
||||
check '""*' 'testdir testdir2 testf'
|
||||
check '*/' 'testdir/ testdir2/'
|
||||
check 'testdir*/a' 'testdir/a'
|
||||
check 'testdir*/b' 'testdir/b testdir2/b'
|
||||
check '*/.c' 'testdir2/.c'
|
||||
check 'testdir2/*' 'testdir2/b'
|
||||
check 'testdir2/b/*' 'testdir2/b/*'
|
||||
check 'testdir/*' 'testdir/* testdir/? testdir/a testdir/b'
|
||||
check 'testdir/*/1' 'testdir/*/1 testdir/?/1 testdir/a/1 testdir/b/1'
|
||||
check '"testdir/"*/1' 'testdir/*/1 testdir/?/1 testdir/a/1 testdir/b/1'
|
||||
check 'testdir/\*/*' 'testdir/*/1'
|
||||
check 'testdir/\?/*' 'testdir/?/1'
|
||||
check 'testdir/"?"/*' 'testdir/?/1'
|
||||
check '"testdir"/"?"/*' 'testdir/?/1'
|
||||
check '"testdir"/"?"*/*' 'testdir/?/1'
|
||||
check '"testdir"/*"?"/*' 'testdir/?/1'
|
||||
check '"testdir/?"*/*' 'testdir/?/1'
|
||||
check 'testdir/\*/' 'testdir/*/'
|
||||
check 'testdir/\?/' 'testdir/?/'
|
||||
check 'testdir/"?"/' 'testdir/?/'
|
||||
check '"testdir"/"?"/' 'testdir/?/'
|
||||
check '"testdir"/"?"*/' 'testdir/?/'
|
||||
check '"testdir"/*"?"/' 'testdir/?/'
|
||||
check '"testdir/?"*/' 'testdir/?/'
|
||||
check 'testdir/[*]/' 'testdir/*/'
|
||||
check 'testdir/[?]/' 'testdir/?/'
|
||||
check 'testdir/[*?]/' 'testdir/*/ testdir/?/'
|
||||
check '[tz]estdir/[*]/' 'testdir/*/'
|
||||
|
||||
exit $((failures != 0))
|
Loading…
x
Reference in New Issue
Block a user