From c156b07da6e8550f989919c3a015acdedfe8664f Mon Sep 17 00:00:00 2001 From: Roland Reichwein Date: Sun, 15 Oct 2023 13:26:32 +0200 Subject: Adjust to current build environment --- site.exp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 site.exp (limited to 'site.exp') diff --git a/site.exp b/site.exp new file mode 100644 index 0000000..1bd9310 --- /dev/null +++ b/site.exp @@ -0,0 +1,23 @@ +proc runtest_exit_code { test_name command_line exit_code } { + + exec ./mcc $command_line.cpp + + spawn $command_line + + expect eof + + exec rm $command_line + + lassign [wait] pid spawnid os_error_flag value + + if {$os_error_flag == 0} { + if {$value == $exit_code} { + pass "$test_name: Returned expected value $value" + } else { + fail "$test_name: Returned bad value $value, expected: $exit_code" + } + } else { + fail "$test_name: errno: $value" + } + +} -- cgit v1.2.3