TP3/shell/tests/run_compile_tests.sh

#!/bin/bash
# Build and run the direct compiler harness (tests/CompileTest.mod).
#
# Same two-phase ISO link recipe as tpshell: a single monolithic invocation
# trips gm2's pass-3 rollup on a compiler-size program, so generate the module
# list first (-fgen-module-list -> /dev/null, rc=1 is expected) and then link
# with -fuse-list.
set -u
D=/home/eric/Projets/Projets-Modula2/MyWork/TP3-comp/shell
GM2=/home/eric/bin/Modula2/Gm2/bin/gm2
cd "$D" || exit 9
FLAGS="-fiso"

if [ ! -f TextBuf.o ] || [ ! -f Compiler.o ] || [ ! -f Posix.o ] \
   || [ TextBuf.mod -nt TextBuf.o ] || [ Compiler.mod -nt Compiler.o ] \
   || [ Posix.c -nt Posix.o ] || [ Posix.def -nt Posix.o ]; then
   echo "building support modules (source newer than object)..."
   # NB: Posix is a FOR "C" module (Posix.c + Posix.def, no Posix.mod), so it
   # is not rebuilt here - only TextBuf and Compiler have a .mod to compile.
   for m in TextBuf Compiler; do
      $GM2 $FLAGS -c $m.mod >/tmp/ct_c_$m 2>&1
      if [ $? -ne 0 ]; then
         echo "COMPILE_FAIL $m"
         grep -m5 -E "error:|Please submit" /tmp/ct_c_$m
         exit 1
      fi
   done
   echo "  support modules rebuilt"
fi

rm -f tests/ct.lst compiletest
$GM2 $FLAGS -fgen-module-list=tests/ct.lst -o /dev/null \
    tests/CompileTest.mod TextBuf.o Posix.o Compiler.o >/tmp/ct_p1 2>&1
p1=$?
$GM2 $FLAGS -fuse-list=tests/ct.lst -o compiletest \
    tests/CompileTest.mod TextBuf.o Posix.o Compiler.o >/tmp/ct_p2 2>&1
p2=$?
if [ $p2 -ne 0 ]; then
   echo "LINK_FAIL p1_rc=$p1 p2_rc=$p2"
   grep -E "error:|undefined" /tmp/ct_p2 | head -10
   exit 1
fi
echo "compiletest built (p1_rc=$p1, phase 1 rc=1 is the expected rollup)"

FX=${1:-tests/fixtures}

# ---- assert against tests/fixtures/expected.tsv ---------------------------
# Previously this script only printed a verdict, so "17 of 23" was a number a
# human counted by hand and a wrong error POSITION was invisible.  Both the
# verdict and the numbers are compared now, and the exit status is meaningful.
EXP="$FX/expected.tsv"
if [ ! -f "$EXP" ]; then
    echo "no expectations file $EXP - printing only"
    ls "$FX"/*.pas 2>/dev/null | ./compiletest
    exit 0
fi

RAW=$(mktemp) || exit 9
ls "$FX"/*.pas 2>/dev/null | ./compiletest > "$RAW"

# expected row for a fixture basename, normalised to single spaces
# (only rows that actually carry a verdict count, so the wrapped comment
#  lines in expected.tsv can never be mistaken for data)
expect_for() {
    awk -F'\t' -v n="$1" '
        ($2 == "OK" || $2 == "ERR") && $1 == n {
            out = ""
            for (i = 2; i <= NF; i++)
                out = (out == "") ? $i : out " " $i
            print out
            exit
        }
    ' "$EXP"
}

pass=0; fail=0
while IFS= read -r base; do
    actual=$(grep -F "$base" "$RAW" \
             | head -1 \
             | tr -d '\r' \
             | sed -E 's/^[^ ]+[[:space:]]+//' \
             | tr -s ' ' \
             | sed -E 's/^OK code=([0-9]+) data=([0-9]+)$/OK \1 \2/;
                       s/^ERROR ([0-9]+) at pos ([0-9]+)$/ERR \1 \2/')
    want=$(expect_for "$base" | tr -s ' ')
    if [ -z "$want" ]; then
        printf '  %-24s NO_EXPECTATION  got: %s\n' "$base" "$actual"
        fail=$((fail + 1))
    elif [ "$actual" = "$want" ]; then
        printf '  %-24s PASS  %s\n' "$base" "$actual"
        pass=$((pass + 1))
    else
        printf '  %-24s FAIL\n      expected: %s\n      actual:   %s\n' \
               "$base" "$want" "$actual"
        fail=$((fail + 1))
    fi
done <<EOF
$(ls "$FX"/*.pas 2>/dev/null | xargs -n1 basename | sed 's/\.pas$//')
EOF

echo "----------------------------------------------------------------"
echo "compile matrix: $pass passed, $fail failed (of $((pass + fail)))"
rm -f "$RAW"
[ "$fail" -eq 0 ] || exit 1