bc: fix for() to not leave data on stack
[oweals/busybox.git] / testsuite / runtest
index c7f353690145c5e947fcded3af0da9fe8a1960e9..44f9cd1a1f15ccbd28c9db24ef1ebc68a7807393 100755 (executable)
 #!/bin/sh
+# Usage:
+# runtest [applet1] [applet2...]
 
-[ -n "$srcdir" ] || srcdir=$(pwd)
-[ -n "$bindir" ] || bindir=$(dirname $(pwd))
-PATH=$bindir:$PATH
+. ./testing.sh
 
-# Run old-style test.
+total_failed=0
 
-function run_applet_testcase
+# Run one old-style test.
+# Tests are stored in applet/testcase shell scripts.
+# They are run using "sh -x -e applet/testcase".
+# Option -e will make testcase stop on the first failed command.
+run_applet_testcase()
 {
-       local applet=$1
-       local testcase=$2
+       applet="$1"
+       testcase="$2"
 
-       local status=0
-       local RES=
-
-       local uc_applet=$(echo $applet | tr a-z A-Z)
-       local testname=$(basename $testcase)
+       status=0
+       uc_applet=$(echo "$applet" | tr a-z A-Z)
+       testname="$testcase"
 
-       if grep -q "^# CONFIG_${uc_applet} is not set$" $bindir/.config; then
-               echo UNTESTED: $testname
+       testname="${testname##*/}" # take basename
+       if grep "^# CONFIG_$uc_applet is not set$" "$bindir/.config" >/dev/null; then
+               echo "UNTESTED: $testname"
                return 0
        fi
 
-       if grep -q "^# FEATURE: " $testcase; then
-               local feature=`sed -ne 's/^# FEATURE: //p' $testcase`
+       if grep "^# FEATURE: " "$testcase" >/dev/null; then
+               local feature=$(sed -ne 's/^# FEATURE: //p' "$testcase")
 
-               if grep -q "^# ${feature} is not set$" $bindir/.config; then
-                       echo UNTESTED: $testname
-                       return 0
-               fi
+               for f in $feature; do
+                       if grep "^# $f is not set$" "$bindir/.config" >/dev/null; then
+                               echo "UNTESTED: $testname"
+                               return 0
+                       fi
+               done
        fi
 
-       rm -rf tmp
-       mkdir -p tmp
-       pushd tmp >/dev/null
-
-       d=$srcdir sh -x -e $testcase >.logfile.txt 2>&1
-
-       if [ $? != 0 ] ; then
-               echo FAIL: $testname
-               if [ $verbose -gt 0 ]; then
-                       cat .logfile.txt
-                       #exit 1;
-               fi;
-               status=$?
+       rm -rf ".tmpdir.$applet"
+       mkdir -p ".tmpdir.$applet"
+       cd ".tmpdir.$applet" || return 1
+
+#      echo "Running testcase $testcase"
+       d="$tsdir" \
+               sh -x -e "$testcase" >"$testname.stdout.txt" 2>&1 || status=$?
+       if [ $status -ne 0 ]; then
+               echo "FAIL: $testname"
+               if [ x"$VERBOSE" != x ]; then
+                       cat "$testname.stdout.txt"
+               fi
        else
-               echo PASS: $testname
-               rm -f .logfile.txt
-               status=$?
+               echo "PASS: $testname"
        fi
 
-       popd >/dev/null
-       rm -rf tmp
+       cd ..
+       rm -rf ".tmpdir.$applet"
 
        return $status
 }
 
-run_applet_tests ()
+# Run all old-style tests for given applet
+run_oldstyle_applet_tests()
 {
-       local applet=$1
-
+       local applet="$1"
        local status=0
 
-       for testcase in $srcdir/$applet/*; do
-               if [ "$testcase" = "$srcdir/$applet/CVS" ]; then
-                       continue
-               fi
-
-               if run_applet_testcase $applet $testcase; then
-                       :
-               else
+       for testcase in "$tsdir/$applet"/*; do
+               # switch on basename of $testcase
+               case "${testcase##*/}" in
+                       .*)     continue ;;    # .svn, .git etc
+                       *~)     continue ;;    # backup files
+                       "CVS")  continue ;;
+                       \#*)    continue ;;    # CVS merge residues
+                       *.mine) continue ;;    # svn-produced junk
+                       *.r[0-9]*) continue ;; # svn-produced junk
+               esac
+               run_applet_testcase "$applet" "$testcase" || {
                        status=1
-               fi
+                       total_failed=$((total_failed + 1))
+               }
        done
-
        return $status
 }
 
 
-status=0
-verbose=0
+
+lcwd=$(pwd)
+[ x"$tsdir" != x"" ] || tsdir="$lcwd"
+[ x"$bindir" != x"" ] || bindir="${lcwd%/*}" # one directory up from $lcwd
+PATH="$bindir:$PATH"
+export bindir   # some tests need to look at $bindir/.config
+
+if [ x"$VERBOSE" = x ]; then
+       export VERBOSE=
+fi
 
 if [ x"$1" = x"-v" ]; then
-       verbose=1
-       export VERBOSE=$verbose
+       export VERBOSE=1
        shift
 fi
 
+implemented=$(
+       printf "busybox " # always implemented
+       "$bindir/busybox" 2>&1 |
+       while read line; do
+               if [ x"$line" = x"Currently defined functions:" ]; then
+                       xargs | sed 's/,//g'
+                       break
+               fi
+       done
+       )
+
+applets="$implemented"
 if [ $# -ne 0 ]; then
-       applets=$(cd $srcdir ; for i in $@; do ls ${i}* ; done)
-else
-       applets=$(ls $srcdir)
+       applets="$@"
 fi
 
 # Populate a directory with links to all busybox applets
 
-LINKSDIR="${bindir}/runtest-tempdir-links"
+LINKSDIR="$bindir/runtest-tempdir-links"
+
+# Comment this line out if you have put a different binary in $LINKSDIR
+# (say, a "standard" tool's binary) in order to run tests against it:
 rm -rf "$LINKSDIR" 2>/dev/null
-mkdir "$LINKSDIR"
-for i in $(sed 's@/[a-z0-9/\[]*/@@' $bindir/busybox.links 2>/dev/null)
-do
-       ln -s $bindir/busybox "$LINKSDIR"/$i
+
+mkdir "$LINKSDIR" 2>/dev/null
+for i in $implemented; do
+       # Note: if $LINKSDIR/applet exists, we do not overwrite it.
+       # Useful if one wants to run tests against a standard utility,
+       # not an applet.
+       ln -s "$bindir/busybox" "$LINKSDIR/$i" 2>/dev/null
 done
 
 # Set up option flags so tests can be selective.
+export OPTIONFLAGS=:$(
+       sed -nr 's/^CONFIG_//p' "$bindir/.config" |
+       sed 's/=.*//' | xargs | sed 's/ /:/g'
+       ):
 
-configfile=${bindir:-../../}/.config
-export OPTIONFLAGS=:$(echo $(sed -nr 's/^CONFIG_(.*)=.*/\1/p' $configfile) | sed 's/ /:/g')
-
+status=0
 for applet in $applets; do
-       if [ "$applet" = "links" ]; then continue; fi
-       if [ "$applet" != "CVS" -a -d "$srcdir/$applet" ]; then
-               if run_applet_tests $applet; then
-                       :
-               else
-                       status=1
-               fi
+       # Any old-style tests for this applet?
+       if [ -d "$tsdir/$applet" ]; then
+               run_oldstyle_applet_tests "$applet" || status=1
        fi
 
        # Is this a new-style test?
-       applet=$(echo "$applet" | sed -n 's/\.tests$//p')
-       if [ ${#applet} -ne 0 ]
-       then
-               if [ ! -h "$LINKSDIR/$applet" ] && [ ${applet:0:4} != "all_" ]
-               then
-                       echo "SKIPPED: $applet (not built)"
-                       continue
+       if [ -f "$applet.tests" ]; then
+               if [ ! -e "$LINKSDIR/$applet" ]; then
+                       # (avoiding bash'ism "${applet:0:4}")
+                       if ! echo "$applet" | grep "^all_" >/dev/null; then
+                               echo "SKIPPED: $applet (not built)"
+                               continue
+                       fi
                fi
-               PATH="$LINKSDIR":$srcdir:$bindir:$PATH \
-                       "${srcdir:-.}/$applet".tests
-               if [ $? -ne 0 ]; then status=1; fi
+#              echo "Running test $tsdir/$applet.tests"
+               PATH="$LINKSDIR:$tsdir:$bindir:$PATH" \
+                       "$tsdir/$applet.tests"
+               rc=$?
+               total_failed=$((total_failed + rc))
+               test $rc -ne 0 && status=1
        fi
-
 done
-rm -rf "$LINKSDIR"
+
+# Leaving the dir makes it somewhat easier to run failed test by hand
+#rm -rf "$LINKSDIR"
+
+if [ $status -ne 0 ] && [ x"$VERBOSE" = x ]; then
+       echo "$total_failed failure(s) detected; running with -v (verbose) will give more info"
+fi
 exit $status