Expose Gc.compact for use in tests

tizoc · Feb 17, 2021 · d2c1713 · d2c1713
1 parent ba1bf04
commit d2c1713
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/testing/rust-caller/ocaml/callable.ml b/testing/rust-caller/ocaml/callable.ml
@@ -86,4 +86,5 @@ let () =
   Callback.register "stringify_polymorphic_variant" stringify_polymorphic_variant;
   Callback.register "raises_message_exception" raises_message_exception;
   Callback.register "raises_nonmessage_exception" raises_nonmessage_exception;
-  Callback.register "raises_nonblock_exception" raises_nonblock_exception;
+  Callback.register "raises_nonblock_exception" raises_nonblock_exception;
+  Callback.register "gc_compact" Gc.compact;
diff --git a/testing/rust-caller/src/lib.rs b/testing/rust-caller/src/lib.rs
@@ -58,6 +58,7 @@ mod ocaml {
         pub fn raises_message_exception(message: String);
         pub fn raises_nonmessage_exception(unit: ());
         pub fn raises_nonblock_exception(unit: ());
+        pub fn gc_compact(unit: ());
     }
 }
 
@@ -137,7 +138,6 @@ pub fn allocate_alot(cr: &mut OCamlRuntime) -> bool {
         let _x: OCaml<OCamlBytes> = to_ocaml!(cr, vec);
         let _y: OCaml<OCamlBytes> = to_ocaml!(cr, vec);
         let _z: OCaml<OCamlBytes> = to_ocaml!(cr, vec);
-        ()
     }
     true
 }