1 files changed, 23 insertions, 0 deletions
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"
+  }
+
+}