mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +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.
75 lines
2.8 KiB
Bash
Executable file
75 lines
2.8 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; }
|
|
|
|
tmp1=$tmp/tmp1.csv
|
|
tmp2=$tmp/tmp2.csv
|
|
cat > $tmp1 <<- \EOF
|
|
CAT,"CVE CCODE","NECA OCN",ST,LATA,AP,"New InterState
|
|
Orig","New Inter""""State
|
|
Term","New IntraState
|
|
Orig","New IntraState
|
|
Term"
|
|
CLEC,XXXX,AAAA,RB,ABC,comp," 0.2 "," 0.4 "," 0.6 "," 0.8 "
|
|
CLEC,YYYY,QQQQ,SX,123,mmmm," 0.3 "," 0.5 "," 0.7 "," 0.9 "
|
|
EOF
|
|
integer count=0 nfields
|
|
IFS=${2-,}
|
|
for j in 1 2
|
|
do typeset -a arr
|
|
while read -A -S arr
|
|
do ((nfields=${#arr[@]}))
|
|
if ((++count==1))
|
|
then ((nfields==10)) || err_exit 'first record should contain 10 fields'
|
|
[[ ${arr[7]} == $'New Inter""State\nTerm' ]] || err_exit $'7th field of record 1 should contain New Inter""State\nTerm'
|
|
fi
|
|
for ((i=0; i < nfields;i++))
|
|
do delim=$IFS
|
|
if ((i == nfields-1))
|
|
then delim=$'\r\n'
|
|
fi
|
|
if ((i==1))
|
|
then printf "%#q%s" "${arr[i]}" "$delim"
|
|
else printf "%(csv)q%s" "${arr[i]}" "$delim"
|
|
fi
|
|
done
|
|
done < $tmp1 > $tmp2
|
|
done
|
|
diff "$tmp1" "$tmp2" >/dev/null 2>&1 || err_exit "files $tmp1 and $tmp2 differ"
|
|
|
|
# ======
|
|
# `read -S` should handle double quotes correctly
|
|
IFS=',' read -S a b c <<<'foo,"""title"" data",bar'
|
|
[[ $b == '"title" data' ]] || err_exit '"" inside "" not handled correctly with read -S'
|
|
|
|
# ======
|
|
exit $((Errors<125?Errors:125))
|
|
|