mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-24 15:04:13 +00:00
2318de328a
The regression test suite used 'mktemp -dt' to create temporary directories, but that is not portable, e.g. it does not work on macOS, FreebSD or NetBSD. Installing a compatible 'mktemp' in another location in $PATH did not work either, as the regression test suite resets $PATH. src/cmd/ksh93/tests/*: - Replace many uses of 'mktemp -dt' by a portable and reasonably safe way to create a temporary directory. (cherry picked from commit 71f4c43703e3eff034009b4c8f4110bd32f4e209)
208 lines
7.5 KiB
Bash
Executable file
208 lines
7.5 KiB
Bash
Executable file
########################################################################
|
|
# #
|
|
# This software is part of the ast package #
|
|
# Copyright (c) 1982-2011 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}"
|
|
(( Errors < 127 && Errors++ ))
|
|
}
|
|
alias err_exit='err_exit $LINENO'
|
|
|
|
set -o nounset
|
|
Command=${0##*/}
|
|
integer Errors=0
|
|
|
|
set -o nounset
|
|
|
|
typeset tmp
|
|
|
|
# create temporary test directory
|
|
tmp=$(
|
|
d=${TMPDIR:-/tmp}/ksh93.math.$$.${RANDOM:-0}
|
|
mkdir -m700 -- "$d" && CDPATH= cd -P -- "$d" && pwd
|
|
) || {
|
|
err_exit 'mkdir failed'
|
|
exit 1
|
|
}
|
|
trap 'cd / && rm -rf "$tmp"' EXIT
|
|
cd $tmp || exit
|
|
|
|
function test_arithmetric_expression_accesss_array_element_through_nameref
|
|
{
|
|
compound out=( typeset stdout stderr ; integer res )
|
|
compound -r -a tests=(
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@ ; @@VAR@@[1]=90 ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@=( [1]=90 ) ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@ ; @@VAR@@[1][3]=90 ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1][3]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@=( [1][3]=90 ) ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1][3]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@ ; @@VAR@@[1][3][5]=90 ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1][3][5]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@=( [1][3][5]=90 ) ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1][3][5]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -a @@VAR@@ ; @@VAR@@[1][3][5]=90 ; function x { nameref nz=${1}[$2][$3][$4] ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@ 1 3 5' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -A @@VAR@@ ; @@VAR@@[1]=90 ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1]' ; stdoutpattern=' 90==90'
|
|
)
|
|
(
|
|
cmd='@@TYPE@@ -A @@VAR@@=( [1]=90 ) ; function x { nameref nz=$1 ; print " $(( round(nz) ))==$(( round($nz) ))" ; } ; x @@VAR@@[1]' ; stdoutpattern=' 90==90'
|
|
)
|
|
)
|
|
|
|
typeset testname
|
|
integer i
|
|
typeset mode
|
|
typeset cmd
|
|
|
|
for (( i=0 ; i < ${#tests[@]} ; i++ )) ; do
|
|
# fixme: This list should include "typeset -lX" and "typeset -X" but ast-ksh.2010-03-09 fails like this:
|
|
# 'typeset -X -a z ; z[1][3]=90 ; function x { nameref nz=$1 ; print " $(( nz ))==$(( $nz ))" ; } ; x z[1][3]'
|
|
# + typeset -X -a z
|
|
# + z[1][3]=90
|
|
# + x 'z[1][3]'
|
|
# /home/test001/bin/ksh[1]: x: line 1: x1.68000000000000000000000000000000p: no parent
|
|
for ty in \
|
|
'typeset' \
|
|
'integer' \
|
|
'float' \
|
|
'typeset -i' \
|
|
'typeset -si' \
|
|
'typeset -li' \
|
|
'typeset -E' \
|
|
'typeset -F' \
|
|
'typeset -X' \
|
|
'typeset -lE' \
|
|
'typeset -lX' \
|
|
'typeset -lF' ; do
|
|
for mode in \
|
|
'plain' \
|
|
'in_compound' \
|
|
'in_indexed_compound_array' \
|
|
'in_2d_indexed_compound_array' \
|
|
'in_4d_indexed_compound_array' \
|
|
'in_associative_compound_array' \
|
|
'in_compound_nameref' \
|
|
'in_indexed_compound_array_nameref' \
|
|
'in_2d_indexed_compound_array_nameref' \
|
|
'in_4d_indexed_compound_array_nameref' \
|
|
'in_associative_compound_array_nameref' \
|
|
; do
|
|
nameref tst=tests[i]
|
|
|
|
cmd="${tst.cmd//@@TYPE@@/${ty}}"
|
|
|
|
case "${mode}" in
|
|
'plain')
|
|
cmd="${cmd//@@VAR@@/z}"
|
|
;;
|
|
|
|
'in_compound')
|
|
cmd="compound c ; ${cmd//@@VAR@@/c.z}"
|
|
;;
|
|
'in_indexed_compound_array')
|
|
cmd="compound -a c ; ${cmd//@@VAR@@/c[11].z}"
|
|
;;
|
|
'in_2d_indexed_compound_array')
|
|
cmd="compound -a c ; ${cmd//@@VAR@@/c[17][19].z}"
|
|
;;
|
|
'in_4d_indexed_compound_array')
|
|
cmd="compound -a c ; ${cmd//@@VAR@@/c[17][19][23][27].z}"
|
|
;;
|
|
'in_associative_compound_array')
|
|
cmd="compound -A c ; ${cmd//@@VAR@@/c[info].z}"
|
|
;;
|
|
|
|
'in_compound_nameref')
|
|
cmd="compound c ; nameref ncr=c.z ; ${cmd//@@VAR@@/ncr}"
|
|
;;
|
|
'in_indexed_compound_array_nameref')
|
|
cmd="compound -a c ; nameref ncr=c[11].z ; ${cmd//@@VAR@@/ncr}"
|
|
;;
|
|
'in_2d_indexed_compound_array_nameref')
|
|
cmd="compound -a c ; nameref ncr=c[17][19].z ; ${cmd//@@VAR@@/ncr}"
|
|
;;
|
|
'in_4d_indexed_compound_array_nameref')
|
|
cmd="compound -a c ; nameref ncr=c[17][19][23][27].z ; ${cmd//@@VAR@@/ncr}"
|
|
;;
|
|
'in_associative_compound_array_nameref')
|
|
cmd="compound -A c ; nameref ncr=c[info].z ; ${cmd//@@VAR@@/ncr}"
|
|
;;
|
|
*)
|
|
err_exit "Unexpected mode ${mode}"
|
|
;;
|
|
esac
|
|
|
|
testname="${0}/${cmd}"
|
|
#set -x
|
|
out.stderr="${ { out.stdout="${ ${SHELL} -o nounset -o errexit -c "${cmd}" ; (( out.res=$? )) ; }" ; } 2>&1 ; }"
|
|
#set +x
|
|
|
|
[[ "${out.stdout}" == ${tst.stdoutpattern} ]] || err_exit "${testname}: Expected stdout to match $(printf '%q\n' "${tst.stdoutpattern}"), got $(printf '%q\n' "${out.stdout}")"
|
|
[[ "${out.stderr}" == '' ]] || err_exit "${testname}: Expected empty stderr, got $(printf '%q\n' "${out.stderr}")"
|
|
(( out.res == 0 )) || err_exit "${testname}: Unexpected exit code ${out.res}"
|
|
done
|
|
done
|
|
done
|
|
|
|
return 0
|
|
}
|
|
|
|
function test_has_iszero
|
|
{
|
|
typeset str
|
|
integer i
|
|
|
|
typeset -r -a tests=(
|
|
'(( iszero(0) )) && print "OK"'
|
|
'(( iszero(0.) )) && print "OK"'
|
|
'(( iszero(-0) )) && print "OK"'
|
|
'(( iszero(-0.) )) && print "OK"'
|
|
'float n=0. ; (( iszero(n) )) && print "OK"'
|
|
'float n=+0. ; (( iszero(n) )) && print "OK"'
|
|
'float n=-0. ; (( iszero(n) )) && print "OK"'
|
|
'float n=1. ; (( iszero(n) )) || print "OK"'
|
|
'float n=1. ; (( iszero(n-1.) )) && print "OK"'
|
|
'float n=-1. ; (( iszero(n+1.) )) && print "OK"'
|
|
)
|
|
|
|
for (( i=0 ; i < ${#tests[@]} ; i++ )) ; do
|
|
str="$( ${SHELL} -o errexit -c "${tests[i]}" 2>&1 )" || err_exit "test $i: returned non-zero exit code $?"
|
|
[[ "${str}" == 'OK' ]] || err_exit "test $i: expected 'OK', got '${str}'"
|
|
done
|
|
|
|
return 0
|
|
}
|
|
|
|
# run tests
|
|
test_arithmetric_expression_accesss_array_element_through_nameref
|
|
test_has_iszero
|
|
|
|
exit $((Errors<125?Errors:125))
|