| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- #!/bin/sh
- # Regression for M2comp step 2 (Coco/R + SymTab semantic analysis).
- # Usage: ./run_tests.sh (from the m2comp directory)
- pass=0; fail=0
- expect_ok() {
- if ./M2comp "$1" 2>&1 | grep -q "Parsed correctly"; then
- pass=$((pass+1)); echo "PASS(ok): $1"
- else
- fail=$((fail+1)); echo "FAIL(ok, rejected): $1"
- fi
- }
- expect_fail() {
- if ./M2comp "$1" 2>&1 | grep -q "Incorrect source"; then
- pass=$((pass+1)); echo "PASS(fail): $1"
- else
- fail=$((fail+1)); echo "FAIL(fail, accepted): $1"
- fi
- }
- expect_dump() {
- if ./M2comp "$1" 2>&1 | grep -q "$2"; then
- pass=$((pass+1)); echo "PASS(ast): $1 [$2]"
- else
- fail=$((fail+1)); echo "FAIL(ast): $1 [$2]"
- fi
- }
- expect_ok tests/ok_minimal.mod
- expect_ok tests/ok_proc.mod
- expect_ok tests/showcase.mod
- expect_fail tests/bad_mismatch.mod
- expect_fail tests/t_dup.mod
- expect_fail tests/t_undecl.mod
- expect_fail tests/t_assign.mod
- expect_fail tests/t_arith.mod
- expect_fail tests/t_bool.mod
- expect_fail tests/t_rel.mod
- expect_fail tests/t_cond.mod
- expect_fail tests/t_field.mod
- expect_fail tests/t_index.mod
- expect_fail tests/t_ptr.mod
- expect_fail tests/t_for.mod
- expect_fail tests/t_call.mod
- expect_fail tests/t_call2.mod
- expect_fail tests/t_return.mod
- expect_fail tests/t_exit.mod
- expect_dump tests/showcase.mod "Module Showcase"
- expect_dump tests/showcase.mod "Proc Work"
- expect_dump tests/showcase.mod "CallExpr"
- expect_dump tests/showcase.mod "Field q"
- expect_dump tests/showcase.mod "Int 255"
- expect_dump tests/ok_proc.mod "Proc P"
- echo "--- $pass passed, $fail failed ---"
- [ "$fail" -eq 0 ]
|
