/trunk/Examples/test-suite/ocaml/class_ignore_runme.ml

# · OCaml · 7 lines · 5 code · 2 blank · 0 comment · 0 complexity · 494fe479ac072c934c35eb330c9bc28f MD5 · raw file 

    

  1. open Swig
    2. 

  2. open Class_ignore
    3. 

  3. 

  4. let a = new_Bar C_void
    5. 

  5. let _ = (if _do_blah a <> C_string "Bar::blah" then
    6. 

  6.   raise (Failure "We didn't really get a bar object."))
    7.