mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-06-01 12:56:04 +02:00
416 lines
6.2 KiB
Plaintext
416 lines
6.2 KiB
Plaintext
# Tests of parameter assignments
|
|
|
|
%test
|
|
|
|
typeset -A assoc
|
|
assoc=(one 1 two 2 odd)
|
|
1:assign to association with odd no. of values
|
|
?(eval):2: bad set of key/value pairs for associative array
|
|
|
|
# tests of array element assignment
|
|
|
|
array=(1 2 3 4 5)
|
|
array[1]=42
|
|
print $array
|
|
0:Replacement of array element
|
|
>42 2 3 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[1]=(42 43)
|
|
print $array
|
|
0:Replacement of array element with array
|
|
>42 43 2 3 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[1,2]=(42 43)
|
|
print $array
|
|
0:Replacement of start of array
|
|
>42 43 3 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[1,4]=(42 43)
|
|
print $array
|
|
0:Replacement of start of array with shorter slice
|
|
>42 43 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[1,6]=(42 43)
|
|
print $array
|
|
0:Replacement of array by extending slice
|
|
>42 43
|
|
|
|
array=(1 2 3 4 5)
|
|
array[3]=(42 43)
|
|
print $array
|
|
0:Replacement of middle element with array
|
|
>1 2 42 43 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[3,4]=(42 43 44)
|
|
print $array
|
|
0:Replacement of slice in middle
|
|
>1 2 42 43 44 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[7,8]=(42 43)
|
|
print $array
|
|
# check that [6] was left empty...
|
|
array[6]=41
|
|
print $array
|
|
0:Appending by replacing elements off the end
|
|
>1 2 3 4 5 42 43
|
|
>1 2 3 4 5 41 42 43
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-1]=42
|
|
print $array
|
|
0:Replacement of last element of array, negative indices
|
|
>1 2 3 4 42
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-1]=(42 43)
|
|
print $array
|
|
0:Replacement of last element of array with array, negative indices
|
|
>1 2 3 4 42 43
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-3,-2]=(42 43 44)
|
|
print $array
|
|
0:Replacement of middle of array, negative indices
|
|
>1 2 42 43 44 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-5,-1]=(42 43)
|
|
print $array
|
|
0:Replacement of entire array, negative indices
|
|
>42 43
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-7,-1]=(42 43)
|
|
print $array
|
|
0:Replacement of more than entire array, negative indices
|
|
>42 43
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-7]=42
|
|
print $array
|
|
0:Replacement of element off start of array.
|
|
>42 1 2 3 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-7]=42
|
|
array[-6]=43
|
|
print $array
|
|
0:Replacement off start doesn't leave gaps. Hope this is right.
|
|
>43 1 2 3 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[1,-1]=(42 43)
|
|
print $array
|
|
array[-3,3]=(1 2 3 4 5)
|
|
print $array
|
|
0:Replacement of entire array, mixed indices
|
|
>42 43
|
|
>1 2 3 4 5
|
|
|
|
array=(1 2 3 4 5)
|
|
array[-7,7]=(42 43)
|
|
print $array
|
|
0:Replacement of more than entire array, mixed indices
|
|
>42 43
|
|
|
|
array=(1 2 3 4 5)
|
|
array[3,-2]=(42 43 44)
|
|
print $array
|
|
array[-3,5]=(100 99)
|
|
print $array
|
|
0:Replacement of slice in middle, mixed indices
|
|
>1 2 42 43 44 5
|
|
>1 2 42 100 99 5
|
|
|
|
# tests of var+=scalar
|
|
|
|
s+=foo
|
|
echo $s
|
|
0:append scalar to unset scalar
|
|
>foo
|
|
|
|
s=foo
|
|
s+=bar
|
|
echo $s
|
|
0:append to scalar
|
|
>foobar
|
|
|
|
set -- a b c
|
|
2+=end
|
|
echo $2
|
|
0:append to positional parameter
|
|
>bend
|
|
|
|
a=(first second)
|
|
a+=last
|
|
print -l $a
|
|
0:add scalar to array
|
|
>first
|
|
>second
|
|
>last
|
|
|
|
setopt ksharrays
|
|
a=(first second)
|
|
a+=last
|
|
print -l $a
|
|
unsetopt ksharrays
|
|
0:add scalar to array with ksharrays set
|
|
>firstlast
|
|
|
|
a=(1 2)
|
|
a[@]+=3
|
|
print -l $a
|
|
0:add scalar to array with alternate syntax
|
|
>1
|
|
>2
|
|
>3
|
|
|
|
integer i=10
|
|
i+=20
|
|
(( i == 30 ))
|
|
0:add to integer
|
|
|
|
float f=3.4
|
|
f+=2.3
|
|
printf "%g\n" f
|
|
0:add to float
|
|
>5.7
|
|
|
|
typeset -A hash
|
|
hash=(one 1)
|
|
hash+=string
|
|
[[ $hash[@] == string ]]
|
|
0:add scalar to association
|
|
|
|
# tests of var+=(array)
|
|
|
|
unset a
|
|
a+=(1 2 3)
|
|
print -l $a
|
|
0:add array to unset parameter
|
|
>1
|
|
>2
|
|
>3
|
|
|
|
a=(a)
|
|
a+=(b)
|
|
print -l $a
|
|
0:add array to existing array
|
|
>a
|
|
>b
|
|
|
|
s=foo
|
|
s+=(bar)
|
|
print -l $s
|
|
0:add array to scalar
|
|
>foo
|
|
>bar
|
|
|
|
integer i=1
|
|
i+=(2 3)
|
|
print -l $i
|
|
0:add array to integer
|
|
>1
|
|
>2
|
|
>3
|
|
|
|
float f=2.5
|
|
f+=(3.5 4.5)
|
|
printf '%g\n' $f
|
|
0:add array to float
|
|
>2.5
|
|
>3.5
|
|
>4.5
|
|
|
|
typeset -A h
|
|
h+=(a 1 b 2)
|
|
print -l $h
|
|
0:add to empty association
|
|
>1
|
|
>2
|
|
|
|
typeset -A h
|
|
h=(a 1)
|
|
h+=(b 2 c 3)
|
|
print -l $h
|
|
0:add to association
|
|
>1
|
|
>2
|
|
>3
|
|
|
|
# tests of var[range]+=scalar
|
|
|
|
s=sting
|
|
s[2]+=art
|
|
echo $s
|
|
0:insert scalar inside another
|
|
>starting
|
|
|
|
s=inert
|
|
s[-4]+=s
|
|
echo $s
|
|
0:insert scalar inside another with negative index
|
|
>insert
|
|
|
|
s=append
|
|
s[2,6]+=age
|
|
echo $s
|
|
0:append scalar to scalar using a range
|
|
>appendage
|
|
|
|
s=123456789
|
|
s[3,-5]+=X
|
|
echo $s
|
|
0:insert scalar inside another, specifying a slice
|
|
>12345X6789
|
|
|
|
a=(a b c)
|
|
a[2]+=oo
|
|
echo $a
|
|
0:append to array element
|
|
>a boo c
|
|
|
|
a=(a b c d)
|
|
a[-2]+=ool
|
|
echo $a
|
|
0:append to array element with negative index
|
|
>a b cool d
|
|
|
|
a=(a b c d)
|
|
a[2,-1]+=oom
|
|
echo $a
|
|
0:append to array element, specifying a slice
|
|
>a b c doom
|
|
|
|
setopt ksharrays
|
|
a=(a b c d)
|
|
a[0]+=0
|
|
echo $a
|
|
unsetopt ksharrays
|
|
0:append to array element with ksharrays set
|
|
>a0
|
|
|
|
typeset -A h
|
|
h=(one foo)
|
|
h[one]+=bar
|
|
echo $h
|
|
0:append to association element
|
|
>foobar
|
|
|
|
typeset -A h
|
|
h[foo]+=bar
|
|
echo ${(kv)h}
|
|
0:append to non-existent association element
|
|
>foo bar
|
|
|
|
typeset -A h
|
|
h=(one a two b three c four d)
|
|
h[(I)*o*]+=append
|
|
1:attempt to append to slice of association
|
|
?(eval):3: h: attempt to set slice of associative array
|
|
|
|
integer i=123
|
|
i[2]+=6
|
|
1:attempt to add to indexed integer variable
|
|
?(eval):2: attempt to add to slice of a numeric variable
|
|
|
|
float f=1234.5
|
|
f[2,4]+=3
|
|
1:attempt to add to slice of float variable
|
|
?(eval):2: attempt to add to slice of a numeric variable
|
|
|
|
unset u
|
|
u[3]+=third
|
|
echo $u[1]:$u[3]
|
|
0:append to unset variable with index
|
|
>:third
|
|
|
|
# tests of var[range]+=(array)
|
|
|
|
a=(1 2 3)
|
|
a[2]+=(a b)
|
|
echo $a
|
|
0:insert array inside another
|
|
>1 2 a b 3
|
|
|
|
a=(a b c)
|
|
a[-1]+=(d)
|
|
echo $a
|
|
0:append to array using negative index
|
|
>a b c d
|
|
|
|
a=(1 2 3 4)
|
|
a[-1,-3]+=(x)
|
|
echo $a
|
|
0:insert array using negative range
|
|
>1 2 x 3 4
|
|
|
|
s=string
|
|
s[2]+=(a b)
|
|
1:attempt to insert array into string
|
|
?(eval):2: s: attempt to assign array value to non-array
|
|
|
|
integer i=365
|
|
i[2]+=(1 2)
|
|
1:attempt to insert array into string
|
|
?(eval):2: i: attempt to assign array value to non-array
|
|
|
|
typeset -A h
|
|
h=(a 1)
|
|
h[a]+=(b 2)
|
|
1:attempt to append array to hash element
|
|
?(eval):3: h: attempt to set slice of associative array
|
|
|
|
unset u
|
|
u[-34,-2]+=(a z)
|
|
echo $u
|
|
0:add array to indexed unset variable
|
|
>a z
|
|
|
|
repeat 10 PATH=. echo hello
|
|
0:saving and restoring of exported special parameters
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
>hello
|
|
|
|
repeat 10 FOO=BAR BAR=FOO echo $FOO $BAR
|
|
0:save and restore multiple variables around builtin
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
|
|
call() { print $HELLO; }
|
|
export HELLO=world
|
|
call
|
|
HELLO=universe call
|
|
call
|
|
HELLO=${HELLO}liness call
|
|
call
|
|
unset HELLO
|
|
0:save and restore when using original value in temporary
|
|
>world
|
|
>universe
|
|
>world
|
|
>worldliness
|
|
>world
|