8 lines
161 B
OCaml
8 lines
161 B
OCaml
|
open Swig
|
||
|
|
open Class_ignore
|
||
|
|
|
||
|
|
let a = new_Bar C_void
|
||
|
|
let _ = (if _do_blah a <> C_string "Bar::blah" then
|
||
|
|
raise (Failure "We didn't really get a bar object."))
|
||
|
|
|