mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-25 07:56:29 +00:00
5395641036
An oops in tests/io.sh (re: c607c48c) wrote temporary files outside
$tmp and into src/cmd/ksh93/tests. Let's fix this properly so it
doesn't happen again.
src/cmd/ksh93/tests/shtests:
- Start each test set in its own temporary directory by default.
src/cmd/ksh93/tests/*.sh:
- Refuse to run if $tmp != $PWD.
- Related cleanups.
119 lines
3.9 KiB
Bash
Executable file
119 lines
3.9 KiB
Bash
Executable file
########################################################################
|
|
# #
|
|
# This software is part of the ast package #
|
|
# Copyright (c) 1982-2012 AT&T Intellectual Property #
|
|
# and is licensed under the #
|
|
# Eclipse Public License, Version 1.0 #
|
|
# by AT&T Intellectual Property #
|
|
# #
|
|
# A copy of the License is available at #
|
|
# http://www.eclipse.org/org/documents/epl-v10.html #
|
|
# (with md5 checksum b35adb5213ca9657e911e9befb180842) #
|
|
# #
|
|
# Information and Software Systems Research #
|
|
# AT&T Research #
|
|
# Florham Park NJ #
|
|
# #
|
|
# David Korn <dgk@research.att.com> #
|
|
# #
|
|
########################################################################
|
|
function err_exit
|
|
{
|
|
print -u2 -n "\t"
|
|
print -u2 -r ${Command}[$1]: "${@:2}"
|
|
let Errors+=1
|
|
}
|
|
alias err_exit='err_exit $LINENO'
|
|
|
|
Command=${0##*/}
|
|
integer Errors=0
|
|
|
|
[[ -d $tmp && -w $tmp && $tmp == "$PWD" ]] || { err\_exit "$LINENO" '$tmp not set; run this from shtests. Aborting.'; exit 1; }
|
|
|
|
{
|
|
x=abc
|
|
x+=def ;} 2> /dev/null
|
|
if [[ $x != abcdef ]]
|
|
then err_exit 'abc+def != abcdef'
|
|
fi
|
|
integer i=3
|
|
{ i+=4;} 2> /dev/null
|
|
if (( i != 7 ))
|
|
then err_exit '3+4!=7'
|
|
fi
|
|
iarray=( one two three )
|
|
{ iarray+= (four five six) ;} 2> /dev/null
|
|
if [[ ${iarray[@]} != 'one two three four five six' ]]
|
|
then err_exit 'index array append fails'
|
|
fi
|
|
unset iarray
|
|
iarray=one
|
|
{ iarray+= (four five six) ;} 2> /dev/null
|
|
if [[ ${iarray[@]} != 'one four five six' ]]
|
|
then err_exit 'index array append to scalar fails'
|
|
fi
|
|
typeset -A aarray
|
|
aarray=( [1]=1 [3]=4 [xyz]=xyz )
|
|
aarray+=( [2]=2 [3]=3 [foo]=bar )
|
|
if [[ ${aarray[3]} != 3 ]]
|
|
then err_exit 'associative array append fails'
|
|
fi
|
|
if [[ ${#aarray[@]} != 5 ]]
|
|
then err_exit 'number of elements of associative array append fails'
|
|
fi
|
|
point=(x=1 y=2)
|
|
point+=( y=3 z=4)
|
|
if [[ ${point.y} != 3 ]]
|
|
then err_exit 'compound append fails'
|
|
fi
|
|
if [[ ${point.x} != 1 ]]
|
|
then err_exit 'compound append to compound variable unsets existing variables'
|
|
fi
|
|
unset foo
|
|
foo=one
|
|
foo+=(two)
|
|
if [[ ${foo[@]} != 'one two' ]]
|
|
then err_exit 'array append to non array variable fails'
|
|
fi
|
|
unset foo
|
|
foo[0]=(x=3)
|
|
foo+=(x=4)
|
|
[[ ${foo[1].x} == 4 ]] || err_exit 'compound append to index array not working'
|
|
[[ ${foo[0].x} == 3 ]] || err_exit 'compound append to index array unsets existing variables'
|
|
|
|
unset foo
|
|
foo=a
|
|
foo+=''
|
|
[[ $foo == 'a' ]] || err_exit 'appending an empty string not working'
|
|
|
|
unset x z arr
|
|
typeset -a x=(a b)
|
|
x+=(c d)
|
|
exp='typeset -a x=(a b c d)'
|
|
[[ $(typeset -p x) == "$exp" ]] || err_exit 'append (c d) to index array not working'
|
|
|
|
typeset -a arr=(a=b b=c)
|
|
arr+=(c=d d=e)
|
|
exp='typeset -a arr=(a\=b b\=c c\=d d\=e)'
|
|
[[ $(typeset -p arr) == "$exp" ]] || err_exit 'append (c=d d=e) to index array not working'
|
|
|
|
exp='typeset -a z=(a\=b b\=c d\=3 e f\=l)'
|
|
typeset -a z=(a=b b=c)
|
|
{ z+=(d=3 e f=l); } 2> /dev/null
|
|
[[ $(typeset -p z) == "$exp" ]] || err_exit 'append (d=3 e f=l) to index array not working'
|
|
|
|
unset arr2
|
|
exp='typeset -a arr2=(b\=c :)'
|
|
typeset -a arr2
|
|
arr2+=(b=c :)
|
|
[[ $(typeset -p arr2) == "$exp" ]] || err_exit 'append (b=c :) to index array not working'
|
|
|
|
unset arr2
|
|
exp='typeset -a arr2=(b\=c xxxxx)'
|
|
typeset -a arr2
|
|
{
|
|
arr2+=(b=c xxxxx)
|
|
} 2> /dev/null
|
|
[[ $(typeset -p arr2) == "$exp" ]] || err_exit 'append (b=c xxxxx) to index array not working'
|
|
|
|
exit $((Errors<125?Errors:125))
|