lean2/tests/lean/interactive/test.sh

#!/bin/bash
if [ $# -ne 2 -a $# -ne 1 ]; then
    echo "Usage: test.sh [lean-executable-path] [yes/no]?"
    exit 1
fi
ulimit -s unlimited
LEAN=$1
if [ $# -ne 2 ]; then
    INTERACTIVE=no
else
    INTERACTIVE=$2
fi
NUM_ERRORS=0
for f in `ls *.lean`; do
    echo "-- testing $f"
    cat config.lean $f | $LEAN --lean | tail -n +3 > $f.produced.out
    if test -f $f.expected.out; then
        if diff $f.produced.out $f.expected.out; then
            echo "-- checked"
        else
            echo "ERROR: file $f.produced.out does not match $f.expected.out"
            NUM_ERRORS=$(($NUM_ERRORS+1))
            if [ $INTERACTIVE == "yes" ]; then
                meld $f.produced.out $f.expected.out
                if diff $f.produced.out $f.expected.out; then
                    echo "-- mismath was fixed"
                fi
            fi
        fi
    else
        echo "ERROR: file $f.expected.out does not exist"
        NUM_ERRORS=$(($NUM_ERRORS+1))
        if [ $INTERACTIVE == "yes" ]; then
            read -p "copy $f.produced.out (y/n)? "
            if [ $REPLY == "y" ]; then
                cp $f.produced.out $f.expected.out
                echo "-- copied $f.produced.out --> $f.expected.out"
            fi
        fi
    fi
done
if [ $NUM_ERRORS -gt 0 ]; then
    echo "-- Number of errors: $NUM_ERRORS"
    exit 1
else
    echo "-- Passed"
    exit 0
fi