9 lines
181 B
OCaml
9 lines
181 B
OCaml
open Swig
|
|
open Using_protected
|
|
|
|
let f = new_FooBar C_void
|
|
let _ = (invoke f) "x" (C_int 3)
|
|
|
|
let _ = if (invoke f) "blah" (C_int 4) <> (C_int 4) then
|
|
raise (Failure "blah(int)")
|