PageRenderTime 24ms CodeModel.GetById 1ms RepoModel.GetById 0ms app.codeStats 0ms

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

#
OCaml | 7 lines | 5 code | 2 blank | 0 comment | 0 complexity | 494fe479ac072c934c35eb330c9bc28f MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  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. 

  7. 

  8.