M2compiler-V3/compiler/run_tests.sh

#!/bin/sh
# Step-1 regression: M2 -> gen_ssa/*.ssa -> qbe -> cc -> exit code.
# Usage: ./run_tests.sh   (from the compiler directory)
pass=0; fail=0
SHIM="../runtime/syslib/shim.c"

modof() {
  sed -n 's/^MODULE \([A-Za-z][A-Za-z0-9]*\).*/\1/p' "tests/$1" | head -n 1
}

expect_run() {
  # $1 = test file (no dir), $2 = expected exit code
  name="$1"; want="$2"; mod=$(modof "$name")
  rm -f "gen_ssa/$mod.ssa" "gen_ssa/$mod.s" "gen_ssa/$mod"
  if ./M2 "tests/$name" 2>&1 | grep -q "Parsed correctly"; then :; else
    fail=$((fail+1)); echo "FAIL(run): $name rejected"; return
  fi
  if [ ! -f "gen_ssa/$mod.ssa" ]; then
    fail=$((fail+1)); echo "FAIL(run): $name no gen_ssa/$mod.ssa"; return
  fi
  if ! qbe -o "gen_ssa/$mod.s" "gen_ssa/$mod.ssa" 2> "gen_ssa/$mod.qbeerr"; then
    fail=$((fail+1)); echo "FAIL(run): $name qbe:"; cat "gen_ssa/$mod.qbeerr"; return
  fi
  if ! cc "gen_ssa/$mod.s" "$SHIM" -o "gen_ssa/$mod" 2> "gen_ssa/$mod.ccerr"; then
    fail=$((fail+1)); echo "FAIL(run): $name cc:"; cat "gen_ssa/$mod.ccerr"; return
  fi
  timeout 10 "gen_ssa/$mod" > /dev/null 2>&1; got=$?
  if [ "$got" = "$want" ]; then
    pass=$((pass+1)); echo "PASS(run): $name -> $got"
  else
    fail=$((fail+1)); echo "FAIL(run): $name got $got want $want"
  fi
}

expect_fail() {
  # $1 = test file, $2 = message text expected in the .LST
  name="$1"; want="$2"
  if ./M2 "tests/$name" 2>&1 | grep -q "Incorrect source"; then :; else
    fail=$((fail+1)); echo "FAIL(fail): $name accepted"; return
  fi
  lst="tests/$(basename "$name" .mod).LST"
  if grep -q "$want" "$lst" 2>/dev/null; then
    pass=$((pass+1)); echo "PASS(fail): $name [$want]"
  else
    fail=$((fail+1)); echo "FAIL(fail): [$want] not found in $lst"
  fi
}

mkdir -p gen_ssa
expect_run t_minimal.mod 0
expect_run t_exit.mod 7
expect_run t_arith.mod 25
expect_run showcase1.mod 50
expect_run t_types.mod 8
expect_run showcase2.mod 71
expect_run t_if.mod 25
expect_run t_while.mod 55
expect_run t_repeat.mod 55
expect_run t_loop.mod 55
expect_run t_for.mod 85
expect_run t_case.mod 103
expect_run t_setcase.mod 42
expect_run t_varsame.mod 42
expect_run t_bareproc.mod 42
expect_run t_variantext.mod 42
expect_run t_bool.mod 42
expect_run t_real.mod 31
expect_run t_lfloat.mod 42
expect_run t_array.mod 108
expect_run t_multidim.mod 42
expect_run t_multidim_local.mod 42
expect_run t_open2d.mod 42
expect_run t_open2d_high.mod 42
expect_run t_open2d_size.mod 42
expect_run t_open1d_size_adr.mod 42
expect_run t_open_row_adr.mod 42
expect_run t_record_multidim.mod 42
expect_run t_record_multidim_ctor.mod 42
expect_run t_record_multidim_const.mod 42
expect_run t_record_multidim_arrctor.mod 42
expect_run t_open2d_adr.mod 42
expect_run t_open2d_value.mod 42
expect_run t_open3d.mod 42
expect_run t_open3d_row.mod 42
expect_run t_open_row_to_1d.mod 42
expect_run t_open_flatten_byte.mod 42
expect_run t_open2d_nested.mod 42
expect_run t_subrange.mod 42
expect_run t_emptychar.mod 42
expect_run t_system.mod 42
expect_run t_proctype2.mod 42
expect_run t_byte.mod 42
expect_run t_word16.mod 42
expect_run t_packedset.mod 42
expect_run t_ptrchain.mod 42
expect_run t_finally.mod 43
expect_run t_finally_return.mod 43
expect_run t_finally_except.mod 42
expect_run t_finally_local.mod 43
expect_run t_except_parse.mod 42
expect_run t_except_throw.mod 42
expect_run t_except_retry.mod 42
expect_run t_except_return.mod 43
expect_run t_except_nested.mod 42
expect_run t_except_module.mod 42
expect_run t_except_signal.mod 42
expect_fail t_retry_bad.mod "RETRY outside EXCEPT"
expect_run t_smallgaps.mod 42
expect_run t_ctor1.mod 0
expect_run t_ctor2.mod 0
expect_run t_ctor3.mod 0
expect_run t_ctor4.mod 0
expect_run t_ctor5.mod 0
expect_run t_ctor6.mod 0
expect_run t_ctor7.mod 42
expect_run t_minmax.mod 42
expect_run t_minmax2.mod 42
expect_run t_setops.mod 42
expect_run t_ptrfwd.mod 42
expect_run t_libc.mod 42
expect_run t_libc2.mod 42
expect_run t_variant2.mod 42
expect_run t_addrptr.mod 42
expect_run t_nestedmod.mod 42
expect_run t_nestidx.mod 42
expect_run t_proctype.mod 42
expect_run t_compat.mod 42
expect_run t_constfold.mod 42
expect_run t_resultsfx.mod 42
expect_run t_coroutine.mod 42
expect_fail t_fwdvar.mod "undeclared identifier"
expect_fail t_fwdsel.mod "undeclared identifier"
expect_fail t_fwdprop.mod "undeclared identifier"
expect_run t_fwdproc.mod 7
expect_run t_fwdok.mod 42
expect_run t_emptystat.mod 42
expect_run t_highlen.mod 18
expect_run t_builtins.mod 42
expect_run t_long.mod 42
expect_run t_truncfloat.mod 42
expect_run t_enumidx.mod 42
expect_run t_setenum.mod 42
expect_run t_setconst.mod 42
expect_run t_constbuiltin.mod 42
expect_run t_constreal.mod 42
expect_run t_constlong.mod 42
expect_run t_procaddr.mod 42
expect_run t_convert.mod 42
expect_run t_builtinname.mod 42
expect_run t_setword.mod 42
expect_run t_procval.mod 42
expect_run t_real64.mod 42
expect_run t_shiftneg.mod 42
expect_run t_unicode.mod 31
expect_run t_charbounds.mod 3
expect_run t_record.mod 160
expect_run t_recarr.mod 42
expect_run t_recptr.mod 42
expect_run t_nestarr.mod 42
expect_run t_arrrecfld.mod 42
expect_run t_arrrecbig.mod 42
expect_run t_stmtsfx.mod 42
expect_run t_retrec.mod 42
expect_run t_retmeth.mod 42
expect_run t_chain.mod 42
expect_run t_goto.mod 42
expect_fail t_gotobad.mod "undeclared identifier"
expect_run t_under.mod 42
expect_run t_with.mod 114
expect_run t_set.mod 131
expect_run t_setchar.mod 77
expect_run t_setrange.mod 55
expect_run t_classmethod.mod 7
expect_run t_classinherit.mod 7
expect_run t_virtual.mod 3
expect_run t_valconv.mod 15
expect_run t_conv.mod 42
expect_run t_convconst.mod 42
expect_run t_classsibling.mod 7
expect_run t_classinit.mod 42
expect_run t_class.mod 0
expect_run t_longline.mod 0
expect_fail t_bad_parent.mod "undeclared identifier"
expect_run showcase3.mod 183
expect_run showcase4.mod 44
expect_fail showcase5.mod "not supported yet"
expect_run showcase6.mod 34
expect_run showcase7.mod 219
expect_run showcase8.mod 170
expect_run showcase9.mod 140
expect_run showcase10.mod 86
expect_run t_pointer.mod 42
expect_run t_ptrarray.mod 15
expect_run t_ptrrec.mod 15
expect_run t_ptrnest.mod 10
expect_fail t_opaqueptr.mod ""
expect_run t_enumdecl.mod 0
expect_run t_enum.mod 15
expect_run t_strcat.mod 63
expect_run t_charcat.mod 15
expect_run t_variant.mod 31
expect_run t_ustrassign.mod 63
expect_run t_ustrformal.mod 3
expect_run t_ustrcat.mod 63
expect_run t_proc.mod 0
expect_run t_forward.mod 0
expect_run t_call.mod 125
expect_run t_varpar.mod 40
expect_run t_mutual.mod 11
expect_run t_withfield.mod 13
expect_run t_valarray.mod 6
expect_run t_openarr.mod 7
expect_run t_nestedproc.mod 20
expect_run t_nestdeep.mod 211
expect_run t_nestrec.mod 15
expect_fail t_bad_undecl.mod "undeclared identifier"
expect_fail t_bad_dup.mod "duplicate identifier"
expect_fail t_bad_mismatch.mod "module name mismatch"
expect_fail t_bad_opaque.mod "opaque type outside definition"
expect_fail t_bad_while.mod "BOOLEAN condition required"
expect_fail t_bad_exit.mod "not supported yet"
expect_fail t_bad_return.mod "bad RETURN"
expect_fail t_bad_for.mod "FOR needs integer variable and bounds"
expect_fail t_bad_mixed.mod "incompatible assignment"
expect_fail t_bad_fwd.mod "incompatible assignment"
expect_fail t_bad_nestfwd.mod "undeclared identifier"
expect_fail t_fwdtype.mod "undeclared identifier"
expect_fail t_fwdset.mod "undeclared identifier"
expect_fail t_manyproc.mod "not supported yet"
expect_fail t_bad_overlong.mod "invalid UTF-8"
expect_fail t_bad_surrogate.mod "invalid UTF-8"
expect_fail t_bad_utf8big.mod "invalid UTF-8"
expect_fail t_bad_truncutf.mod "invalid UTF-8"
expect_fail t_bad_arity.mod "invalid call"
expect_fail t_bad_actual.mod "invalid call"
expect_fail t_bad_funstmt.mod "invalid call"
expect_fail t_bad_deref.mod "not a POINTER type"
expect_fail t_bad_new.mod "not a POINTER type"
expect_fail t_bad_field.mod "unknown field"
expect_fail t_bad_with.mod "not a RECORD type"
expect_fail t_bad_recassign.mod "incompatible assignment"
expect_fail t_bad_setelem.mod "set operand mismatch"
expect_fail t_bad_setbase.mod "not supported yet"
expect_fail t_bad_setconst.mod "not supported yet"
expect_fail t_bad_in.mod "set operand mismatch"
expect_fail t_bad_index.mod "array index must be integer"
expect_fail t_bad_bounds.mod "not supported yet"
expect_fail t_bad_varbound.mod "not supported yet"
expect_fail t_bad_manydims.mod "not supported yet"
expect_run t_openformal.mod 0
expect_run t_valopen.mod 15
expect_fail t_bad_open.mod "not supported yet"

expect_trap() {
  # $1 = test file — must parse, assemble, link, then abort (rc=134)
  name="$1"; mod=$(modof "$name")
  rm -f "gen_ssa/$mod.ssa" "gen_ssa/$mod.s" "gen_ssa/$mod"
  if ./M2 "tests/$name" 2>&1 | grep -q "Parsed correctly"; then :; else
    fail=$((fail+1)); echo "FAIL(trap): $name rejected"; return
  fi
  if ! qbe -o "gen_ssa/$mod.s" "gen_ssa/$mod.ssa" 2> "gen_ssa/$mod.qbeerr"; then
    fail=$((fail+1)); echo "FAIL(trap): $name qbe"; return
  fi
  if ! cc "gen_ssa/$mod.s" "$SHIM" -o "gen_ssa/$mod" 2> "gen_ssa/$mod.ccerr"; then
    fail=$((fail+1)); echo "FAIL(trap): $name cc"; return
  fi
  timeout 10 "gen_ssa/$mod" > /dev/null 2>&1; got=$?
  if [ "$got" = "134" ]; then
    pass=$((pass+1)); echo "PASS(trap): $name -> abort"
  else
    fail=$((fail+1)); echo "FAIL(trap): $name rc=$got want 134"
  fi
}

expect_trap t_trap_index.mod
expect_trap t_trap_range.mod
expect_trap t_trap_range_arg.mod
expect_trap t_trap_range_ret.mod
expect_run t_strtrunc.mod 42
expect_trap t_trap_setspan.mod
expect_run t_strempty.mod 42
expect_trap t_trap_chr8.mod
expect_trap t_except_unhandled.mod
expect_trap t_trap_funcret.mod
expect_fail t_defunit.mod ""
expect_fail t_implunit.mod ""
expect_run t_nested.mod 42

# --- separate compilation (step 4.3): $1 prog module, $2 exit code,
#     then the session's source files (program last by convention) ---

# Build a session image; echoes 0 on success, non-zero on failure.
build_session() {
  prog="$1"; shift
  files=""
  for f in "$@"; do
    case "$f" in */*) files="$files $f";; *) files="$files tests/$f";; esac
  done
  rm -f "gen_ssa/$prog.ssa" "gen_ssa/$prog.s" "gen_ssa/$prog"
  if ./M2 $files 2>&1 | grep -q "Parsed correctly"; then :; else
    echo "rejected"; return 1
  fi
  [ -f "gen_ssa/$prog.ssa" ] || { echo "no image"; return 1; }
  qbe -o "gen_ssa/$prog.s" "gen_ssa/$prog.ssa" 2> "gen_ssa/$prog.qbeerr" \
    || { echo "qbe"; cat "gen_ssa/$prog.qbeerr"; return 1; }
  cc "gen_ssa/$prog.s" "$SHIM" -o "gen_ssa/$prog" -lm 2> "gen_ssa/$prog.ccerr" \
    || { echo "cc"; cat "gen_ssa/$prog.ccerr"; return 1; }
  return 0
}

expect_run_files() {
  prog="$1"; want="$2"; shift 2
  if ! build_session "$prog" "$@"; then
    fail=$((fail+1)); echo "FAIL(session): $prog $? ($(build_session "$prog" "$@" 2>&1))"; return
  fi
  timeout 10 "gen_ssa/$prog" > /dev/null 2>&1; got=$?
  if [ "$got" = "$want" ]; then
    pass=$((pass+1)); echo "PASS(session): $prog -> $got"
  else
    fail=$((fail+1)); echo "FAIL(session): $prog got $got want $want"
  fi
}

expect_run_files_out() {
  # $1 prog, $2 exit code, $3 expected first output line, then files
  prog="$1"; want="$2"; wantline="$3"; shift 3
  if ! build_session "$prog" "$@"; then
    fail=$((fail+1)); echo "FAIL(session-out): $prog build failed"; return
  fi
  out=$(timeout 10 "gen_ssa/$prog" 2>/dev/null); got=$?
  first=$(printf '%s\n' "$out" | head -n 1)
  if [ "$got" = "$want" ] && [ "$first" = "$wantline" ]; then
    pass=$((pass+1)); echo "PASS(session-out): $prog -> $got [$first]"
  else
    fail=$((fail+1)); echo "FAIL(session-out): $prog rc=$got line=[$first] want=[$wantline]"
  fi
}

expect_run_files DBasicProg 49 d_basic.def d_basic.mod d_basic_prog.mod
expect_run_files CForeignProg 42 c_foreign.def c_foreign.mod c_foreign_prog.mod
expect_run_files EEnumProg 42 e_enum.def e_enum_re.def e_enum_prog.mod
expect_run_files TClassDefProg 8 t_classdef.def t_classdef_prog.mod
expect_run_files DQualProg 46 d_basic.def d_basic.mod d_qual_prog.mod
expect_run_files DTypesProg 36 d_types.def d_types.mod d_types_prog.mod
expect_run_files DOpaqueProg 55 d_opaque.def d_opaque.mod d_opaque_prog.mod
expect_run_files TString 42 d_string.def d_string.mod t_string.mod
expect_run_files FioProg 42 ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../runtime/syslib/FileIO.def ../runtime/syslib/FileIO.mod fio_prog.mod
expect_run_files StorageProg 42 ../lib/common/storage.def ../lib/common/storage.mod storage_prog.mod
expect_run_files TSysClock 42 ../lib/iso/sysclock.def ../lib/iso/sysclock.mod t_sysclock.mod
expect_run_files TExceptLib 42 \
  ../runtime/syslib/SysExceptions.def \
  ../runtime/syslib/SysExceptions.mod \
  ../lib/iso/m2exception.def ../lib/iso/m2exception.mod \
  ../lib/iso/exceptions.def ../lib/iso/exceptions.mod \
  t_except_lib.mod
expect_run_files TExceptTrap 42 \
  ../runtime/syslib/SysExceptions.def \
  ../runtime/syslib/SysExceptions.mod \
  ../lib/iso/m2exception.def ../lib/iso/m2exception.mod \
  t_except_trap.mod
expect_run_files TExceptCase 42 \
  ../runtime/syslib/SysExceptions.def \
  ../runtime/syslib/SysExceptions.mod \
  ../lib/iso/m2exception.def ../lib/iso/m2exception.mod \
  t_except_case.mod
expect_run_files TExceptFuncret 42 \
  ../runtime/syslib/SysExceptions.def \
  ../runtime/syslib/SysExceptions.mod \
  ../lib/iso/m2exception.def ../lib/iso/m2exception.mod \
  t_except_funcret.mod
expect_run_files_out FinallyOrder 0 "P!B!A!" \
  f_order_a.def f_order_a.mod f_order_b.def f_order_b.mod \
  finally_order.mod
expect_run_files TAst 42 \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../runtime/syslib/FileIO.def ../runtime/syslib/FileIO.mod \
  src/AST.def src/AST.mod \
  t_ast.mod
expect_run_files GenericProg 42 \
  g_ident.def g_ident.mod g_intid.def g_intid.mod g_prog.mod
expect_run_files PairProg 73 \
  g_pair.def g_pair.mod g_intchar.def g_intchar.mod g_pair_prog.mod
expect_run_files BufProg 42 \
  g_buf.def g_buf.mod g_buf10.def g_buf10.mod g_bufprog.mod
expect_run_files SortProg 3 \
  g_cmp.def g_cmp.mod g_sort.def g_sort.mod g_isort.def g_isort.mod g_sortprog.mod
expect_run_files OrdProg 42 \
  g_ordbox.def g_ordbox.mod g_intbox.def g_intbox.mod g_ordprog.mod
expect_run_files GWrapProg 42 \
  g_ordbox.def g_ordbox.mod g_intbox.def g_intbox.mod \
  g_wrap.def g_wrap.mod g_wrapb.def g_wrapb.mod g_wrapprog.mod
expect_run_files GCBoxProg 42 \
  g_gcbox.def g_gcbox.mod g_gcint.def g_gcint.mod g_gcprog.mod
expect_run_files GStkProg 42 \
  g_gstk.def g_gstk.mod g_gstki.def g_gstki.mod g_gstkp.mod
expect_run_files GTwiceProg 42 \
  g_twice.def g_twice.mod g_twice_i.def g_twice_i.mod \
  g_twice_c.def g_twice_c.mod g_twice_p.mod
expect_run_files TByteBuf 62 t_bytebuf.mod
expect_run_files TStreamFile 42 \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../runtime/syslib/FileIO.def ../runtime/syslib/FileIO.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  ../lib/iso/chanconsts.def ../lib/iso/chanconsts.mod \
  ../lib/iso/streamfile.def ../lib/iso/streamfile.mod \
  t_streamfile.mod
expect_run_files TPimIO 42 \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../lib/pim/inout.def ../lib/pim/inout.mod \
  ../lib/pim/strio.def ../lib/pim/strio.mod \
  ../lib/pim/numberio.def ../lib/pim/numberio.mod \
  ../lib/iso/realio.def ../lib/iso/realio.mod \
  ../lib/pim/realinout.def ../lib/pim/realinout.mod \
  ../lib/pim/fpuio.def ../lib/pim/fpuio.mod \
  t_pimio.mod
expect_run_files WrapProg 42 \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  ../lib/iso/stdchans.def ../lib/iso/stdchans.mod \
  ../lib/gm2/timestring.def ../lib/gm2/timestring.mod \
  ../lib/gm2/wrapclock.def ../lib/gm2/wrapclock.mod \
  ../lib/gm2/wraptime.def ../lib/gm2/wraptime.mod \
  ../lib/gm2/wrapc.def ../lib/gm2/wrapc.mod \
  wrapprog.mod
expect_run_files_out Showcase23 35 "list: 5 10 20" \
  ../lib/common/sysio.def ../lib/common/sysio.mod \
  showcase23lib.def showcase23lib.mod \
  showcase23int.def showcase23int.mod \
  showcase23vis.def showcase23vis.mod showcase23.mod
expect_run_files_out Showcase24 42 "showcase24 total=42" \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  ../lib/common/strings.def ../lib/common/strings.mod \
  ../lib/common/math.def ../lib/common/math.mod \
  showcase24stack.def showcase24stack.mod \
  showcase24int.def showcase24int.mod \
  showcase24pair.def showcase24pair.mod \
  showcase24pic.def showcase24pic.mod \
  showcase24util.def showcase24util.mod \
  showcase24.mod
expect_run_files TImportProc 7 pvi.def pvi.mod t_importproc.mod
expect_run_files_out Showcase22 42 "showcase22 total=42" \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  ../lib/iso/stdchans.def ../lib/iso/stdchans.mod \
  ../lib/gm2/timestring.def ../lib/gm2/timestring.mod \
  ../lib/gm2/wrapclock.def ../lib/gm2/wrapclock.mod \
  ../lib/gm2/wraptime.def ../lib/gm2/wraptime.mod \
  ../lib/gm2/wrapc.def ../lib/gm2/wrapc.mod \
  showcase22.mod
expect_run_files Library1 42 \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../lib/iso/convtypes.def ../lib/iso/convtypes.mod \
  ../lib/iso/ioconsts.def ../lib/iso/ioconsts.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  ../lib/common/math.def ../lib/common/math.mod \
  ../lib/iso/sioresult.def ../lib/iso/sioresult.mod \
  ../lib/iso/TERMINATION.def ../lib/iso/TERMINATION.mod \
  ../lib/iso/wholestr.def ../lib/iso/wholestr.mod \
  ../lib/iso/realstr.def ../lib/iso/realstr.mod \
  ../lib/iso/longstr.def ../lib/iso/longstr.mod \
  ../lib/iso/longmath.def ../lib/iso/longmath.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  ../lib/iso/longio.def ../lib/iso/longio.mod \
  ../lib/pim/strio.def ../lib/pim/strio.mod \
  ../lib/pim/inout.def ../lib/pim/inout.mod \
  ../lib/gm2/stdio.def ../lib/gm2/stdio.mod \
  ../lib/iso/stextio.def ../lib/iso/stextio.mod \
  ../lib/iso/swholeio.def ../lib/iso/swholeio.mod \
  ../lib/iso/srealio.def ../lib/iso/srealio.mod \
  library1.mod
expect_run_files TDynStr 42 \
  ../lib/gm2/dynamicstrings.def ../lib/gm2/dynamicstrings.mod \
  ../lib/gm2/sysstorage.def ../lib/gm2/sysstorage.mod \
  t_dynstr.mod
expect_run_files ClashProg 60 d_clash_a.def d_clash_a.mod d_clash_b.def d_clash_b.mod d_clash_prog.mod
expect_run_files_out Hello 0 "Hello, Modula-2!" ../lib/common/sysio.def ../lib/common/sysio.mod hello.mod
expect_run_files_out StringsProg 0 "Hello World" ../lib/common/sysio.def ../lib/common/sysio.mod ../lib/common/strings.def ../lib/common/strings.mod strings_prog.mod
expect_run_files StringsSliceProg 255 ../lib/common/strings.def ../lib/common/strings.mod strings_slice_prog.mod
expect_run_files_out Stdlib2Prog 42 "stdlib2 n=42" ../lib/common/sysio.def ../lib/common/sysio.mod ../lib/common/math.def ../lib/common/math.mod ../lib/common/strings.def ../lib/common/strings.mod ../lib/common/charclass.def ../lib/common/charclass.mod stdlib2_prog.mod
expect_run_files MathProg 12 ../lib/common/sysio.def ../lib/common/sysio.mod ../lib/common/math.def ../lib/common/math.mod math_prog.mod
expect_run_files Math2Prog 31 ../lib/common/math.def ../lib/common/math.mod math2_prog.mod
expect_run_files SysClockProg 3 ../lib/iso/sysclock.def ../lib/iso/sysclock.mod sysclock_prog.mod
expect_run_files Utf8Prog 127 ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod utf8_prog.mod
expect_run_files ConvProg 127 ../lib/iso/conversions.def ../lib/iso/conversions.mod conv_prog.mod
expect_run_files ConvResultsProg 127 ../lib/iso/conversions.def ../lib/iso/conversions.mod convresults_prog.mod
expect_run_files TStrEq 15 t_streq.mod
expect_run_files ProgArgsProg 7 ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/iso/programargs.def ../lib/iso/programargs.mod progargs_prog.mod
expect_run_files_out UTextProg 42 "héllo" ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod ../lib/iso/textio.def ../lib/iso/textio.mod utext_prog.mod

expect_run_files_in() {
  # $1 prog, $2 exit code, $3 expected first line, $4 stdin, then files
  prog="$1"; want="$2"; wantline="$3"; input="$4"; shift 4
  if ! build_session "$prog" "$@"; then
    fail=$((fail+1)); echo "FAIL(session-in): $prog build failed"; return
  fi
  out=$(printf '%s\n' "$input" | timeout 10 "gen_ssa/$prog" 2>/dev/null); got=$?
  first=$(printf '%s\n' "$out" | head -n 1)
  if [ "$got" = "$want" ] && [ "$first" = "$wantline" ]; then
    pass=$((pass+1)); echo "PASS(session-in): $prog -> $got [$first]"
  else
    fail=$((fail+1)); echo "FAIL(session-in): $prog rc=$got line=[$first] want=[$wantline]"
  fi
}

expect_run_files_in ReadProg 0 "42" "20 22" ../lib/common/sysio.def ../lib/common/sysio.mod read_prog.mod
expect_run_files_in WholeIOProg 0 "42" "6 7" ../lib/common/sysio.def ../lib/common/sysio.mod ../lib/iso/wholeio.def ../lib/iso/wholeio.mod wholeio_prog.mod
expect_run_files_in RealProg 42 "3.500000E+00" "1.25" ../lib/iso/realio.def ../lib/iso/realio.mod ../lib/common/sysio.def ../lib/common/sysio.mod realio_prog.mod
expect_run_files_in IOChanProg 0 "hello 42" "Z" ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod iochan_prog.mod
rm -f gen_ssa/_iochan_tmp.txt
expect_run_files IOChanFileProg 3 ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/common/strings.def ../lib/common/strings.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod iochanfile_prog.mod
rm -f gen_ssa/_iochan_tmp.txt
rm -f gen_ssa/_iochanseek.txt
expect_run_files IOChanSeekProg 15 ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/common/strings.def ../lib/common/strings.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod iochanseek_prog.mod
rm -f gen_ssa/_iochanseek.txt
expect_run_files FilesProg 42 ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod ../lib/iso/files.def ../lib/iso/files.mod files_prog.mod
expect_run_files TBadFile 42 ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod ../lib/iso/files.def ../lib/iso/files.mod t_badfile.mod
rm -f gen_ssa/_files_tmp.txt
expect_run_files_in Showcase11 80 "Modula-2" "42" \
  ../lib/common/sysio.def ../lib/common/sysio.mod \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/wholeio.def ../lib/iso/wholeio.mod \
  ../lib/common/strings.def ../lib/common/strings.mod \
  ../lib/common/math.def ../lib/common/math.mod \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod ../lib/iso/files.def ../lib/iso/files.mod \
  showcase11.mod
rm -f gen_ssa/_showcase11.txt
# step 8.2/8.3: const folding, forward types, trailing ';', empty
# statements, 1-char strings, qualified type names.
expect_run_files Showcase12 42 showcase12lib.def showcase12lib.mod showcase12.mod
expect_run_files_out Showcase13 42 "Even(8)=T Odd(7)=T total=42" ../lib/common/sysio.def ../lib/common/sysio.mod showcase13.mod
expect_run_files_out Showcase19 42 "showcase19 total=42" \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  showcase19.mod
expect_run_files_out Showcase20 42 "showcase20 total=42" \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  showcase20.mod
expect_run_files_out Showcase21 42 "showcase21 total=42" \
  ../lib/iso/convtypes.def ../lib/iso/convtypes.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  ../lib/common/math.def ../lib/common/math.mod \
  ../lib/iso/wholestr.def ../lib/iso/wholestr.mod \
  ../lib/iso/realstr.def ../lib/iso/realstr.mod \
  ../lib/iso/longmath.def ../lib/iso/longmath.mod \
  ../lib/gm2/dynamicstrings.def ../lib/gm2/dynamicstrings.mod \
  ../lib/pim/strio.def ../lib/pim/strio.mod \
  showcase21.mod
expect_run_files_out Showcase18 42 "showcase18 areas sum=139" \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  showcase18.mod
expect_run_files_out Showcase17 42 "showcase17 total=42" \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  showcase17.mod
rm -f gen_ssa/_showcase16.txt
expect_run_files_out Showcase16 42 "showcase16: id=3 total=42" \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  ../lib/iso/files.def ../lib/iso/files.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/common/strings.def ../lib/common/strings.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  showcase16.mod
rm -f gen_ssa/_showcase16.txt
rm -f gen_ssa/_showcase15.txt
expect_run_files_out Showcase15 42 "read back: point 42" \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/common/strings.def ../lib/common/strings.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  showcase15lib.def showcase15lib.mod showcase15.mod
rm -f gen_ssa/_showcase15.txt
expect_run_files_out Showcase14 42 "showcase14 n=42" \
  ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod \
  ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod \
  ../lib/common/sysio.def ../lib/common/sysio.mod \
  ../lib/iso/textio.def ../lib/iso/textio.mod \
  ../lib/iso/conversions.def ../lib/iso/conversions.mod \
  ../lib/iso/realio.def ../lib/iso/realio.mod \
  ../lib/iso/programargs.def ../lib/iso/programargs.mod \
  ../lib/iso/iochan.def ../lib/iso/iochan.mod \
  showcase14.mod
expect_run_files_out MixProg 0 "7" ../runtime/syslib/Utf8.def ../runtime/syslib/Utf8.mod ../lib/iso/textio.def ../lib/iso/textio.mod ../lib/common/sysio.def ../lib/common/sysio.mod ../runtime/syslib/SysShim.def ../runtime/syslib/SysShim.mod ../lib/iso/iochan.def ../lib/iso/iochan.mod ../lib/iso/files.def ../lib/iso/files.mod d_mix_prog.mod
rm -f gen_ssa/_mix.txt

expect_fail_files() {
  # $1 = listing basename, $2 = message (may be empty), then files
  lst="$1"; want="$2"; shift 2
  files=""
  for f in "$@"; do files="$files tests/$f"; done
  if ./M2 $files 2>&1 | grep -q "Incorrect source"; then :; else
    fail=$((fail+1)); echo "FAIL(session-rej): $lst accepted"; return
  fi
  if [ -z "$want" ]; then
    pass=$((pass+1)); echo "PASS(session-rej): $lst"
  elif grep -q "$want" "tests/$lst.LST" 2>/dev/null; then
    pass=$((pass+1)); echo "PASS(session-rej): $lst [$want]"
  else
    fail=$((fail+1)); echo "FAIL(session-rej): [$want] not in tests/$lst.LST"
  fi
}

expect_fail_files d_badimp_prog "undeclared identifier" d_basic.def d_basic.mod d_badimp_prog.mod
expect_fail_files sig "implementation does not match definition" sig.def sig.mod sig_prog.mod
expect_fail_files g_badbuf "invalid call" g_buf.def g_buf.mod g_badbuf.def
expect_fail_files g_realbox "invalid call" g_ordbox.def g_ordbox.mod g_realbox.def

# --- two-phase parse gate.  Deferral is now the DEFAULT (procedure
#     bodies are parsed after the unit's declarations); -notwophase
#     restores the old inline parse for debugging.  Forward-free code
#     must be byte-identical either way; forward-reference code must
#     still work. ---
twophase_same() {
  # $1 = test file (no dir): default (deferral) vs -notwophase inline
  name="$1"; mod=$(modof "$name")
  rm -f "gen_ssa/$mod.ssa" "gen_ssa/$mod.off.ssa"
  ./M2 -notwophase "tests/$name" >/dev/null 2>&1
  cp "gen_ssa/$mod.ssa" "gen_ssa/$mod.off.ssa"
  if ./M2 "tests/$name" 2>&1 | grep -q "twophase .*mismatch"; then
    fail=$((fail+1)); echo "FAIL(twophase): $name probe mismatch"; return
  fi
  if cmp -s "gen_ssa/$mod.off.ssa" "gen_ssa/$mod.ssa"; then
    pass=$((pass+1)); echo "PASS(twophase): $name identical"
  else
    fail=$((fail+1)); echo "FAIL(twophase): $name .ssa differs"
  fi
  rm -f "gen_ssa/$mod.off.ssa"
}

twophase_same t_nestedproc.mod
twophase_same t_classmethod.mod

# Forward references compile *differently* with deferral than with the
# legacy FwdVar path (the deferral makes them ordinary, so the codegen is
# the normal one) — that is the point.  Gate them functionally: same exit
# code, and the forward diagnostic still fires.
twophase_run() {
  # $1 = test file, $2 = expected exit code
  name="$1"; want="$2"; mod=$(modof "$name")
  rm -f "gen_ssa/$mod.ssa" "gen_ssa/$mod.s" "gen_ssa/$mod"
  if ./M2 "tests/$name" 2>&1 | grep -q "Parsed correctly"; then :; else
    fail=$((fail+1)); echo "FAIL(twophase-run): $name rejected"; return
  fi
  qbe -o "gen_ssa/$mod.s" "gen_ssa/$mod.ssa" 2>/dev/null || { fail=$((fail+1)); echo "FAIL(twophase-run): $name qbe"; return; }
  cc "gen_ssa/$mod.s" "$SHIM" -o "gen_ssa/$mod" 2>/dev/null || { fail=$((fail+1)); echo "FAIL(twophase-run): $name cc"; return; }
  timeout 10 "gen_ssa/$mod" >/dev/null 2>&1; got=$?
  if [ "$got" = "$want" ]; then pass=$((pass+1)); echo "PASS(twophase-run): $name -> $got"
  else fail=$((fail+1)); echo "FAIL(twophase-run): $name got $got want $want"; fi
}

twophase_fail() {
  # $1 = test file, $2 = message expected in the .LST
  name="$1"; want="$2"
  if ./M2 "tests/$name" 2>&1 | grep -q "Incorrect source"; then :; else
    fail=$((fail+1)); echo "FAIL(twophase-fail): $name accepted"; return
  fi
  if grep -q "$want" "tests/$(basename "$name" .mod).LST" 2>/dev/null; then
    pass=$((pass+1)); echo "PASS(twophase-fail): $name [$want]"
  else fail=$((fail+1)); echo "FAIL(twophase-fail): [$want] not found"; fi
}

twophase_fail t_fwdvar.mod "undeclared identifier"
twophase_fail t_fwdsel.mod "undeclared identifier"
twophase_fail t_fwdprop.mod "undeclared identifier"
twophase_fail t_bad_fwd.mod "undeclared identifier"

# --- separate compilation: compile one unit against .def interfaces,
#     link objects with cc; library objects must not define main. ---
sep_compile() {
  # $1 = module name, $2 = target source, rest = interface files
  mod="$1"; target="$2"; shift 2
  rm -f "gen_ssa/$mod.ssa" "gen_ssa/$mod.s" "gen_ssa/$mod.o"
  if ! ./M2 -c "$@" "$target" 2>&1 | grep -q "Parsed correctly"; then
    return 1
  fi
  [ -f "gen_ssa/$mod.ssa" ] || return 1
  qbe -o "gen_ssa/$mod.s" "gen_ssa/$mod.ssa" 2> "gen_ssa/$mod.qbeerr" || return 1
  cc -c "gen_ssa/$mod.s" -o "gen_ssa/$mod.o" 2> "gen_ssa/$mod.ccerr" || return 1
  return 0
}

expect_separate() {
  # $1 = program module, $2 = expected exit code, $3 = library module,
  # $4 = library def, $5 = library mod, $6 = program source
  prog="$1"; want="$2"; lib="$3"; ldef="$4"; lmod="$5"; psrc="$6"
  if ! sep_compile "$lib" "tests/$lmod" "tests/$ldef"; then
    fail=$((fail+1)); echo "FAIL(separate): $lib compile"; return
  fi
  if grep -q '\$main' "gen_ssa/$lib.ssa"; then
    fail=$((fail+1)); echo "FAIL(separate): $lib defines main"; return
  fi
  if ! sep_compile "$prog" "tests/$psrc" "tests/$ldef"; then
    fail=$((fail+1)); echo "FAIL(separate): $prog compile"; return
  fi
  if ! grep -q '\$main' "gen_ssa/$prog.ssa"; then
    fail=$((fail+1)); echo "FAIL(separate): $prog has no main"; return
  fi
  if ! cc "gen_ssa/$prog.o" "gen_ssa/$lib.o" "$SHIM"        -o "gen_ssa/$prog" -lm 2> "gen_ssa/$prog.ccerr"; then
    fail=$((fail+1)); echo "FAIL(separate): $prog link"; cat "gen_ssa/$prog.ccerr"; return
  fi
  timeout 10 "gen_ssa/$prog" >/dev/null 2>&1; got=$?
  if [ "$got" = "$want" ]; then
    pass=$((pass+1)); echo "PASS(separate): $prog -> $got"
  else
    fail=$((fail+1)); echo "FAIL(separate): $prog got $got want $want"
  fi
}

expect_separate SepProg 42 SepLib sep_lib.def sep_lib.mod sep_prog.mod
expect_separate SepEmptyProg 42 SepEmpty sep_empty.def sep_empty.mod sep_empty_prog.mod

# M2 -c -I: resolve the target's own .def and imports from the include path.
sep_compile_auto() {
  # $1 = module, $2 = source
  mod="$1"; target="$2"
  rm -f "gen_ssa/$mod.ssa" "gen_ssa/$mod.s" "gen_ssa/$mod.o"
  ./M2 -c -I tests "tests/$target" 2>&1 | grep -q "Parsed correctly" || return 1
  [ -f "gen_ssa/$mod.ssa" ] || return 1
  qbe -o "gen_ssa/$mod.s" "gen_ssa/$mod.ssa" 2>/dev/null || return 1
  cc -c "gen_ssa/$mod.s" -o "gen_ssa/$mod.o" 2>/dev/null || return 1
}

expect_separate_auto() {
  # $1 = program module, $2 = expected exit code, $3 = library module,
  # $4 = library source, $5 = program source
  prog="$1"; want="$2"; lib="$3"; lsrc="$4"; psrc="$5"
  if ! sep_compile_auto "$lib" "$lsrc"; then
    fail=$((fail+1)); echo "FAIL(separate-I): $lib compile"; return
  fi
  if ! sep_compile_auto "$prog" "$psrc"; then
    fail=$((fail+1)); echo "FAIL(separate-I): $prog compile"; return
  fi
  if ! cc "gen_ssa/$prog.o" "gen_ssa/$lib.o" "$SHIM"        -o "gen_ssa/$prog" -lm 2> "gen_ssa/$prog.ccerr"; then
    fail=$((fail+1)); echo "FAIL(separate-I): $prog link"; cat "gen_ssa/$prog.ccerr"; return
  fi
  timeout 10 "gen_ssa/$prog" >/dev/null 2>&1; got=$?
  if [ "$got" = "$want" ]; then
    pass=$((pass+1)); echo "PASS(separate-I): $prog -> $got"
  else
    fail=$((fail+1)); echo "FAIL(separate-I): $prog got $got want $want"
  fi
}

expect_separate_auto SepResProg 42 SepRes sepres.mod sepres_prog.mod
expect_separate_auto CDefProg 8 CDef cdef.def cdef_prog.mod

# --- M2 process exit codes: 0 = ok, 1 = compile errors, 2 = usage/IO ---
check_exit() {
  # $1 = description, $2 = expected rc, rest = args
  desc="$1"; want="$2"; shift 2
  ./M2 "$@" >/dev/null 2>&1; got=$?
  if [ "$got" = "$want" ]; then pass=$((pass+1)); echo "PASS(exit): $desc -> $got"
  else fail=$((fail+1)); echo "FAIL(exit): $desc got $got want $want"; fi
}

check_exit "ok"          0 tests/t_minimal.mod
check_exit "errors"      1 tests/t_bad_undecl.mod
check_exit "no input"    2
check_exit "missing file" 2 /tmp/opencode/_m2_no_such_file_.mod

# --- step 7 gate: compiler sources free of gm2-only imports.
#     FileIO is the last module to port (see docs/summary_step7.md);
#     it is excluded here so the gate guards everything else. ---
if grep -qE "(IMPORT|FROM)[[:space:]]+.*\b(Environment|FileSysOp|TextIO|RawIO|WholeIO|IOChan|ProgramArgs)\b" \
     src/SymTab.def src/SymTab.mod src/QbeGen.def src/QbeGen.mod \
     src/M2S.mod src/M2P.mod src/M2.mod src/*.frm 2>/dev/null; then
  fail=$((fail+1)); echo "FAIL(gate): gm2-only imports present"
else
  pass=$((pass+1)); echo "PASS(gate): no gm2-only imports (FileIO port pending)"
fi

echo "--- $pass passed, $fail failed ---"
[ "$fail" -eq 0 ]