open Swig
open Memberin_extend

let _ =
  let em1 = new_ExtendMe '() and em2 = new_ExtendMe '() in
  assert (em1 -> "[thing]" ("em1thing") = C_void);
  assert (em2 -> "[thing]" ("em2thing") = C_void);
  assert (em1 -> "[thing]" () as string = "em1thing");
  assert (em2 -> "[thing]" () as string = "em2thing");
;;