Archipelago » qemu

        :

        if [ -f check.time -a -f $tmp.time ]

        then

            cat check.time $tmp.time \

            | $AWK_PROG '

        { t[$1] = $2 }

END        { if (NR > 0) {

            for (i in t) print i " " t[i]

          }

        }' \

            | sort -n >$tmp.out

            mv $tmp.out check.time

        fi

        if [ -f $tmp.expunged ]

        then

            notrun=`wc -l <$tmp.expunged | sed -e 's/  *//g'`

            try=`expr $try - $notrun`

            list=`echo "$list" | sed -f $tmp.expunged`

        fi

        echo "" >>check.log

        date >>check.log

        echo $list | fmt | sed -e 's/^/    /' >>check.log

        $interrupt && echo "Interrupted!" >>check.log

        if [ ! -z "$notrun" ]

        then

            echo "Not run:$notrun"

            echo "Not run:$notrun" >>check.log

        fi

        then

            echo "Failures:$bad"

            echo "Failed $n_bad of $try tests"

            echo "Failures:$bad" | fmt >>check.log

            echo "Failed $n_bad of $try tests" >>check.log

        else

            echo "Passed all $try tests"

            echo "Passed all $try tests" >>check.log

        fi

        needwrap=false

        echo

        continue

    elif [ -f expunged ] && $expunge && egrep "^$seq([         ]|\$)" expunged >/dev/null

        echo " - expunged"

        rm -f $seq.out.bad

        echo "/^$seq\$/d" >>$tmp.expunged

        echo " - no such test?"

        echo "/^$seq\$/d" >>$tmp.expunged

        # really going to try and run this one

        #

        rm -f $seq.out.bad

        lasttime=`sed -n -e "/^$seq /s/.* //p" <check.time`

        if [ "X$lasttime" != X ]; then

                echo -n " ${lasttime}s ..."

        else

                echo -n "        "        # prettier output with timestamps.

        fi

        rm -f core $seq.notrun

        # for hangcheck ...

        echo "$seq" >/tmp/check.sts

        start=`_wallclock`

        $timestamp && echo -n "        ["`date "+%T"`"]"

        [ ! -x $seq ] && chmod u+x $seq # ensure we can run it

        MALLOC_PERTURB_=${MALLOC_PERTURB_:-$(($RANDOM % 255 + 1))} \

                ./$seq >$tmp.out 2>&1

        sts=$?

        $timestamp && _timestamp

        stop=`_wallclock`

        if [ -f core ]

        then

            echo -n " [dumped core]"

            mv core $seq.core

            err=true

        fi

        if [ -f $seq.notrun ]

        then

            $timestamp || echo -n " [not run] "

            $timestamp && echo " [not run]" && echo -n "        $seq -- "

            cat $seq.notrun

            notrun="$notrun $seq"

        else

            if [ $sts -ne 0 ]

            then

                echo -n " [failed, exit status $sts]"

                err=true

            fi

            if [ ! -f $seq.out ]

            then

                echo " - no qualified output"

                err=true

            else

                if diff -w $seq.out $tmp.out >/dev/null 2>&1

                then

                    echo ""

                    if $err

                    then

                        :

                    else

                        echo "$seq `expr $stop - $start`" >>$tmp.time

                    fi

                else

                    echo " - output mismatch (see $seq.out.bad)"

                    mv $tmp.out $seq.out.bad

                    $diff -w $seq.out $seq.out.bad

                    err=true

                fi

            fi

        fi

        bad="$bad $seq"

        n_bad=`expr $n_bad + 1`

        quick=false