glue tests are no longer hard-coded to Rust

crates/glue/src/CGlue.roc

@@ -0,0 +1,31 @@
+app [makeGlue] { pf: platform "../platform/main.roc" }
+
+import pf.Types exposing [Types]
+# import pf.Shape exposing [Shape, RocFn]
+import pf.File exposing [File]
+# import pf.TypeId exposing [TypeId]
+
+makeGlue : List Types -> Result (List File) Str
+makeGlue = \_typesByArch ->
+    Ok ([{ name: "roc_app.h", content: placeholderGlue }])
+
+placeholderGlue =
+    """
+    #ifndef ROC_APP_H
+    #define ROC_APP_H
+
+    #include <stdint.h>
+
+    extern void roc__mainForHost_1_exposed_generic(uint8_t *ret);
+
+    uint8_t roc_mainForHost()
+    {
+        uint8_t ret;
+
+        roc__mainForHost_1_exposed_generic(&ret);
+
+        return ret;
+    }
+
+    #endif
+    """

crates/glue/tests/fixtures/c/hello-world/app.roc

@@ -0,0 +1,3 @@
+app [main] { pf: platform "platform.roc" }
+
+main = 42

crates/glue/tests/fixtures/c/hello-world/host.c

@@ -0,0 +1,14 @@
+#include <stdio.h>
+#include <stdint.h>
+#include <assert.h>
+
+#include "test_glue/roc_app.h"
+
+int main(void)
+{
+    uint8_t mainForHost = roc_mainForHost();
+
+    printf("mainForHost = %i\n", mainForHost);
+
+    assert(mainForHost == 42);
+}

crates/glue/tests/fixtures/c/hello-world/platform.roc

@@ -0,0 +1,9 @@
+platform "test-platform"
+    requires {} { main : _ }
+    exposes []
+    packages {}
+    imports []
+    provides [mainForHost]
+
+mainForHost : U8
+mainForHost = main