Implement end-to-end testing for function generation

Author: jonas

Dockerfile

@@ -28,4 +28,5 @@ RUN set -x \
             libclang-$LLVM_VERSION-dev llvm-$LLVM_VERSION-dev \
  && rm -rf /var/lib/apt/lists/*
 
+ENV PATH=$PATH:/usr/lib/llvm-$LLVM_VERSION/bin
 WORKDIR /src

build.sbt

@@ -1,3 +1,7 @@
+import scala.scalanative.sbtplugin.ScalaNativePluginInternal.nativeWorkdir
+import scala.sys.process._
+import java.nio.file.Path
+
 inThisBuild(
   Def.settings(
     organization := "org.scalanative.bindgen",
@@ -32,4 +36,50 @@ val tests = project
 lazy val samples = project
   .in(file("tests/samples"))
   .enablePlugins(ScalaNativePlugin)
-  .settings(test := (compile in Compile).value)
+  .settings(
+    libraryDependencies += "com.lihaoyi" %%% "utest" % "0.6.3" % "test",
+    testFrameworks += new TestFramework("utest.runner.Framework"),
+    nativeLinkStubs := true,
+    Test / nativeLinkingOptions += {
+      val cwd = (nativeWorkdir in Test).value.getAbsoluteFile / "bindgen"
+      s"-L$cwd"
+    },
+    Test / compile := {
+      val log            = streams.value.log
+      val cwd            = (nativeWorkdir in Test).value.getAbsoluteFile / "bindgen"
+      val compileOptions = nativeCompileOptions.value
+      val cpaths         = (baseDirectory.value ** "*.c").get
+      val clangPath      = nativeClang.value.toPath.toAbsolutePath.toString
+
+      cwd.mkdirs()
+
+      def abs(path: File): String =
+        path.getAbsolutePath.toString
+
+      def run(command: Seq[String]): Int = {
+        log.info("Running " + command.mkString(" "))
+        Process(command, cwd) ! log
+      }
+
+      val opaths = cpaths.map { cpath =>
+        val opath = abs(cwd / s"${cpath.getName}.o")
+        val command = Seq(clangPath) ++ compileOptions ++ Seq("-c",
+                                                              abs(cpath),
+                                                              "-o",
+                                                              opath)
+
+        if (run(command) != 0) {
+          sys.error(s"Failed to compile $cpath")
+        }
+        opath
+      }
+
+      val archivePath = cwd / "libbindgentests.a"
+      val archive     = Seq("ar", "rs", abs(archivePath)) ++ opaths
+      if (run(archive) != 0) {
+        sys.error(s"Failed to create archive $archivePath")
+      }
+
+      (Test / compile).value
+    }
+  )

tests/samples/Enum.scala

@@ -1,7 +1,9 @@
+package org.scalanative.bindgen.samples
+
 import scala.scalanative._
 import scala.scalanative.native._
 
-@native.link("Enum")
+@native.link("bindgentests")
 @native.extern
 object Enum {
   type enum_days = native.CUnsignedInt

tests/samples/Function.c

@@ -0,0 +1,29 @@
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "Function.h"
+
+int no_args() { return 42; }
+
+float void_arg(void) { return 1.5; }
+
+char one_arg(int a) { return (char)a; }
+
+void *two_args(float a, int b) {
+    static char buf[128];
+    if (snprintf(buf, sizeof(buf), "%.2f %d", a, b) > sizeof(buf))
+        return "oops";
+    return buf;
+}
+
+double anonymous_args(float a, int b) { return a + b; }
+
+double variadic_args(double a, char *varArgs, ...) {
+    va_list args;
+
+    va_start(args, varArgs);
+    for (; *varArgs; varArgs++)
+        a += (*varArgs - '0') * va_arg(args, int);
+    return a;
+}

tests/samples/Function.h

@@ -1,6 +1,6 @@
 int no_args();
-int void_arg(void);
-void one_arg(int a);
+float void_arg(void);
+char one_arg(int a);
 void *two_args(float a, int b);
-void anonymous_args(float, int);
-double variadic_args(double a, void *varArgs, ...);
+double anonymous_args(float, int);
+double variadic_args(double a, char *varArgs, ...);

tests/samples/Function.scala

@@ -1,13 +1,15 @@
+package org.scalanative.bindgen.samples
+
 import scala.scalanative._
 import scala.scalanative.native._
 
-@native.link("Function")
+@native.link("bindgentests")
 @native.extern
 object Function {
   def no_args(): native.CInt = native.extern
-  def void_arg(): native.CInt = native.extern
-  def one_arg(a: native.CInt): Unit = native.extern
+  def void_arg(): native.CFloat = native.extern
+  def one_arg(a: native.CInt): native.CChar = native.extern
   def two_args(a: native.CFloat, b: native.CInt): native.Ptr[Byte] = native.extern
-  def anonymous_args(anonymous0: native.CFloat, anonymous1: native.CInt): Unit = native.extern
-  def variadic_args(a: native.CDouble, varArgs: native.Ptr[Byte], varArgs0: native.CVararg*): native.CDouble = native.extern
+  def anonymous_args(anonymous0: native.CFloat, anonymous1: native.CInt): native.CDouble = native.extern
+  def variadic_args(a: native.CDouble, varArgs: native.CString, varArgs0: native.CVararg*): native.CDouble = native.extern
 }

tests/samples/NativeTypes.scala

@@ -1,7 +1,9 @@
+package org.scalanative.bindgen.samples
+
 import scala.scalanative._
 import scala.scalanative.native._
 
-@native.link("NativeTypes")
+@native.link("bindgentests")
 @native.extern
 object NativeTypes {
   type size_t = native.CUnsignedInt

tests/samples/PrivateMembers.scala

@@ -1,7 +1,9 @@
+package org.scalanative.bindgen.samples
+
 import scala.scalanative._
 import scala.scalanative.native._
 
-@native.link("PrivateMembers")
+@native.link("bindgentests")
 @native.extern
 object PrivateMembers {
   type pid_t = native.CInt

tests/samples/ReservedWords.scala

@@ -1,7 +1,9 @@
+package org.scalanative.bindgen.samples
+
 import scala.scalanative._
 import scala.scalanative.native._
 
-@native.link("ReservedWords")
+@native.link("bindgentests")
 @native.extern
 object ReservedWords {
   type `match` = native.CInt

tests/samples/Struct.scala

@@ -1,7 +1,9 @@
+package org.scalanative.bindgen.samples
+
 import scala.scalanative._
 import scala.scalanative.native._
 
-@native.link("Struct")
+@native.link("bindgentests")
 @native.extern
 object Struct {
   type point_s = native.Ptr[struct_point]