diff options
author | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2008-01-05 16:36:56 +0000 |
---|---|---|
committer | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2008-01-05 16:36:56 +0000 |
commit | 4887a05481e143bfc4796230605d0a9ff7f2cb5a (patch) | |
tree | 495dce9e5a774e6826fa09f2651ae3c8c546822d /misc/pascal/tests/list.sh | |
parent | 9684605c30d1f7f2f7120d8c1b5645e7ca4eb54f (diff) | |
download | nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.tar.gz nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.tar.bz2 nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.zip |
Pascal Tests
git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@504 42af7a65-404d-4744-a932-0658087f49c3
Diffstat (limited to 'misc/pascal/tests/list.sh')
-rwxr-xr-x | misc/pascal/tests/list.sh | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/misc/pascal/tests/list.sh b/misc/pascal/tests/list.sh new file mode 100755 index 000000000..2e50ab876 --- /dev/null +++ b/misc/pascal/tests/list.sh @@ -0,0 +1,73 @@ +#!/bin/sh +############################################################################ +# list.sh +# +# Copyright (C) 2008 Gregory Nutt. All rights reserved. +# Author: Gregory Nutt <spudmonkey@racsa.co.cr> +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in +# the documentation and/or other materials provided with the +# distribution. +# 3. Neither the name NuttX nor the names of its contributors may be +# used to endorse or promote products derived from this software +# without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS +# FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE +# COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, +# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, +# BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS +# OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED +# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN +# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +# POSSIBILITY OF SUCH DAMAGE. +# +############################################################################ +#set -x + +source ../.config + +if [ "${CONFIG_INSN16}" == "y" ]; then + BINDIR=bin16 +fi +if [ "${CONFIG_INSN32}" == "y" ]; then + BINDIR=bin32 +fi + +PLIST=../${BINDIR}/plist +PLISTOPTS="-d" + +PEXFILENAME=${1} +if [ -z "${PEXFILENAME}" ]; then + echo "ERROR: No file name provided" + exit 1 +fi + +PEXBASENAME=`basename ${PEXFILENAME} .pas` +PEXDIRNAME=`dirname ${PEXFILENAME}` +if [ "${PEXDIRNAME}" == "." ]; then + PEXDIRNAME=src +fi + +PEXFILENAME=${PEXDIRNAME}/${PEXBASENAME}.pex +if [ ! -f "${PEXFILENAME}" ]; then + echo "ERROR: ${PEXFILENAME} does not exist" + exit 1 +fi + +if [ -f ${PEXDIRNAME}/${PEXBASENAME}.inp ] ; then + echo "Test command line arguments:" + echo " \"`cat ${PEXDIRNAME}/${PEXBASENAME}.inp`\"" +fi + +${PLIST} ${PLISTOPTS} src/${PEXBASENAME}.pex 2>&1 |