|
Packit Service |
a8c26c |
########################################################################
|
|
Packit Service |
a8c26c |
# #
|
|
Packit Service |
a8c26c |
# This software is part of the ast package #
|
|
Packit Service |
a8c26c |
# Copyright (c) 1982-2012 AT&T Intellectual Property #
|
|
Packit Service |
a8c26c |
# and is licensed under the #
|
|
Packit Service |
a8c26c |
# Eclipse Public License, Version 1.0 #
|
|
Packit Service |
a8c26c |
# by AT&T Intellectual Property #
|
|
Packit Service |
a8c26c |
# #
|
|
Packit Service |
a8c26c |
# A copy of the License is available at #
|
|
Packit Service |
a8c26c |
# http://www.eclipse.org/org/documents/epl-v10.html #
|
|
Packit Service |
a8c26c |
# (with md5 checksum b35adb5213ca9657e911e9befb180842) #
|
|
Packit Service |
a8c26c |
# #
|
|
Packit Service |
a8c26c |
# Information and Software Systems Research #
|
|
Packit Service |
a8c26c |
# AT&T Research #
|
|
Packit Service |
a8c26c |
# Florham Park NJ #
|
|
Packit Service |
a8c26c |
# #
|
|
Packit Service |
a8c26c |
# David Korn <dgk@research.att.com> #
|
|
Packit Service |
a8c26c |
# #
|
|
Packit Service |
a8c26c |
########################################################################
|
|
Packit Service |
a8c26c |
function err_exit
|
|
Packit Service |
a8c26c |
{
|
|
Packit Service |
a8c26c |
print -u2 -n "\t"
|
|
Packit Service |
a8c26c |
print -u2 -r ${Command}[$1]: "${@:2}"
|
|
Packit Service |
a8c26c |
(( Errors+=1 ))
|
|
Packit Service |
a8c26c |
}
|
|
Packit Service |
a8c26c |
alias err_exit='err_exit $LINENO'
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
Command=${0##*/}
|
|
Packit Service |
a8c26c |
integer Errors=0
|
|
Packit Service |
a8c26c |
enum Color_t=(red green blue orange yellow)
|
|
Packit Service |
a8c26c |
enum -i Sex_t=(Male Female)
|
|
Packit Service |
a8c26c |
for ((i=0; i < 1000; i++))
|
|
Packit Service |
a8c26c |
do
|
|
Packit Service |
a8c26c |
Color_t x
|
|
Packit Service |
a8c26c |
[[ $x == red ]] || err_exit 'Color_t does not default to red'
|
|
Packit Service |
a8c26c |
x=orange
|
|
Packit Service |
a8c26c |
[[ $x == orange ]] || err_exit '$x should be orange'
|
|
Packit Service |
a8c26c |
( x=violet) 2> /dev/null && err_exit 'x=violet should fail'
|
|
Packit Service |
a8c26c |
x[2]=green
|
|
Packit Service |
a8c26c |
[[ ${x[2]} == green ]] || err_exit '${x[2]} should be green'
|
|
Packit Service |
a8c26c |
(( x[2] == 1 )) || err_exit '((x[2]!=1))'
|
|
Packit Service |
a8c26c |
[[ $((x[2])) == 1 ]] || err_exit '$((x[2]))!=1'
|
|
Packit Service |
a8c26c |
[[ $x == orange ]] || err_exit '$x is no longer orange'
|
|
Packit Service |
a8c26c |
Color_t -A y
|
|
Packit Service |
a8c26c |
y[foo]=yellow
|
|
Packit Service |
a8c26c |
[[ ${y[foo]} == yellow ]] || err_exit '${y[foo]} != yellow'
|
|
Packit Service |
a8c26c |
(( y[foo] == 4 )) || err_exit '(( y[foo] != 4))'
|
|
Packit Service |
a8c26c |
unset y
|
|
Packit Service |
a8c26c |
typeset -a [Color_t] z
|
|
Packit Service |
a8c26c |
z[green]=xyz
|
|
Packit Service |
a8c26c |
[[ ${z[green]} == xyz ]] || err_exit '${z[green]} should be xyz'
|
|
Packit Service |
a8c26c |
[[ ${z[1]} == xyz ]] || err_exit '${z[1]} should be xyz'
|
|
Packit Service |
a8c26c |
z[orange]=bam
|
|
Packit Service |
a8c26c |
[[ ${!z[@]} == 'green orange' ]] || err_exit '${!z[@]} == "green orange"'
|
|
Packit Service |
a8c26c |
unset x
|
|
Packit Service |
a8c26c |
Sex_t x
|
|
Packit Service |
a8c26c |
[[ $x == Male ]] || err_exit 'Sex_t not defaulting to Male'
|
|
Packit Service |
a8c26c |
x=female
|
|
Packit Service |
a8c26c |
[[ $x == Female ]] || err_exit 'Sex_t not case sensitive'
|
|
Packit Service |
a8c26c |
unset x y z
|
|
Packit Service |
a8c26c |
done
|
|
Packit Service |
a8c26c |
(
|
|
Packit Service |
a8c26c |
typeset -T X_t=( typeset name=aha )
|
|
Packit Service |
a8c26c |
typeset -a[X_t] arr
|
|
Packit Service |
a8c26c |
) 2> /dev/null
|
|
Packit Service |
a8c26c |
[[ $? == 1 ]] || err_exit 'typeset -a[X_t] should generate an error message when X-t is not an enumeriation type'
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
typeset -a [Color_t] arr
|
|
Packit Service |
a8c26c |
arr[green]=foo
|
|
Packit Service |
a8c26c |
[[ ${arr[1]} == ${arr[green]} ]] || err_exit 'arr[1] != arr[green]'
|
|
Packit Service |
a8c26c |
read -A arr <<< 'x y z xx yy'
|
|
Packit Service |
a8c26c |
[[ ${arr[1]} == ${arr[green]} ]] || err_exit 'arr[1] != arr[green] after read'
|
|
Packit Service |
a8c26c |
|
|
Packit Service |
a8c26c |
exit $((Errors<125?Errors:125))
|