11 lines
314 B
OCaml
11 lines
314 B
OCaml
|
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");
|
||
|
|
;;
|