README
Jamey Sharp
jamey at gabe.freedesktop.org
Mon Oct 31 15:09:13 PST 2005
Update of /cvs/xtest/xtest/src/xpg3sh/api
In directory gabe:/tmp/cvs-serv27930/src/xpg3sh/api
Added Files:
README makefile tcm.sh tetapi.sh
Log Message:
Importing TET 3.3h (unsupported) sources from http://tetworks.opengroup.org/tet/tet3.3h-unsup.src.tgz.
Omitted the contrib directory: we don't care, and the license situation wasn't entirely clear.
--- NEW FILE: README ---
SCCS: @(#)README 1.14 (96/08/15)
TETware release 3.3
The files in this directory constitute the TETware Application
Programming Interface (API), Shell language binding.
The files are shell scripts written for use with a Shell command interpreter
that conforms to the sh specification in Volume 1 of the X/OPEN Portability
Guide Issue 3. An example of this might be a Bourne Shell that includes
support for shell functions. In addition certain common utilities are
used; attempts have been made to avoid utilities and/or features that may
vary between implementations.
After running make the following files are available in the directory
$(TET_ROOT)/lib/xpg3sh for use with applications:
tcm.sh Shell Test Case Manager
tetapi.sh Shell API support routines.
Note - Signal Handling.
Since signals are specified in the Shell by means of numbers rather than
symbolic names, it will be necessary to inspect the lists of signals
and "SH_NSIG" value in the makefile and check that they are correct for
your implementation.
In addition, it should be noted that the Shell may not know about all the
signals that may occur in a particular implementation and attempts to
handle unknown signals are often treated as fatal errors. Such signal
numbers must either be added to the list of unhandled signals or must
be avoided by reducing SH_NSIG to less than the "real" NSIG value.
The SH_NSIG value in the makefile can be overriden by setting TET_NSIG
when shell test cases are executed, either in the execution configuration
file or in the environment.
Note - Awk.
In order to fulfill the requirements of the Shell API Specification, the
awk utility has been used to format lines in the Results file. It should
be noted that some awk implementations are limited in their capacity to
handle long lines; if this is the case, it will limit the length of a line
that may be passed to tet_infoline or tet_result.
--
End of README.
--- NEW FILE: tetapi.sh ---
#
# SCCS: @(#)tetapi.sh 1.15 (96/11/04)
#
# UniSoft Ltd., London, England
#
# (C) Copyright 1996 X/Open Company Limited
#
# All rights reserved. No part of this source code may be reproduced,
# stored in a retrieval system, or transmitted, in any form or by any
# means, electronic, mechanical, photocopying, recording or otherwise,
# except as stated in the end-user licence agreement, without the prior
# permission of the copyright owners.
# A copy of the end-user licence agreement is contained in the file
# Licence which accompanies this distribution.
#
# X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
# the UK and other countries.
#
# ************************************************************************
# Copyright 1990 Open Software Foundation (OSF)
# Copyright 1990 Unix International (UI)
# Copyright 1990 X/Open Company Limited (X/Open)
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies and that both that
# copyright notice and this permission notice appear in supporting
# documentation, and that the name of OSF, UI or X/Open not be used in
# advertising or publicity pertaining to distribution of the software
# without specific, written prior permission. OSF, UI and X/Open make
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.
#
# OSF, UI and X/Open DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
# INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
# EVENT SHALL OSF, UI or X/Open BE LIABLE FOR ANY SPECIAL, INDIRECT OR
# CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
# USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
# OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
#
# ***********************************************************************
#
# SCCS: @(#)tetapi.sh 1.15 11/04/96
# NAME: Shell API Support Routines
# PRODUCT: TET (Test Environment Toolkit)
# as supplied with TETware release 3.3
# AUTHOR: Andrew Dingwall, UniSoft Ltd.
# DATE CREATED: 1 November 1990
#
# DESCRIPTION:
# This file contains shell functions for use with the shell API.
# It is sourced automatically by the shell TCM.
# In addition it should be sourced by test purposes that are written as
# separate shell scripts, by means of the shell . command.
#
# The following functions are provided:
#
# tet_setcontext
# tet_setblock
# tet_infoline
# tet_result
# tet_delete
# tet_reason
#
# MODIFICATIONS:
#
# Geoff Clare, 29 Jan 1992
# Rewrite tet_setcontext() so context number will change.
#
# Geoff Clare, UniSoft Ltd., August 1996
# Make TP number unique over test case, not just IC.
# Use $$ as context number whenever possible.
#
# Andrew Dingwall, UniSoft Ltd., October 1996
# Port to NT
#
# ***********************************************************************
#
# publicly available shell API functions
#
# set current context and reset block and sequence
# usage: tet_setcontext
# Note that when tet_setcontext is called in a subshell started using
# "( ... )" we cannot use $$ because it has the same value as in the parent.
tet_setcontext(){
if test $$ != "$TET_CONTEXT"
then
TET_CONTEXT=$$
else
# obtain a new, unused PID without generating a zombie process.
TET_CONTEXT=`(:)& echo $!`
fi
TET_BLOCK=1
TET_SEQUENCE=1
}
# increment the current block ID, reset the sequence number to 1
# usage: tet_setblock
tet_setblock(){
TET_BLOCK=`expr ${TET_BLOCK:?} + 1`
TET_SEQUENCE=1
}
# print an information line to the execution results file
# and increment the sequence number
# usage: tet_infoline args [...]
tet_infoline(){
tet_output 520 "${TET_TPNUMBER:?} ${TET_CONTEXT:?} ${TET_BLOCK:?} ${TET_SEQUENCE:?}" "$*"
TET_SEQUENCE=`expr $TET_SEQUENCE + 1`
}
# record a test result for later emmision to the execution results file
# by tet_tpend
# usage: tet_result result_name
# (note that a result name is expected, not a result code number)
tet_result(){
TET_ARG1="${1:?}"
if tet_getcode "$TET_ARG1"
then
: ok
else
tet_error "invalid result name \"$TET_ARG1\"" \
"passed to tet_result"
TET_ARG1=NORESULT
fi
echo $TET_ARG1 >> ${TET_TMPRES:?}
unset TET_ARG1
}
# mark a test purpose as deleted
# usage: tet_delete test_name reason [...]
tet_delete(){
TET_ARG1=${1:?}
shift
TET_ARG2N="$*"
if test -z "$TET_ARG2N"
then
tet_undelete $TET_ARG1
return
fi
case $TET_OSNAME in
Windows_NT|Windows_95|DOS)
TET_DEVNULL=nul
;;
*)
TET_DEVNULL=/dev/null
;;
esac
if tet_reason $TET_ARG1 > $TET_DEVNULL
then
tet_undelete $TET_ARG1
fi
echo "$TET_ARG1 $TET_ARG2N" >> ${TET_DELETES:?}
unset TET_ARG1 TET_ARG2N
}
# print the reason why a test purpose has been deleted
# return 0 if the test purpose has been deleted, 1 otherwise
# usage: tet_reason test_name
tet_reason(){
: ${1:?}
(
while read TET_A TET_B
do
if test X"$TET_A" = X"$1"
then
echo "$TET_B"
exit 0
fi
done
exit 1
) < ${TET_DELETES:?}
return $?
}
# ******************************************************************
#
# "private" functions for internal use by the shell API
# these are not published interfaces and may go away one day
#
# tet_getcode
# look up a result code name in the result code definition file
# return 0 if successful with the result number in TET_RESNUM and TET_ABORT
# set to YES or NO
# otherwise return 1 if the code could not be found
tet_getcode(){
TET_ABORT=NO
TET_RESNUM=-1
: ${TET_CODE:?}
TET_A="${1:?}"
eval "`sed '/^#/d; /^[ ]*$/d' $TET_CODE | while read TET_B
do
eval set -- $TET_B
if test X\"$2\" = X\"$TET_A\"
then
echo TET_RESNUM=\\"$1\\"
echo TET_ABACTION=\\"$3\\"
exit
fi
done`"
unset TET_A
case "$TET_RESNUM" in
-1)
unset TET_ABACTION
return 1
;;
esac
case "$TET_ABACTION" in
""|Continue)
TET_ABORT=NO
;;
Abort)
TET_ABORT=YES
;;
*)
tet_error "invalid action field \"$TET_ABACTION\" in file" \
$TET_CODE
TET_ABORT=NO
;;
esac
unset TET_ABACTION
return 0
}
# tet_undelete - undelete a test purpose
tet_undelete(){
echo "g/^${1:?} /d
w
q" | ed - ${TET_DELETES:?}
}
# tet_error - print an error message to stderr and on TCM Message line
tet_error(){
echo "$TET_PNAME: $*" 1>&2
echo "510|${TET_ACTIVITY:-0}|$*" >> ${TET_RESFILE:?}
}
# tet_output - print a line to the execution results file
tet_output(){
> ${TET_STDERR:?}
case $TET_OSNAME in
Windows_NT|Windows_95|DOS)
TET_DEVNULL=nul
;;
*)
TET_DEVNULL=/dev/null
;;
esac
awk 'END {
if (length(tet_arg2) > 0)
tet_sp = " ";
else
tet_sp = "";
line = sprintf("%d|%s%s%s|%s", tet_arg1, tet_activity, \
tet_sp, tet_arg2, tet_arg3);
# ensure no newline characters in data
nl = sprintf("\n");
n = split(line, a, nl);
if (n > 1)
{
line = a[1];
for (i = 2; i <= n; i++)
{
if (a[i] != "")
line = line " " a[i];
}
}
# journal lines must not exceed 512 bytes
if (length(line) > 511)
{
printf("warning: results file line truncated: prefix: %d|%s%s%s|\n", tet_arg1, tet_activity, tet_sp, tet_arg2) >tet_stderr;
line = substr(line, 1, 511);
}
# line is now OK to print
print line;
}' "tet_arg1=${1:?}" "tet_arg2=$2" "tet_arg3=$3" \
"tet_activity=${TET_ACTIVITY:-0}" \
"tet_stderr=$TET_STDERR" $TET_DEVNULL >> ${TET_RESFILE:?}
if test -s $TET_STDERR
then
tet_error "`cat $TET_STDERR`"
fi
> $TET_STDERR
}
--- NEW FILE: makefile ---
#
# SCCS: @(#)makefile 1.15 (96/08/15)
#
# UniSoft Ltd., London, England
#
# (C) Copyright 1996 X/Open Company Limited
#
# All rights reserved. No part of this source code may be reproduced,
# stored in a retrieval system, or transmitted, in any form or by any
# means, electronic, mechanical, photocopying, recording or otherwise,
# except as stated in the end-user licence agreement, without the prior
# permission of the copyright owners.
# A copy of the end-user licence agreement is contained in the file
# Licence which accompanies this distribution.
#
# X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
# the UK and other countries.
#
# ************************************************************************
#
# Copyright 1990 Open Software Foundation (OSF)
# Copyright 1990 Unix International (UI)
# Copyright 1990 X/Open Company Limited (X/Open)
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies and that both that
# copyright notice and this permission notice appear in supporting
# documentation, and that the name of OSF, UI or X/Open not be used in
# advertising or publicity pertaining to distribution of the software
# without specific, written prior permission. OSF, UI and X/Open make
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.
#
# OSF, UI and X/Open DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
# INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
# EVENT SHALL OSF, UI or X/Open BE LIABLE FOR ANY SPECIAL, INDIRECT OR
# CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
# USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
# OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
##########################################################################
#
# SCCS: @(#)makefile 1.15 08/15/96
# NAME: Shell API
# PRODUCT: TET (Test Environment Toolkit)
# as supplied with TETware release 3.3
# AUTHOR: Andrew Dingwall, UniSoft Ltd.
# DATE CREATED: 15 November 1990
# TARGETS: tcm.sh tetapi.sh
# MODIFICATIONS:
# Geoff Clare, 26 Sep 1991
# Added chmod of installed files, CLOBBER commands
#
# Geoff Clare, 11 Oct 1991
# Allow signal numbers to be specified in makefile
#
# Denis McConalogue, UniSoft Limited, September 1993
# minor changes to target names for consistency with
# TET2 top level makefile
#
# include TET2 defines.mk file. This now contains the
# definitions of SH_STD_SIGNALS and SH_SPEC_SIGNALS
#
# Geoff Clare, UniSoft Ltd., August 1996
# Changes for TETWare.
#
##########################################################################
include ../../defines.mk
STD_SIGNALS = ${SH_STD_SIGNALS}
SPEC_SIGNALS = ${SH_SPEC_SIGNALS}
# Default directory locations
TET_ROOT = ../../..
INSTLIB = $(TET_ROOT)/lib/xpg3sh
RM = rm -f
SHFILES = tcm.sh tetapi.sh
##############################################################################
install: all
sed -e 's/STD_SIGNAL_LIST/$(STD_SIGNALS)/' \
-e 's/SPEC_SIGNAL_LIST/$(SPEC_SIGNALS)/' \
-e 's/NSIG_MARKER/$(SH_NSIG)/' \
tcm.sh > $(INSTLIB)/tcm.sh
cp tetapi.sh $(INSTLIB)
chmod 755 $(INSTLIB)/tcm.sh $(INSTLIB)/tetapi.sh
all: $(SHFILES)
FORCE force: clobber all
CLEAN clean:
$(RM) makefile.bak
CLOBBER clobber:clean
$(RM) $(INSTLIB)/tcm.sh $(INSTLIB)/tetapi.sh
--- NEW FILE: tcm.sh ---
#
# SCCS: @(#)tcm.sh 1.16 (96/10/11)
#
# UniSoft Ltd., London, England
#
# (C) Copyright 1996 X/Open Company Limited
#
# All rights reserved. No part of this source code may be reproduced,
# stored in a retrieval system, or transmitted, in any form or by any
# means, electronic, mechanical, photocopying, recording or otherwise,
# except as stated in the end-user licence agreement, without the prior
# permission of the copyright owners.
# A copy of the end-user licence agreement is contained in the file
# Licence which accompanies this distribution.
#
# X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
# the UK and other countries.
#
# ************************************************************************
# Copyright 1990 Open Software Foundation (OSF)
# Copyright 1990 Unix International (UI)
# Copyright 1990 X/Open Company Limited (X/Open)
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies and that both that
# copyright notice and this permission notice appear in supporting
# documentation, and that the name of OSF, UI or X/Open not be used in
# advertising or publicity pertaining to distribution of the software
# without specific, written prior permission. OSF, UI and X/Open make
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.
#
# OSF, UI and X/Open DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
# INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
# EVENT SHALL OSF, UI or X/Open BE LIABLE FOR ANY SPECIAL, INDIRECT OR
# CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
# USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
# OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
#
# ***********************************************************************
#
# SCCS: @(#)tcm.sh 1.16 10/11/96
# NAME: Shell Test Case Manager
# PRODUCT: TET (Test Environment Toolkit)
# as supplied with TETware release 3.3
# AUTHOR: Andrew Dingwall, UniSoft Ltd.
# DATE CREATED: 1 November 1990
#
# DESCRIPTION:
# This file contains the support routines for the sequencing and control
# of invocable components and test purposes.
# It should be sourced (by means of the shell . command) into a shell
# script containing definitions of the invocable components and test
# purposes that may be executed, after those definitions have been made.
# Test purposes may be written as shell functions or executable
# shell scripts.
#
# This file sources tetapi.sh which contains the shell API functions.
# Test purposes written as separate shell scripts must also source
# tetapi.sh in order to use those functions.
#
# The user-supplied shell variable iclist should contain a list of all
# the invocable components in the testset;
# these are named ic1, ic2 ... etc.
# For each invocable component thus specified, the user should define
# a variable whose name is the same as that of the component.
# Each such variable should contain the names of the test purposes
# associated with each invocable component; for example:
# iclist="ic1 ic2"
# ic1="test1-1 test1-2 test1-3"
# ic2="test2-1 test2-2"
#
# The NUMBERS of the invocable components to be executed are specified
# on the command line.
# In addition, the user may define the variables tet_startup and
# tet_cleanup; if defined, the related functions (or shell scripts)
# are executed at the start and end of processing, respectively.
#
# The TCM makes the NAME of the currently executing test purpose
# available in the environment variable tet_thistest.
#
# The TCM reads configuration variables from the file specified by the
# TET_CONFIG environment variable; these are placed in the environment
# and marked as readonly.
#
# MODIFICATIONS:
#
# Geoff Clare, 11 Oct 1991
# Replace signal lists with markers to be edited by make INSTALL.
# Remove local TET_VERSION to avoid conflict with env. variable.
#
# Geoff Clare, 29 Jan 1992
# Implement TET_TRAP_FUNCTION in place of tet_setsigs(), and
# TET_DEFAULT_SIGS in place of tet_defaultsigs().
#
# Andrew Dingwall, 18 Jan 1993
# Reset block and sequence number to 1 before each
# test purpose is executed.
#
# Geoff Clare, UniSoft Ltd., August 1996
# Make TP number unique over test case, not just IC.
# Get default TET_NSIG from makefile.
#
# Geoff Clare, UniSoft Ltd., 3 Sept 1996
# Only give non-existent IC message for requested IC
# numbers (not for ICs executed via an "all" in the IC list).
#
# Andrew Dingwall, UniSoft Ltd., October 1996
# Port to NT
#
# ***********************************************************************
#
# TCM signal definitions
# The XXX_SIGNAL_LIST markers are replaced with proper lists by make INSTALL
#
# standard signals - may not be specified in TET_SIG_IGN and TET_SIG_LEAVE
TET_STD_SIGNALS="STD_SIGNAL_LIST"
# signals that are always unhandled
TET_SPEC_SIGNALS="SPEC_SIGNAL_LIST"
#
# TCM global variables
#
tet_thistest=""; export tet_thistest
#
# "private" TCM variables
#
TET_CWD=`pwd`
TET_OSNAME=`uname -s`; readonly TET_OSNAME; export TET_OSNAME
TET_DELETES=$TET_CWD/tet_deletes; readonly TET_DELETES; export TET_DELETES
TET_RESFILE=$TET_CWD/tet_xres; readonly TET_RESFILE; export TET_RESFILE
TET_STDERR=$TET_CWD/tet_stderr; readonly TET_STDERR; export TET_STDERR
TET_TESTS=$TET_CWD/tet_tests; readonly TET_TESTS
TET_TMPFILES=$TET_CWD/tet_tmpfiles; readonly TET_TMPFILES
TET_TMPRES=$TET_CWD/tet_tmpres; readonly TET_TMPRES; export TET_TMPRES
TET_BLOCK=0; export TET_BLOCK
TET_CONTEXT=0; export TET_CONTEXT
TET_EXITVAL=0
TET_SEQUENCE=0; export TET_SEQUENCE
TET_TPCOUNT=0; export TET_TPCOUNT
TET_TPNUMBER=0; export TET_TPNUMBER
TET_TMP1=$TET_CWD/tet1.$$
TET_TMP2=$TET_CWD/tet2.$$
# ***********************************************************************
#
# "private" TCM function definitions
# these interfaces may go away one day
#
# tet_ismember - return 0 if $1 is in the set $2 ...
# otherwise return 1
tet_ismember(){
TET_X=${1:?}
shift
for TET_Y in $*
do
if test 0$TET_X -eq $TET_Y
then
return 0
fi
done
return 1
}
# tet_abandon - signal handler used during startup and cleanup
tet_abandon(){
TET_CAUGHTSIG=$1
if test 15 -eq ${TET_CAUGHTSIG:?}
then
tet_sigterm $TET_CAUGHTSIG
else
tet_error "Abandoning testset: caught unexpected signal $TET_CAUGHTSIG"
fi
TET_EXITVAL=$TET_CAUGHTSIG exit
}
# tet_sigterm - signal handler for SIGTERM
tet_sigterm(){
TET_CAUGHTSIG=$1
tet_error "Abandoning test case: received signal ${TET_CAUGHTSIG:?}"
tet_docleanup
TET_EXITVAL=$TET_CAUGHTSIG exit
}
# tet_sigskip - signal handler used during test execution
tet_sigskip(){
TET_CAUGHTSIG=$1
tet_infoline "unexpected signal ${TET_CAUGHTSIG:?} received"
tet_result UNRESOLVED
if test 15 -eq ${TET_CAUGHTSIG:?}
then
tet_sigterm $TET_CAUGHTSIG
else
continue
fi
}
# tet_tpend - report on a test purpose
tet_tpend(){
TET_TPARG1=${1:?}
TET_RESULT=
eval `(
while read TET_NEXTRES
do
if test -z "$TET_RESULT"
then
TET_RESULT="$TET_NEXTRES"
continue
fi
case "$TET_NEXTRES" in
PASS)
;;
FAIL)
TET_RESULT="$TET_NEXTRES"
;;
UNRESOLVED|UNINITIATED)
if test FAIL != "$TET_RESULT"
then
TET_RESULT="$TET_NEXTRES"
fi
;;
NORESULT)
if test FAIL != "$TET_RESULT" -a \
UNRESOLVED != "$TET_RESULT" -a \
UNINITIATED != "$TET_RESULT"
then
TET_RESULT="$TET_NEXTRES"
fi
;;
UNSUPPORTED|NOTINUSE|UNTESTED)
if test PASS = "$TET_RESULT"
then
TET_RESULT="$TET_NEXTRES"
fi
;;
*)
if test PASS = "$TET_RESULT" -o \
UNSUPPORTED = "$TET_RESULT" -o \
NOTINUSE = "$TET_RESULT" -o \
UNTESTED = "$TET_RESULT"
then
TET_RESULT="$TET_NEXTRES"
fi
;;
esac
done
echo TET_RESULT=\"$TET_RESULT\"
) < $TET_TMPRES`
> $TET_TMPRES
TET_ABORT=NO
if test -z "$TET_RESULT"
then
TET_RESULT=NORESULT
TET_RESNUM=7
elif tet_getcode "$TET_RESULT" # sets TET_RESNUM, TET_ABORT
then
: ok
else
TET_RESULT="NO RESULT NAME"
TET_RESNUM=-1
fi
tet_output 220 "$TET_TPARG1 $TET_RESNUM `date +%H:%M:%S`" "$TET_RESULT"
if test YES = "$TET_ABORT"
then
TET_TRAP_FUNCTION=tet_abandon
tet_output 510 "" \
"ABORT on result code $TET_RESNUM \"$TET_RESULT\""
if test -n "$tet_cleanup"
then
tet_docleanup
fi
TET_EXITVAL=1 exit
fi
}
# tet_docleanup - execute the tet_cleanup function
tet_docleanup(){
tet_thistest=
TET_TPCOUNT=0
TET_BLOCK=0
tet_setblock
eval $tet_cleanup
}
# ***********************************************************************
# read in API functions
. ${TET_ROOT:?}/lib/xpg3sh/tetapi.sh
# ***********************************************************************
#
# TCM main flow
#
# capture command line args before they disappear
TET_TCM_ARGC=$#
TET_TCM_ARGS="$*"
TET_PNAME="$0"; readonly TET_PNAME; export TET_PNAME
# arrange to clean up on exit
rm -f $TET_TMPFILES
> $TET_TMPFILES
trap 'rm -f `cat $TET_TMPFILES` $TET_TMPFILES; exit $TET_EXITVAL' 0
trap exit 1 2 3 15
# open execution results file
(umask 0; rm -f $TET_RESFILE; > $TET_RESFILE) || TET_EXITVAL=1 exit
# open other local files
for TET_A in $TET_DELETES $TET_STDERR $TET_TESTS \
$TET_TMP1 $TET_TMPRES
do
rm -f $TET_A
echo $TET_A >> $TET_TMPFILES
> $TET_A
done
# read in configuration variables and make them readonly
# strip comments and other non-variable assignments
# protect embedded spaces and single quotes in the value part
if test -n "$TET_CONFIG"
then
if test ! -r "$TET_CONFIG"
then
tet_error "can't read config file" $TET_CONFIG
else
sed "/^#/d; /^[ ]*\$/d; /^[^ ][^ ]*=/!d;
s/'/'\\\\''/g; s/\([^=]*\)=\(.*\)/\1='\2'/; p;
s/\([^=]*\)=.*/readonly \1/" $TET_CONFIG > $TET_TMP1
. $TET_TMP1
fi
fi
# set current context to process ID
tet_setcontext
# set up default results code file if so required
if test ! -r ${TET_CODE:=tet_code}
then
if test tet_code != "$TET_CODE"
then
tet_error "could not open results code file" \"$TET_CODE\"
fi
echo $TET_TMP2 >> $TET_TMPFILES
echo "
0 PASS Continue
1 FAIL Continue
2 UNRESOLVED Continue
3 NOTINUSE Continue
4 UNSUPPORTED Continue
5 UNTESTED Continue
6 UNINITIATED Continue
7 NORESULT Continue" > $TET_TMP2
TET_CODE=$TET_TMP2
fi
# determine the full path name of the results code file
case $TET_OSNAME in
Windows_NT|Windows_95|DOS)
case $TET_CODE in
[A-Za-z]:/*)
;;
*)
TET_CODE=`pwd`/$TET_CODE
;;
esac
;;
*)
case $TET_CODE in
/*)
;;
*)
TET_CODE=`pwd`/$TET_CODE
;;
esac
;;
esac
readonly TET_CODE; export TET_CODE
# process command-line args
if test 1 -gt $TET_TCM_ARGC
then
TET_TCM_ARGS=all
fi
TET_ICLAST=-1
TET_ICLIST="`echo $iclist | tr -cd ' 0123456789'`"
: ${TET_ICLIST:=0}
TET_ICFIRST_DEF=`echo $TET_ICLIST | sed 's/ .*//'`
for TET_A in `echo $TET_TCM_ARGS | tr , ' '`
do
case $TET_A in
all*)
if test 0 -ge $TET_ICLAST
then
TET_ICFIRST=$TET_ICFIRST_DEF
for TET_B in $TET_ICLIST
do
if test $TET_B -le $TET_ICFIRST
then
TET_ICFIRST=$TET_B
fi
done
else
TET_ICFIRST=`expr $TET_ICLAST + 1`
fi
TET_ICLAST=$TET_ICFIRST
for TET_B in $TET_ICLIST
do
if test $TET_B -gt $TET_ICLAST
then
TET_ICLAST=$TET_B
fi
done
if test $TET_ICLAST -gt ${TET_B:=0}
then
TET_ICLAST=$TET_B
fi
;;
*)
eval `echo $TET_A | sed 'h; s/^\([0-9]*\).*/TET_ICFIRST=\1/;
p; g; s/^[^\-]*-*//; s/^\([0-9]*\).*/TET_ICLAST=\1/'`
;;
esac
TET_ICNO=${TET_ICFIRST:-$TET_ICFIRST_DEF}
while test $TET_ICNO -le ${TET_ICLAST:=$TET_ICNO}
do
if tet_ismember $TET_ICNO $TET_ICLIST
then
test -n "`eval echo \\${ic$TET_ICNO}`" && \
echo ic$TET_ICNO
else
# only report if the IC was requested
case $TET_A in
all*) ;;
*) tet_error "IC $TET_ICNO is not defined" \
"for this test case"
esac
fi
TET_ICNO=`expr $TET_ICNO + 1`
done >> $TET_TESTS
done
TET_ICCOUNT=`wc -l < $TET_TESTS | tr -cd 0123456789`
# print startup message to execution results file
tet_output 15 "3.3 $TET_ICCOUNT" "TCM Start"
# do initial signal list processing
for TET_A in TET_SIG_LEAVE TET_SIG_IGN
do
echo ${TET_A}2=\"
eval echo \$$TET_A | tr , '\012' | while read TET_B TET_JUNK
do
if test -z "$TET_B"
then
continue
elif tet_ismember $TET_B $TET_STD_SIGNALS $TET_SPEC_SIGNALS
then
tet_error "warning: illegal entry $TET_B" \
"in $TET_A ignored"
else
echo $TET_B
fi
done
echo \"
done > $TET_TMP1
. $TET_TMP1
TET_SIG_LEAVE2="$TET_SIG_LEAVE2 $TET_SPEC_SIGNALS"
TET_A=1
# The NSIG marker is edited by the makefile, but allow TET_NSIG to
# be overridden from the config file (or environment).
if test -z "$TET_NSIG"
then
TET_NSIG="NSIG_MARKER"
fi
TET_TRAP_FUNCTION=tet_abandon
TET_DEFAULT_SIGS=
while test $TET_A -lt $TET_NSIG
do
if tet_ismember $TET_A $TET_SIG_LEAVE2
then
:
elif tet_ismember $TET_A $TET_SIG_IGN2
then
trap "" $TET_A
else
trap "trap \"\" $TET_A; \$TET_TRAP_FUNCTION $TET_A" $TET_A
TET_DEFAULT_SIGS="$TET_DEFAULT_SIGS $TET_A"
fi
TET_A=`expr $TET_A + 1`
done
# calculate starting TP number for each IC
TET_A=
for TET_B in $TET_ICLIST
do
# TET_A holds concatenation of TP lists for all previous ICs
set -- $TET_A
eval TET_TP_ADDNUM_$TET_B=$#
eval TET_A=\"\$TET_A \$ic$TET_B\"
done
# do startup processing
eval $tet_startup
# do main loop processing
for TET_ICNAME in `cat $TET_TESTS`
do
eval TET_TPLIST=\"\$$TET_ICNAME\"
TET_ICNUMBER=`echo $TET_ICNAME | tr -cd '0123456789'`
TET_TPCOUNT=`(set -- $TET_TPLIST; echo $#)`
tet_output 400 "$TET_ICNUMBER $TET_TPCOUNT `date +%H:%M:%S`" "IC Start"
TET_TPCOUNT=0
for tet_thistest in $TET_TPLIST
do
TET_BLOCK=1
TET_SEQUENCE=1
TET_TPCOUNT=`expr $TET_TPCOUNT + 1`
eval TET_TPNUMBER=\`expr \$TET_TP_ADDNUM_$TET_ICNUMBER + $TET_TPCOUNT\`
tet_output 200 "$TET_TPNUMBER `date +%H:%M:%S`" "TP Start"
> $TET_TMPRES
TET_REASON="`tet_reason $tet_thistest`"
if test $? -eq 0
then
tet_infoline "$TET_REASON"
tet_result UNINITIATED
else
TET_TRAP_FUNCTION=tet_sigskip
(
trap $TET_DEFAULT_SIGS
unset TET_DEFAULT_SIGS
"$tet_thistest"
)
fi
tet_tpend $TET_TPNUMBER
done
TET_TPNUMBER=0
tet_output 410 "$TET_ICNUMBER $TET_TPCOUNT `date +%H:%M:%S`" "IC End"
done
# do cleanup processing
TET_TRAP_FUNCTION=tet_abandon
if test -n "$tet_cleanup"
then
tet_docleanup
fi
# successful exit
TET_EXITVAL=0 exit
More information about the xorg-test-commit
mailing list