fish-shell/tests/string.in
2018-05-28 12:10:40 +02:00

343 lines
11 KiB
Fish

# Tests for string builtin. Mostly taken from man page examples.
logmsg 'string match -r -v "c.*" dog can cat diz'
string match -r -v "c.*" dog can cat diz; and echo "exit 0"
logmsg 'string match -q -r -v "c.*" dog can cat diz'
string match -q -r -v "c.*" dog can cat diz; and echo "exit 0"
logmsg 'string match -v "c*" dog can cat diz'
string match -v "c*" dog can cat diz; and echo "exit 0"
logmsg 'string match -q -v "c*" dog can cat diz'
string match -q -v "c*" dog can cat diz; and echo "exit 0"
logmsg 'string match -v "d*" dog dan dat diz'
string match -v "d*" dog dan dat diz; or echo "exit 1"
logmsg 'string match -q -v "d*" dog dan dat diz'
string match -q -v "d*" dog dan dat diz; or echo "exit 1"
logmsg 'string match -r -v x y'
string match -r -v x y; and echo "exit 0"
logmsg 'string match -r -v x x'
string match -r -v x x; or echo "exit 1"
logmsg 'string match -q -r -v x y'
string match -q -r -v x y; and echo "exit 0"
logmsg 'string match -q -r -v x x'
string match -q -r -v x x; or echo "exit 1"
logmsg 'string length "hello, world"'
string length "hello, world"
logmsg 'string length -q ""'
string length -q ""; and echo not zero length; or echo zero length
logmsg 'string sub --length 2 abcde'
string sub --length 2 abcde
logmsg 'string sub -s 2 -l 2 abcde'
string sub -s 2 -l 2 abcde
logmsg 'string sub --start=-2 abcde'
string sub --start=-2 abcde
logmsg 'string split . example.com'
string split . example.com
logmsg 'string split -r -m1 / /usr/local/bin/fish'
string split -r -m1 / /usr/local/bin/fish
logmsg 'string split "" abc'
string split "" abc
logmsg 'seq 3 | string join ...'
seq 3 | string join ...
logmsg 'string trim " abc "'
string trim " abc "
logmsg 'string trim --right --chars=yz xyzzy zany'
string trim --right --chars=yz xyzzy zany
logmsg 'echo \x07 | string escape'
echo \x07 | string escape
logmsg 'string escape --style=script \'a b#c"\\\'d\''
string escape --style=script 'a b#c"\'d'
logmsg 'string escape --style=url \'a b#c"\\\'d\''
string escape --style=url 'a b#c"\'d'
logmsg 'string escape --style=url \\na\\nb%c~d\\n'
string escape --style=url \na\nb%c~d\n
logmsg 'string escape --style=var \'a b#c"\\\'d\''
string escape --style=var 'a b#c"\'d'
logmsg 'string escape --style=script a\nghi_'
string escape --style=var a\nghi_
logmsg 'string escape --style=var \'abc\''
string escape --style=var 'abc'
logmsg 'string escape --style=var \'_a_b_c_\''
string escape --style=var '_a_b_c_'
logmsg 'string escape --style=var -- -'
string escape --style=var -- -
# The following tests verify that we can correctly unescape the same strings
# we tested escaping above.
logmsg 'set x (string unescape (echo \x07 | string escape))'
set x (string unescape (echo \x07 | string escape))
test $x = \x07
and echo success
logmsg 'string unescape --style=script (string escape --style=script \'a b#c"\\\'d\')'
string unescape --style=script (string escape --style=script 'a b#c"\'d')
logmsg 'string unescape --style=url (string escape --style=url \'a b#c"\\\'d\')'
string unescape --style=url (string escape --style=url 'a b#c"\'d')
logmsg 'string unescape --style=url (string escape --style=url \na\nb%c~d\n)'
string unescape --style=url (string escape --style=url \na\nb%c~d\n)
logmsg 'string unescape --style=var (string escape --style=var \'a b#c"\\\'d\')'
string unescape --style=var (string escape --style=var 'a b#c"\'d')
logmsg 'string unescape --style=var (string escape --style=var a\nghi_)'
string unescape --style=var (string escape --style=var a\nghi_)
logmsg 'string unescape --style=var (string escape --style=var \'abc\')'
string unescape --style=var (string escape --style=var 'abc')
logmsg 'string unescape --style=var (string escape --style=var \'_a_b_c_\')'
string unescape --style=var (string escape --style=var '_a_b_c_')
logmsg 'string unescape --style=var (string escape --style=var -- -)'
string unescape --style=var -- (string escape --style=var -- -)
# The following tests verify that we can correctly match strings.
logmsg 'string match "*" a'
string match "*" a
logmsg 'string match "a*b" axxb'
string match "a*b" axxb
logmsg 'string match -i "a**B" Axxb'
string match -i "a**B" Axxb
logmsg 'echo "ok?" | string match "*?"'
echo "ok?" | string match "*?"
logmsg 'string match -r "cat|dog|fish" "nice dog"'
string match -r "cat|dog|fish" "nice dog"
logmsg 'string match -r "(\d\d?):(\d\d):(\d\d)" 2:34:56'
string match -r "(\d\d?):(\d\d):(\d\d)" 2:34:56
logmsg 'string match -r "^(\w{2,4})\g1\$" papa mud murmur'
string match -r "^(\w{2,4})\g1\$" papa mud murmur
logmsg 'string match -r -a -n at ratatat'
string match -r -a -n at ratatat
logmsg 'string match -r -i "0x[0-9a-f]{1,8}" "int magic = 0xBadC0de;"'
string match -r -i "0x[0-9a-f]{1,8}" "int magic = 0xBadC0de;"
logmsg 'string replace is was "blue is my favorite"'
string replace is was "blue is my favorite"
logmsg 'string replace 3rd last 1st 2nd 3rd'
string replace 3rd last 1st 2nd 3rd
logmsg 'string replace -a " " _ "spaces to underscores"'
string replace -a " " _ "spaces to underscores"
logmsg 'string replace -r -a "[^\d.]+" " " "0 one two 3.14 four 5x"'
string replace -r -a "[^\d.]+" " " "0 one two 3.14 four 5x"
logmsg 'string replace -r "(\w+)\s+(\w+)" "\$2 \$1 \$\$" "left right"'
string replace -r "(\w+)\s+(\w+)" "\$2 \$1 \$\$" "left right"
logmsg 'string replace -r "\s*newline\s*" "\n" "put a newline here"'
string replace -r "\s*newline\s*" "\n" "put a newline here"
logmsg 'string replace -r -a "(\w)" "\$1\$1" ab'
string replace -r -a "(\w)" "\$1\$1" ab
logmsg 'string replace --filter x X abc axc x def jkx'
string replace --filter x X abc axc x def jkx
or echo Unexpected exit status at line (status --current-line-number)
string replace --filter y Y abc axc x def jkx
and echo Unexpected exit status at line (status --current-line-number)
logmsg 'string replace --regex -f "\d" X 1bc axc 2 d3f jk4 xyz'
string replace --regex -f "\d" X 1bc axc 2 d3f jk4 xyz
or echo Unexpected exit status at line (status --current-line-number)
string replace --regex -f "Z" X 1bc axc 2 d3f jk4 xyz
and echo Unexpected exit status at line (status --current-line-number)
# test some failure cases
logmsg 'string match -r "[" "a[sd"'
string match -r "[" "a[sd"; and echo "unexpected exit 0"
logmsg 'string invalidarg'
string invalidarg; and echo "unexpected exit 0"
logmsg 'string length'
string length; or echo "missing argument returns 1"
logmsg 'string match -r -v "[dcantg].*" dog can cat diz'
string match -r -v "[dcantg].*" dog can cat diz; or echo "no regexp invert match"
logmsg 'string match -v "*" dog can cat diz'
string match -v "*" dog can cat diz; or echo "no glob invert match"
logmsg 'string match -rvn a bbb'
string match -rvn a bbb; or echo "exit 1"
# test repeat subcommand
logmsg 'string repeat -n 2 "foo"'
string repeat -n 2 "foo"
logmsg 'string repeat --count 2 "foo"'
string repeat --count 2 "foo"
logmsg 'echo foo | string repeat -n 2'
echo foo | string repeat -n 2
logmsg 'string repeat -n2 -q "foo"'
string repeat -n2 -q "foo"; and echo "exit 0"
logmsg 'string repeat -n2 --quiet "foo"'
string repeat -n2 --quiet "foo"; and echo "exit 0"
logmsg 'string repeat -n0 "foo"'
string repeat -n0 "foo"; or echo "exit 1"
logmsg 'string repeat -n0'
string repeat -n0; or echo "exit 1"
logmsg 'string repeat -m0'
string repeat -m0; or echo "exit 1"
logmsg 'string repeat -n1 -N "there is "'
string repeat -n1 -N "there is "; echo "no newline"
logmsg 'string repeat -n1 --no-newline "there is "'
string repeat -n1 --no-newline "there is "; echo "no newline"
logmsg 'string repeat -n10 -m4 "foo"'
string repeat -n10 -m4 "foo"
logmsg 'string repeat -n10 --max 5 "foo"'
string repeat -n10 --max 5 "foo"
logmsg 'string repeat -n3 -m20 "foo"'
string repeat -n3 -m20 "foo"
logmsg 'string repeat -m4 "foo"'
string repeat -m4 "foo"
logmsg 'string repeat -n-1 "foo"'
string repeat -n-1 "foo"; and echo "exit 0"
logmsg 'string repeat -m-1 "foo"'
string repeat -m-1 "foo"; and echo "exit 0"
logmsg 'string repeat -n notanumber "foo"'
string repeat -n notanumber "foo"; and echo "exit 0"
logmsg 'string repeat -m notanumber "foo"'
string repeat -m notanumber "foo"; and echo "exit 0"
logmsg 'echo "stdin" | string repeat -n1 "and arg"'
echo "stdin" | string repeat -n1 "and arg"; and echo "exit 0"
logmsg 'string repeat -n'
string repeat -n; and echo "exit 0"
logmsg 'string repeat -l fakearg 2>&1'
string repeat -l fakearg
logmsg 'string repeat ""'
string repeat ""
or echo string repeat empty string failed
logmsg 'string repeat -n3 ""'
string repeat -n3 ""
or echo string repeat empty string failed
# Test equivalent matches with/without the --entire, --regex, and --invert flags.
logmsg 'string match -e x abc dxf xyz jkx x z'
string match -e x abc dxf xyz jkx x z
or echo exit 1
logmsg 'string match x abc dxf xyz jkx x z'
string match x abc dxf xyz jkx x z
logmsg 'string match --entire -r "a*b[xy]+" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz'
string match --entire -r "a*b[xy]+" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz
or echo exit 1
logmsg 'string match -r "a*b[xy]+" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz'
string match -r "a*b[xy]+" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz
or echo exit 1
# Make sure that groups are handled correct with/without --entire.
logmsg 'string match --entire -r "a*b([xy]+)" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz'
string match --entire -r "a*b([xy]+)" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz
or echo exit 1
logmsg 'string match -r "a*b([xy]+)" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz'
string match -r "a*b([xy]+)" abc abxc bye aaabyz kaabxz abbxy abcx caabxyxz
or echo exit 1
# Test `string lower` and `string upper`.
set x (string lower abc DEF gHi)
or echo string lower exit 1
test $x[1] = 'abc' -a $x[2] = 'def' -a $x[3] = 'ghi'
or echo strings not converted to lowercase
set x (echo abc DEF gHi | string lower)
or echo string lower exit 1
test $x[1] = 'abc def ghi'
or echo strings not converted to lowercase
string lower -q abc
and echo lowercasing a lowercase string did not fail as expected
set x (string upper abc DEF gHi)
or echo string upper exit 1
test $x[1] = 'ABC' -a $x[2] = 'DEF' -a $x[3] = 'GHI'
or echo strings not converted to uppercase
set x (echo abc DEF gHi | string upper)
or echo string upper exit 1
test $x[1] = 'ABC DEF GHI'
or echo strings not converted to uppercase
string upper -q ABC DEF
and echo uppercasing a uppercase string did not fail as expected
logmsg 'Check NUL'
# Note: We do `string escape` at the end to make a `\0` literal visible.
printf 'a\0b' | string escape
printf 'a\0c' | string match -e 'a' | string escape
printf 'a\0d' | string split '' | string escape
printf 'a\0b' | string match -r '.*b$' | string escape
printf 'a\0b' | string replace b g | string escape
printf 'a\0b' | string replace -r b g | string escape
# TODO: These do not yet work!
# printf 'a\0b' | string match '*b' | string escape
exit 0