516036631c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
6 lines
151 B
OCaml
6 lines
151 B
OCaml
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."))
|
|
|