unikernel/duniverse/ocaml-gmp/test/dummy.ml

@@ -0,0 +1 @@
+external compute : unit -> unit = "caml_compute"

unikernel/duniverse/ocaml-gmp/test/dummy_stubs.c

@@ -0,0 +1,18 @@
+#include <caml/mlvalues.h>
+#include <stdio.h>
+#include <gmp.h>
+
+value caml_compute(value unit) {
+    mpz_t n;
+    mpz_init(n);
+    mpz_set_str(n,"100", 10);
+    mpz_mul(n,n,n);
+
+    printf("MPZ: ");
+    mpz_out_str(stdout, 10, n);
+    printf("\n");
+    
+    mpz_clear(n);
+
+    return unit;
+}

unikernel/duniverse/ocaml-gmp/test/dune

@@ -0,0 +1,23 @@
+(library
+ (name dummy)
+ (foreign_stubs
+  (language c)
+  (include_dirs
+   (lib gmp)))
+ (libraries gmp)
+ (modules dummy))
+
+(executable
+ (name test)
+ (libraries dummy)
+ (modules test))
+
+(rule
+ (with-stdout-to
+  test.output
+  (run ./test.exe)))
+
+(rule
+ (alias runtest)
+ (action
+  (diff test.expected test.output)))

unikernel/duniverse/ocaml-gmp/test/test.expected

@@ -0,0 +1 @@
+MPZ: 10000

unikernel/duniverse/ocaml-gmp/test/test.ml

@@ -0,0 +1 @@
+let () = Dummy.compute ();;