1######################################################################## 2# # 3# This software is part of the ast package # 4# Copyright (c) 1982-2012 AT&T Intellectual Property # 5# and is licensed under the # 6# Eclipse Public License, Version 1.0 # 7# by AT&T Intellectual Property # 8# # 9# A copy of the License is available at # 10# http://www.eclipse.org/org/documents/epl-v10.html # 11# (with md5 checksum b35adb5213ca9657e911e9befb180842) # 12# # 13# Information and Software Systems Research # 14# AT&T Research # 15# Florham Park NJ # 16# # 17# David Korn <dgk@research.att.com> # 18# # 19######################################################################## 20function err_exit 21{ 22 print -u2 -n "\t" 23 print -u2 -r ${Command}[$1]: "${@:2}" 24 let Errors+=1 25} 26alias err_exit='err_exit $LINENO' 27 28#test for compound variables 29Command=${0##*/} 30integer Errors=0 31Point=( 32 float x=1. y=0. 33) 34eval p="$Point" 35if (( (p.x*p.x + p.y*p.y) > 1.01 )) 36then err_exit 'compound variable not working' 37fi 38nameref foo=p 39if [[ ${foo.x} != ${Point.x} ]] 40then err_exit 'reference to compound object not working' 41fi 42unset foo 43rec=( 44 name='Joe Blow' 45 born=( 46 month=jan 47 integer day=16 48 year=1980 49 ) 50) 51eval newrec="$rec" 52if [[ ${newrec.name} != "${rec.name}" ]] 53then err_exit 'copying a compound object not working' 54fi 55if (( newrec.born.day != 16 )) 56then err_exit 'copying integer field of compound object not working' 57fi 58p_t=( 59 integer z=0 60 typeset -A tokens 61) 62unset x 63typeset -A x 64x=( [foo]=bar ) 65if [[ ${x[@]} != bar ]] 66then err_exit 'compound assignemnt of associative arrays not working' 67fi 68unset -n foo x 69unset foo x 70foo=( x=3) 71nameref x=foo 72if [[ ${!x.@} != foo.x ]] 73then err_exit 'name references not expanded on prefix matching' 74fi 75unset x 76unset -n x 77( 78 x=() 79 x.foo.bar=7 80 [[ ${x.foo.bar} == 7 ]] || err_exit '[[ ${x.foo.bar} != 7 ]]' 81 (( x.foo.bar == 7 ))|| err_exit '(( x.foo.bar != 7 ))' 82 [[ ${x.foo} == *bar=7* ]] || err_exit '[[ ${x.foo} != *bar=7* ]]' 83) 84foo=(integer x=3) 85if [[ ${foo} != *x=3* ]] 86then err_exit "compound variable with integer subvariable not working" 87fi 88$SHELL -c $'x=(foo=bar)\n[[ x == x ]]' 2> /dev/null || 89 err_exit '[[ ... ]] not working after compound assignment' 90unset foo 91[[ ${!foo.@} ]] && err_exit 'unset compound variable leaves subvariables' 92suitable=( 93 label="Table Viewer" 94 langs="ksh" 95 uselang=ksh 96 launch=no 97 groups="default" 98 default=( 99 label="Table Viewer Preferences" 100 entrylist=" \ 101 vieworigin viewsize viewcolor viewfontname viewfontsize \ 102 showheader header showfooter footer showtitle title showlegends \ 103 class_td_lg1_style class_tr_tr1_style \ 104 class_th_th1_style class_td_td1_style \ 105 fields fieldorder \ 106 " 107 entries=( 108 vieworigin=( 109 type=coord var=vieworigin val="0 0" label="Window Position" 110 ) 111 viewsize=( 112 type=coord var=viewsize val="400 400" label="Window Size" 113 ) 114 viewcolor=( 115 type=2colors var=viewcolor val="gray black" 116 label="Window Colors" 117 ) 118 viewfontname=( 119 type=fontname var=viewfontname val="Times-Roman" 120 label="Window Font Name" 121 ) 122 viewfontsize=( 123 type=fontsize var=viewfontsize val=14 label="Window Font Size" 124 ) 125 126 showheader=( 127 type=yesno var=showheader val=no label="Show Header" 128 ) 129 header=( 130 type=text var=header val="" label="Header" 131 ) 132 133 showfooter=( 134 type=yesno var=showfooter val=no label="Show Footer" 135 ) 136 footer=( 137 type=text var=footer val="" label="Footer" 138 ) 139 140 showtitle=( 141 type=yesno var=showtitle val=yes label="Show Title" 142 ) 143 title=( 144 type=text var=title val="SWIFTUI - Table View" label="Title" 145 ) 146 147 showlegends=( 148 type=yesno var=showlegends val=yes label="Show Legends" 149 ) 150 151 class_td_lg1_style=( 152 type=style var=class_td_lg1_style 153 val="color: black; font-family: Times-Roman; font-size: 14pt" 154 label="Legend 1 Style" 155 ) 156 157 class_tr_tr1_style=( 158 type=style var=class_tr_tr1_style val="background: black" 159 label="Table Row 1 Style" 160 ) 161 162 class_th_th1_style=( 163 type=style var=class_th_th1_style 164 val="color: black; font-family: Times-Roman; font-size: 14pt; text-align: left" 165 label="Table Header 1 Style" 166 ) 167 168 class_td_td1_style=( 169 type=style var=class_td_td1_style 170 val="color: black; font-family: Times-Roman; font-size: 14pt; text-align: left" 171 label="Table Cell 1 Style" 172 ) 173 174 fields=( 175 type=text var=fields val= label="List of Fields" 176 ) 177 fieldorder=( 178 type=text var=fieldorder val= label="Order of Fields" 179 ) 180 ) 181 ) 182) 183[[ "${suitable}" == *entrylist=* ]] || err_exit 'compound variable expansion omitting fields' 184foo=( bar=foo barbar=bar) 185[[ $foo == *bar=foo* ]] || err_exit 'no prefix elements in compound variable output' 186function localvar 187{ 188 typeset point=(typeset -i x=3 y=4) 189 (( (point.x*point.x + point.y*point.y) == 25 )) || err_exit "local compound variable not working" 190} 191point=(integer x=6 y=8) 192localvar 193 (( (point.x*point.x + point.y*point.y) == 100 )) || err_exit "global compound variable not preserved" 194[[ $($SHELL -c 'foo=();foo.[x]=(y z); print ${foo.x[@]}') == 'y z' ]] 2> /dev/null || err_exit 'foo=( [x]=(y z) not working' 195function staticvar 196{ 197 if [[ $1 ]] 198 then print -r -- "$point" 199 return 200 fi 201 typeset -S point=(typeset -i x=3 y=4) 202 (( (point.x*point.x + point.y*point.y) == 25 )) || err_exit "local compound variable not working" 203 point.y=5 204 point.z=foobar 205} 206staticvar 207 (( (point.x*point.x + point.y*point.y) == 100 )) || err_exit "global compound variable not preserved" 208[[ $(staticvar x) == $'(\n\ttypeset -i x=3\n\ttypeset -i y=5\n\tz=foobar\n)' ]] || err_exit 'static variables in function not working' 209integer x=3 210( typeset -S x=+++)2> /dev/null || err_exit "typeset -S doesn't unset first" 211 212unset z 213( [[ ${z.foo.bar:-abc} == abc ]] 2> /dev/null) || err_exit ':- not working with compound variables' 214stack=() 215typeset -a stack.items=([0]=foo [1]=bar) 216[[ ${stack.items[0]} == foo ]] || err_exit 'typeset -a variable not expanding correctly' 217$SHELL -c 'typeset -a info=( [1]=( passwd=( since=2005-07-20) ))' || err_exit 'problem with embedded index array in compound variable' 218x=(foo=([1]=(y=([2]=(z=4))))) 219[[ $x == *'.y'=* ]] && err_exit 'expansion with bogus leading . in name' 220unset z 221z=1 222function foo 223{ 224 z=3 225 [[ ${a.z} == 3 ]] && err_exit "\${a.z} should not be 3" 226 print hi 227} 228a=( b=$(foo) ) 229[[ ${a.z} == 3 ]] && err_exit 'a.z should not be set to 3' 230function a.b.get 231{ 232 .sh.value=foo 233} 234{ b=( b1=${a.b} ) ;} 2> /dev/null 235[[ ${b.b1} == foo ]] || err_exit '${b.b1} should be foo' 236function dcl1 237{ 238 eval 'a=1 239 function a.set 240 { print ${.sh.name}=${.sh.value}; }' 241} 242function dcl2 243{ 244 eval 'b=(typeset x=0; typeset y=0 ) 245 function b.x.set 246 { print ${.sh.name}=${.sh.value}; }' 247} 248dcl1 249[[ ${ a=123;} == 'a=123' ]] || err_exit 'should be a=123' 250dcl2 251[[ ${ b.x=456;} == 'b.x=456' ]] || err_exit 'should be b.x=456' 252eval 'b=(typeset x=0; typeset y=0 ) 253function b.x.set 254{ print ${.sh.name}=${.sh.value}; }' > /dev/null 255[[ ${ b.x=789;} == 'b.x=789' ]] || err_exit 'should be b.x=789' 256unset a b 257function func 258{ 259 typeset X 260 X=( bar=2 ) 261} 262 263X=( foo=1 ) 264func 265[[ $X == $'(\n\tfoo=1\n)' ]] || err_exit 'scoping problem with compound variables' 266unset foo 267typeset -A foo=([a]=aa;[b]=bb;[c]=cc) 268[[ ${foo[c]} == cc ]] || err_exit 'associative array assignment with; not working' 269[[ $({ $SHELL -c 'x=(); typeset -a x.foo; x.foo=bar; print -r -- "$x"' ;} 2> /dev/null) == $'(\n\ttypeset -a foo=bar\n)' ]] || err_exit 'indexed array in compound variable with only element 0 defined fails' 270unset foo 271foo=(typeset -a bar) 272[[ $foo == *'typeset -a bar'* ]] || err_exit 'array attribute -a not preserved in compound variable' 273unset s 274typeset -A s=( [foo]=(y=2 z=3) [bar]=(y=4 z=5)) 275[[ ${s[@]} == *z=*z=* ]] || err_exit 'missing elements in compound associative array' 276unset nodes 277typeset -A nodes 278nodes[0]+=( integer x=5) 279[[ ${nodes[0].x} == 5 ]] || err_exit '${nodes[0].x} should be 5' 280unset foo 281typeset -C foo 282foo.bar=abc 283[[ $foo == $'(\n\tbar=abc\n)' ]] || err_exit 'typeset -C not working for foo' 284typeset -C foo=(bar=def) 285[[ $foo == $'(\n\tbar=def\n)' ]] || err_exit 'typeset -C not working when initialized' 286foo=( 287 hello=ok 288 yes=( bam=2 yes=4) 289 typeset -A array=([one]=one [two]=2) 290 last=me 291) 292eval foo2="$foo" 293foo2.hello=notok foo2.yes.yex=no foo2.extra=yes. 294typeset -C bar bam 295{ 296 read -Cu3 bar 297 read -Cu3 bam 298 read -ru3 299} 3<<- ++++ 300 "$foo" 301 "$foo2" 302 last line 303++++ 304[[ $? == 0 ]] || err_exit ' read -C failed' 305[[ $bar == "$foo" ]] || err_exit '$foo != $bar' 306[[ $bam == "$foo2" ]] || err_exit '$foo2 != $bmr' 307[[ $REPLY == 'last line' ]] || err_exit "\$REPLY=$REPLY should be 'last line" 308typeset x=( typeset -a foo=( [1][3]=hello [9][2]="world" ) ) 309eval y="(typeset -a foo=$(printf "%B\n" x.foo) )" 310[[ $x == "$y" ]] || err_exit '$x.foo != $y.foo with %B' 311eval y="(typeset -a foo=$(printf "%#B\n" x.foo) )" 312[[ $x == "$y" ]] || err_exit '$x.foo != $y.foo with %#B' 313eval y="$(printf "%B\n" x)" 314[[ $x == "$y" ]] || err_exit '$x != $y with %B' 315eval y="$(printf "%#B\n" x)" 316[[ $x == "$y" ]] || err_exit '$x != $y with %#B' 317y=$(set | grep ^x=) 2> /dev/null 318eval "${y/#x/y}" 319[[ $x == "$y" ]] || err_exit '$x != $y with set | grep' 320unset x y z 321x=( float x=0 y=1; z=([foo]=abc [bar]=def)) 322typeset -C y=x 323[[ $x == "$y" ]] || err_exit '$x != $y with typeset -C' 324unset y 325y=() 326y=x 327[[ $x == "$y" ]] || err_exit '$x != $y when x=y and x and y are -C ' 328function foobar 329{ 330 typeset -C z 331 z=x 332 [[ $x == "$z" ]] || err_exit '$x != $z when x=z and x and z are -C ' 333 y=z 334} 335[[ $x == "$y" ]] || err_exit '$x != $y when x=y -C copied in a function ' 336z=(foo=abc) 337y+=z 338[[ $y == *foo=abc* ]] || err_exit 'z not appended to y' 339unset y.foo 340[[ $x == "$y" ]] || err_exit '$x != $y when y.foo deleted' 341unset x y 342x=( foo=(z=abc d=ghi) bar=abc; typeset -A r=([x]=3 [y]=4)) 343unset x 344x=() 345[[ $x == $'(\n)' ]] || err_exit 'unset compound variable is not empty' 346 347unset z 348z=() 349z.foo=( [one]=hello [two]=(x=3 y=4) [three]=hi) 350z.bar[0]=hello 351z.bar[2]=world 352z.bar[1]=(x=4 y=5) 353exp='( 354 typeset -a bar=( 355 [0]=hello 356 [2]=world 357 [1]=( 358 x=4 359 y=5 360 ) 361 ) 362 typeset -A foo=( 363 [one]=hello 364 [three]=hi 365 [two]=( 366 x=3 367 y=4 368 ) 369 ) 370)' 371got=$z 372[[ $got == "$exp" ]] || { 373 exp=$(printf %q "$exp") 374 got=$(printf %q "$got") 375 err_exit "compound indexed array pretty print failed -- expected $exp, got $got" 376} 377 378typeset -A record 379record[a]=( 380 typeset -a x=( 381 [1]=( 382 X=1 383 ) 384 ) 385) 386exp=$'(\n\ttypeset -a x=(\n\t\t[1]=(\n\t\t\tX=1\n\t\t)\n\t)\n)' 387got=${record[a]} 388[[ $got == "$exp" ]] || { 389 exp=$(printf %q "$exp") 390 got=$(printf %q "$got") 391 err_exit "compound indexed array pretty print failed -- expected $exp, got $got" 392} 393 394unset r 395r=( 396 typeset -a x=( 397 [1]=( 398 X=1 399 ) 400 ) 401) 402exp=$'(\n\ttypeset -a x=(\n\t\t[1]=(\n\t\t\tX=1\n\t\t)\n\t)\n)' 403got=$r 404[[ $got == "$exp" ]] || { 405 exp=$(printf %q "$exp") 406 got=$(printf %q "$got") 407 err_exit "compound indexed array pretty print failed -- expected $exp, got $got" 408} 409 410# array of compund variables 411typeset -C data=( 412 typeset -a samples 413) 414data.samples+=( 415 type1="greeting1" 416 timestamp1="now1" 417 command1="grrrr1" 418) 419data.samples+=( 420 type2="greeting2" 421 timestamp2="now2" 422 command2="grrrr2" 423) 424 425[[ $data == %(()) ]] || err_exit "unbalanced parenthesis with compound variable containing array of compound variables" 426typeset -C -A hello=( [foo]=bar) 427[[ $(typeset -p hello) == 'typeset -C -A hello=([foo]=bar)' ]] || err_exit 'typeset -A -C with intial assignment not working' 428# this caused a core dump before ksh93t+ 429[[ $($SHELL -c 'foo=(x=3 y=4);function bar { typeset z=4;: $z;};bar;print ${!foo.@}') == 'foo.x foo.y' ]] 2> /dev/null || err_exit '${!foo.@} after function not working' 430 431function foo 432{ 433 typeset tmp 434 read -C tmp 435 read -C tmp 436} 437foo 2> /dev/null <<- \EOF || err_exit 'deleting compound variable in function failed' 438 ( 439 typeset -A myarray3=( 440 [a]=( foo=bar) 441 [b]=( foo=bar) 442 [c d]=( foo=bar) 443 [e]=( foo=bar) 444 [f]=( foo=bar) 445 [g]=( foo=bar) 446 [h]=( foo=bar) 447 [i]=( foo=bar) 448 [j]=( foo=bar) 449 ) 450 ) 451 hello 452EOF 453 454typeset -C -a mica01 455mica01[4]=( a_string="foo bar" ) 456typeset -C more_content=( 457 some_stuff="hello" 458) 459mica01[4]+=more_content 460expected=$'typeset -C -a mica01=([4]=(a_string=\'foo bar\';some_stuff=hello))' 461[[ $(typeset -p mica01) == "$expected" ]] || err_exit 'appened to indexed array compound variable not working' 462 463unset x 464compound x=( integer x ; ) 465[[ ! -v x.x ]] && err_exit 'x.x should be set' 466expected=$'(\n\ttypeset -l -i x=0\n)' 467[[ $(print -v x) == "$expected" ]] || err_exit "'print -v x' should be $expected" 468 469typeset -C -A hello19=( 470 [19]=( 471 one="xone 19" 472 two="xtwo 19" 473 ) 474 [23]=( 475 one="xone 23" 476 two="xtwo 23" 477 ) 478) 479expected="typeset -C -A hello19=([19]=(one='xone 19';two='xtwo 19') [23]=(one='xone 23';two='xtwo 23'))" 480[[ $(typeset -p hello19) == "$expected" ]] || print -u2 'typeset -p hello19 incorrect' 481expected=$'(\n\tone=\'xone 19\'\n\ttwo=\'xtwo 19\'\n) (\n\tone=\'xone 23\'\n\ttwo=\'xtwo 23\'\n)' 482[[ ${hello19[@]} == "$expected" ]] || print -u2 '${hello19[@]} incorrect' 483 484typeset -C -A foo1=( abc="alphabet" ) foo2=( abc="alphabet" ) 485function add_one 486{ 487 nameref left_op=$1 488 typeset -C info 489 info.hello="world" 490 nameref x=info 491 left_op+=x 492} 493nameref node1="foo1[1234]" 494add_one "node1" 495add_one "foo2[1234]" 496[[ "${foo1[1234]}" == "${foo2[1234]}" ]] || err_exit "test failed\n$(diff -u <( print -r -- "${foo1[1234]}") <(print -r -- "${foo2[1234]}"))." 497 498typeset -C tree 499function f1 500{ 501 nameref tr=$1 502 typeset -A tr.subtree 503 typeset -C node 504 node.one="hello" 505 node.two="world" 506 507 # move local note into the array 508 typeset -m tr.subtree["a_node"]=node 509} 510f1 tree 511expected=$'(\n\ttypeset -A subtree=(\n\t\t[a_node]=(\n\t\t\tone=hello\n\t\t\ttwo=world\n\t\t)\n\t)\n)' 512[[ $tree == "$expected" ]] || err_exit 'move of compound local variable to global variable not working' 513 514typeset -C -A array 515float array[12].amount=2.9 516expected='typeset -C -A array=([12]=(typeset -l -E amount=2.9))' 517[[ $(typeset -p array) == "$expected" ]] || err_exit 'typeset with compound variable with compound variable array not working' 518 519typeset -T foo_t=( 520 function diff 521 { 522 print 1.0 523 return 0 524 } 525) 526foo_t sw 527compound output=( 528 integer one=1 529 float mydiff=sw.diff 530 float end=.314 531) 532[[ $output == *end=* ]] || err_exit "The field 'name' end is missing" 533 534compound cpv1=( integer f=2 ) 535compound x=( 536 integer a=1 537 compound b=cpv1 538) 539[[ $x == *f=2* ]] || err_exit "The field b containg 'f=2' is missing" 540 541unset x 542compound x=( 543 compound -a nodes=( 544 [4]=( ) 545 ) 546) 547expected='typeset -C x=(typeset -C -a nodes=([4]=());)' 548[[ $(typeset -p x) == "$expected" ]] || err_exit 'typeset -p with nested compound index array not working' 549 550unset v 551compound v=( 552 integer -A ar=( 553 [aa]=4 [bb]=9 554 ) 555) 556expected='typeset -C v=(typeset -A -l -i ar=([aa]=4 [bb]=9);)' 557[[ $(typeset -p v) == "$expected" ]] || err_exit 'attributes for associative arrays embedded in compound variables not working' 558 559unset x 560compound -a x 561x[1]=( a=1 b=2 ) 562[[ $(print -v x[1]) == "${x[1]}" ]] || err_exit 'print -v x[1] not working for index array of compound variables' 563 564unset x 565z='typeset -a x=(hello (x=12;y=5) world)' 566{ eval "$z" ;} 2> /dev/null 567[[ $(typeset -p x) == "$z" ]] || err_exit "compound assignment '$z' not working" 568 569expected='typeset -C -A l=([4]=(typeset -a ar=(1 2 3);b=1))' 570typeset -A -C l 571printf "( typeset -a ar=( 1\n2\n3\n) b=1 )\n" | read -C l[4] 572[[ $(typeset -p l) == "$expected" ]] || err_exit 'read -C for associative array of compound variables not working' 573 574unset x 575compound x=( z="a=b c") 576exp=$'typeset -C x=(z=a\\=\'b c\')' 577got=$(typeset -p x) 578[[ $got == "$exp" ]] || err_exit "typeset -p failed -- expected '$exp', got '$got'" 579 580x=(typeset -C -a y;float z=2) 581got=$(print -C x) 582expected='(typeset -C -a y;typeset -l -E z=2)' 583[[ $expected == "$got" ]] || err_exit "print -C x exects '$expected' got '$got'" 584 585unset vx vy 586compound vx=( 587 compound -a va=( 588 [3][17]=( 589 integer -A ar=( [aa]=4 [bb]=9 ) 590 ) 591 ) 592) 593eval "vy=$(print -C vx)" 594[[ $vx == "$vy" ]] || err_exit 'print -C with multi-dimensional array not working' 595eval "vy=$(print -v vx)" 596[[ $vx == "$vy" ]] || err_exit 'print -v with multi-dimensional array not working' 597 598unset x 599typeset -C -A x=( [0]=(a=1) [1]=(b=2) ) 600expected=$'(\n\t[0]=(\n\t\ta=1\n\t)\n\t[1]=(\n\t\tb=2\n\t)\n)' 601[[ $(print -v x) == "$expected" ]] || err_exit 'print -v not formatting correctly' 602 603compound -a x=( [0]=(a=1) [1]=(b=2) ) 604typeset -m "z=x[1]" 605[[ $(typeset -p z 2>/dev/null) == 'typeset -C z=(b=2)' ]] || err_exit 'typeset -m not working with commpound -a variable' 606 607unset x z 608compound -A x=( [0]=(a=1) [1]=(b=2) ) 609typeset -m "z=x[1]" 610[[ $(typeset -p z 2>/dev/null) == 'typeset -C z=(b=2)' ]] || err_exit 'typeset -m not working with commpound -a variable' 611typeset -m "x[1]=x[0]" 612typeset -m "x[0]=z" 613exp='([0]=(b=2) [1]=(a=1))' 614[[ $(print -C x) == "$exp" ]] || err_exit 'typeset -m not working for associative arrays' 615 616unset z r 617z=(a b c) 618r=(x=3 y=4) 619typeset -m z[1]=r 620exp='typeset -a z=(a (x=3;y=4) c)' 621[[ $(typeset -p z) == "$exp" ]] || err_exit 'moving compound variable into indexed array fails' 622 623unset c 624compound c 625compound -a c.a=( [1]=( aa=1 ) ) 626compound -a c.b=( [2]=( bb=2 ) ) 627typeset -m "c.b[9]=c.a[1]" 628exp='typeset -C c=(typeset -C -a a;typeset -C -a b=( [2]=(bb=2;)[9]=(aa=1));)' 629[[ $(typeset -p c) == "$exp" ]] || err_exit 'moving compound indexed array element to another index fails' 630 631unset c 632compound c 633compound -a c.a=( [1]=( aa=1 ) ) 634compound -A c.b=( [2]=( bb=2 ) ) 635typeset -m "c.b[9]=c.a[1]" 636exp='typeset -C c=(typeset -C -a a;typeset -C -A b=( [2]=(bb=2;)[9]=(aa=1));)' 637[[ $(typeset -p c) == "$exp" ]] || err_exit 'moving compound indexed array element to a compound associative array element fails' 638 639zzz=( 640 foo=( 641 bar=4 642 ) 643) 644[[ $(set | grep "^zzz\.") ]] && err_exit 'set displays compound variables incorrectly' 645 646typeset -A stats 647stats[1]=(a=1 b=2) 648stats[2]=(a=1 b=2) 649stats[1]=(c=3 d=4) 650(( ${#stats[@]} == 2 )) || err_exit "stats[1] should contain 2 element not ${#stats[@]}" 651 652integer i=1 653foo[i++]=(x=3 y=4) 654[[ ${foo[1].x} == 3 ]] || err_exit "\${foo[1].x} should be 3" 655[[ ${foo[1].y} == 4 ]] || err_exit "\${foo[1].y} should be 4" 656 657# ${!x.} caused core dump in ks93u and earlier 658{ $SHELL -c 'compound x=(y=1); : ${!x.}' ; ((!$?));} || err_exit '${!x.} not working' 659 660$SHELL -c 'typeset -A a=([b]=c)' 2> /dev/null || err_exit 'typeset -A a=([b]=c) fails' 661 662compound -a a 663compound c=( name="container1" ) 664a[4]=c 665[[ ${a[4]} == $'(\n\tname=container1\n)' ]] || err_exit 'assignment of compound variable to compound array element not working' 666 667unset c 668compound c 669compound -a c.board 670for ((i=2; i < 4; i++)) 671do c.board[1][$i]=(foo=bar) 672done 673exp=$'(\n\ttypeset -C -a board=(\n\t\t[1]=(\n\t\t\t[2]=(\n\t\t\t\tfoo=bar\n\t\t\t)\n\t\t\t[3]=(\n\t\t\t\tfoo=bar\n\t\t\t)\n\t\t)\n\t)\n)' 674[[ "$(print -v c)" == "$exp" ]] || err_exit 'compound variable assignment to two dimensional array not working' 675 676unset zz 677zz=() 678zz.[foo]=abc 679zz.[2]=def 680exp='typeset -C zz=([2]=def;foo=abc)' 681[[ $(typeset -p zz) == "$exp" ]] || err_exit 'expansion of compound variables with non-identifiers not working' 682( 683 typeset -i zz.[3]=123 684 exec 2>& 3- 685 exp='typeset -C zz=([2]=def;typeset -i [3]=123;foo=abc)' 686 [[ $(typeset -p zz) == "$exp" ]] || err_exit 'expansion of compound variables with non-identifiers not working in subshells' 687) 3>&2 2> /dev/null || err_exit 'syntax errors expansion of compound variables with non-identifiers' 688 689unset xx 690xx=(foo=bar) 691xx=() 692[[ $xx == $'(\n)' ]] || err_exit 'xx=() not unsetting previous value' 693 694exit $((Errors<125?Errors:125)) 695