mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-24 23:14:14 +00:00
d7afb57c49
This gets rid of repetitive code in test scripts to create their own temporary directories. Instead, shtests exports a $tmp to each test script that is a subdirectory of its own temporary directory. This has the advantage of having all test script temporary directories in one hierarchy. Along with a new option to keep temporary files, this makes it easy to inspect them if wanted. This does make the test scripts less self-contained as they now depend on a temporary directory being exported as $tmp. But they already depended on $SHELL being the shell to test, so they already were not quite self-contained. src/cmd/ksh93/tests/shtests: - Add -k/--keep option to keep temporary directory. Make the EXIT trap report its location instead of deleting it. - For each test, create a subdirectory of $tmp (named after the test script plus the tested locale or 'shcomp') and export that subdirectory to the test script as its own $tmp. - If -k is not given, delete each script's temporary files immediately after running it to minimise disk usage. src/cmd/ksh93/tests/*.sh: - Don't make own temp directory. - Refuse to run if $tmp is not set. - Miscellaneous tweaks.
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 ]] || { 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))
|