mirror of
https://github.com/fachat/xa65.git
synced 2024-12-29 07:29:50 +00:00
first test infrastructure
This commit is contained in:
A. Fachat
parent
cad65680e2
commit
b4f36e9061
2
xa/src/.gitignore
vendored
Normal file
2
xa/src/.gitignore
vendored
Normal file
@ -0,0 +1,2 @@
|
||||
*.o
|
||||
|
||||
4
xa/tests/Makefile
Normal file
4
xa/tests/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
|
||||
tests:
|
||||
(cd adrm; make tests)
|
||||
|
||||
Binary file not shown.
302
xa/tests/adrm/runtest.sh
Executable file
302
xa/tests/adrm/runtest.sh
Executable file
@ -0,0 +1,302 @@
|
||||
#!/bin/bash
|
||||
|
||||
# run a test script
|
||||
|
||||
#THISDIR=`dirname $0`
|
||||
THISDIR=`pwd`
|
||||
|
||||
echo "0=$0"
|
||||
echo "THISDIR=$THISDIR"
|
||||
|
||||
EXCLUDE=
|
||||
TESTFILES=
|
||||
|
||||
XA=$THISDIR/../../xa
|
||||
|
||||
##########################
|
||||
|
||||
LIST=$NAME.lst
|
||||
|
||||
##########################
|
||||
|
||||
function usage() {
|
||||
echo "Assemble *.asm test files"
|
||||
echo " $0 [options] [frs_scripts]"
|
||||
echo "Options:"
|
||||
echo " -v verbose log"
|
||||
echo " -o server log on console"
|
||||
echo " -d <breakpoint> run xa with gdb and set given breakpoint. Can be "
|
||||
echo " used multiple times"
|
||||
echo " -k keep all files, even non-log and non-data files in run directory"
|
||||
echo " -c clean up only non-log and non-data files from run directory,"
|
||||
echo " keep rest (default)"
|
||||
echo " -C always clean up complete run directory"
|
||||
echo " -R <run directory> use given run directory instead of tmp folder (note:"
|
||||
echo " will not be rmdir'd on -C"
|
||||
echo " -q will suppress any output except whether test was successful"
|
||||
echo " -h show this help"
|
||||
}
|
||||
|
||||
function contains() {
|
||||
local j
|
||||
for j in "${@:2}"; do test "$j" == "$1" && return 0; done;
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
function hexdiff() {
|
||||
diffres=0
|
||||
if ! cmp -b "$1" "$2"; then
|
||||
tmp1=`mktemp`
|
||||
tmp2=`mktemp`
|
||||
|
||||
hexdump -C "$1" > $tmp1
|
||||
hexdump -C "$2" > $tmp2
|
||||
|
||||
diff -u $tmp1 $tmp2
|
||||
diffres=$?
|
||||
|
||||
rm $tmp1 $tmp2
|
||||
fi;
|
||||
return $diffres
|
||||
}
|
||||
|
||||
VERBOSE=""
|
||||
DEBUG=""
|
||||
CLEAN=1
|
||||
QUIET=0
|
||||
LOGFILE=""
|
||||
|
||||
TMPDIR=`mktemp -d`
|
||||
OWNDIR=1
|
||||
|
||||
while test $# -gt 0; do
|
||||
case $1 in
|
||||
-h)
|
||||
usage
|
||||
exit 0;
|
||||
;;
|
||||
-o)
|
||||
LOGFILE="-"
|
||||
shift;
|
||||
;;
|
||||
-v)
|
||||
VERBOSE="-v"
|
||||
shift;
|
||||
;;
|
||||
-d)
|
||||
if test $# -lt 2; then
|
||||
echo "Option -d needs the break point name for gdb as parameter"
|
||||
exit -1;
|
||||
fi;
|
||||
DEBUG="$DEBUG $2"
|
||||
shift 2;
|
||||
;;
|
||||
-k)
|
||||
CLEAN=0
|
||||
shift;
|
||||
;;
|
||||
-c)
|
||||
CLEAN=1
|
||||
shift;
|
||||
;;
|
||||
-C)
|
||||
CLEAN=2
|
||||
shift;
|
||||
;;
|
||||
-q)
|
||||
QUIET=1
|
||||
shift;
|
||||
;;
|
||||
-R)
|
||||
if test $# -lt 2; then
|
||||
echo "Option -R needs the directory path as parameter"
|
||||
exit -1;
|
||||
fi;
|
||||
TMPDIR="$2"
|
||||
OWNDIR=0
|
||||
shift 2;
|
||||
;;
|
||||
-?)
|
||||
echo "Unknown option $1"
|
||||
usage
|
||||
exit 1;
|
||||
;;
|
||||
*)
|
||||
break;
|
||||
;;
|
||||
esac;
|
||||
done;
|
||||
|
||||
#######################
|
||||
# test for executables
|
||||
|
||||
ERR=0
|
||||
if test ! -e $XA; then
|
||||
echo "$XA does not exist! Maybe forgot to compile?"
|
||||
ERR=1
|
||||
fi
|
||||
if [ $ERR -ge 1 ]; then
|
||||
echo "Aborting!"
|
||||
exit 1;
|
||||
fi
|
||||
|
||||
|
||||
# scripts to run
|
||||
if [ "x$*" = "x" ]; then
|
||||
SCRIPTS=$THISDIR/*${FILTER}*.asm
|
||||
SCRIPTS=`basename -a $SCRIPTS`;
|
||||
|
||||
TESTSCRIPTS=""
|
||||
|
||||
if test "x$EXCLUDE" != "x"; then
|
||||
exarr=( $EXCLUDE )
|
||||
scrarr=( $SCRIPTS )
|
||||
for scr in "${scrarr[@]}"; do
|
||||
if ! contains "${scr}" "${exarr[@]}"; then
|
||||
TESTSCRIPTS="$TESTSCRIPTS $scr";
|
||||
fi
|
||||
done;
|
||||
else
|
||||
TESTSCRIPTS="$SCRIPTS"
|
||||
fi;
|
||||
else
|
||||
TESTSCRIPTS="";
|
||||
|
||||
for i in "$@"; do
|
||||
if test -f "$i".asm ; then
|
||||
TESTSCRIPTS="$TESTSCRIPTS $i.asm";
|
||||
else
|
||||
TESTSCRIPTS="$TESTSCRIPTS $i";
|
||||
fi
|
||||
done;
|
||||
fi;
|
||||
|
||||
echo "TESTSCRIPTS=$TESTSCRIPTS"
|
||||
|
||||
########################
|
||||
# tmp names
|
||||
#
|
||||
|
||||
DEBUGFILE="$TMPDIR"/gdb.ex
|
||||
|
||||
########################
|
||||
# stdout
|
||||
|
||||
# remember stdout for summary output
|
||||
exec 5>&1
|
||||
|
||||
# redirect log when quiet
|
||||
if test $QUIET -ge 1 ; then
|
||||
exec 1>$TMPDIR/stdout.log
|
||||
fi
|
||||
|
||||
########################
|
||||
# prepare files
|
||||
#
|
||||
|
||||
for i in $TESTSCRIPTS; do
|
||||
cp "$THISDIR/$i" "$TMPDIR"
|
||||
done;
|
||||
|
||||
########################
|
||||
# run scripts
|
||||
#
|
||||
|
||||
for script in $TESTSCRIPTS; do
|
||||
|
||||
echo "Run script $script"
|
||||
|
||||
|
||||
# overwrite test files in each iteration, just in case
|
||||
for i in $TESTFILES; do
|
||||
if [ -f ${THISDIR}/${i}.gz ]; then
|
||||
gunzip -c ${THISDIR}/${i}.gz > ${TMPDIR}/${i}
|
||||
else
|
||||
cp ${THISDIR}/${i} ${TMPDIR}/${i}
|
||||
fi;
|
||||
done;
|
||||
|
||||
if test "x$DEBUG" = "x"; then
|
||||
############################################
|
||||
# simply do assemble
|
||||
|
||||
echo "Run assembler:" $XA $VERBOSE $script $TMPDIR
|
||||
if test "x$LOGFILE" = "x"; then
|
||||
(cd $TMPDIR; $XA -o a.out -P $script.log $script)
|
||||
else
|
||||
(cd $TMPDIR; $XA -o a.out -P $LOGFILE $script)
|
||||
fi
|
||||
RESULT=$?
|
||||
|
||||
if test $RESULT -eq 0; then
|
||||
echo "$script: Ok" >&5
|
||||
else
|
||||
echo "$script: errors: $RESULT" >&5
|
||||
fi
|
||||
|
||||
else
|
||||
echo > $DEBUGFILE;
|
||||
for i in $DEBUG; do
|
||||
echo "break $i" >> $DEBUGFILE
|
||||
done;
|
||||
gdb -x $DEBUGFILE -ex "run -o a.out -P $LOGFILE $script.asm" $XA
|
||||
fi;
|
||||
|
||||
#echo "Killing server (pid $SERVERPID)"
|
||||
#kill -TERM $SERVERPID
|
||||
|
||||
if test "x$COMPAREFILES" != "x"; then
|
||||
testname=`basename $script .asm`
|
||||
for i in $COMPAREFILES; do
|
||||
NAME="${THISDIR}/${i}-${testname}"
|
||||
if test -f ${NAME}; then
|
||||
echo "Comparing file ${i} with ${NAME}"
|
||||
hexdiff ${NAME} $TMPDIR/${i}
|
||||
if test $? -ne 0; then
|
||||
echo "$script: File ${i} differs!" >&5
|
||||
fi;
|
||||
fi
|
||||
if test -f ${NAME}.gz; then
|
||||
echo "Comparing file ${i} with ${NAME}.gz"
|
||||
gunzip -c ${NAME}.gz > ${TMPDIR}/shouldbe_${i}
|
||||
hexdiff ${TMPDIR}/shouldbe_${i} ${TMPDIR}/${i}
|
||||
if test $? -ne 0; then
|
||||
echo "$script: File ${i} differs!" >&5
|
||||
fi;
|
||||
rm -f ${TMPDIR}/shouldbe_${i}
|
||||
fi
|
||||
done;
|
||||
fi
|
||||
|
||||
if test $CLEAN -ge 1; then
|
||||
rm -f $DEBUGFILE;
|
||||
rm -f $TMPDIR/$script;
|
||||
fi
|
||||
done;
|
||||
|
||||
if test $CLEAN -ge 2; then
|
||||
echo "Cleaning up directory $TMPDIR"
|
||||
|
||||
for script in $TESTSCRIPTS; do
|
||||
rm -f $TMPDIR/$script.log
|
||||
done;
|
||||
|
||||
# gzipped test files are unzipped
|
||||
for i in $TESTFILES; do
|
||||
rm -f $TMPDIR/$i;
|
||||
done;
|
||||
|
||||
rm -f $TMPDIR/stdout.log
|
||||
|
||||
# only remove work dir if we own it (see option -R)
|
||||
if test $OWNDIR -ge 1; then
|
||||
rmdir $TMPDIR
|
||||
fi;
|
||||
else
|
||||
echo "Find debug info in $TMPDIR" >&5
|
||||
fi;
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user