Add infrastructure to test embedding API.

test/api/main.c

@@ -0,0 +1,58 @@
+#include <stdio.h>
+#include <string.h>
+
+#include "io.h"
+#include "vm.h"
+#include "wren.h"
+
+#include "return_bool/return_bool.h"
+
+// The name of the currently executing API test.
+const char* testName;
+
+static WrenForeignMethodFn bindForeign(
+    WrenVM* vm, const char* module, const char* className,
+    bool isStatic, const char* signature)
+{
+  if (strcmp(module, "main") != 0) return NULL;
+
+  // For convenience, concatenate all of the method qualifiers into a single
+  // signature string.
+  char fullName[256];
+  fullName[0] = '\0';
+  if (isStatic) strcat(fullName, "static ");
+  strcat(fullName, className);
+  strcat(fullName, ".");
+  strcat(fullName, signature);
+
+  if (strcmp(testName, "return_bool") == 0)
+  {
+    return returnBoolBindForeign(fullName);
+  }
+
+  fprintf(stderr,
+      "Unknown foreign method '%s' for test '%s'\n", fullName, testName);
+  return NULL;
+}
+
+int main(int argc, const char* argv[])
+{
+  if (argc != 2)
+  {
+    fprintf(stderr, "Usage: wren <test>\n");
+    return 64; // EX_USAGE.
+  }
+
+  testName = argv[1];
+
+  // The test script is at "test/api/<test>/<test>.wren".
+  char testPath[256];
+  strcpy(testPath, "test/api/");
+  strcat(testPath, testName);
+  strcat(testPath, "/");
+  strcat(testPath, testName);
+  strcat(testPath, ".wren");
+
+  runFile(bindForeign, testPath);
+  return 0;
+}