diff --git a/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml b/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml
index d4c418fa0..88be24fcb 100644
--- a/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml
+++ b/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml
@@ -2,4 +2,6 @@ open Swig
 open Rename_rstrip_encoder
 
 let s = new_SomeThing '()
-let a = new_AnotherThing '()
+let a = new_AnotherThing '() in
+  assert (a -> DoClsX () = C_void);
+;;