[OCaml] Runtime tests for default_arg_values, inherit_missing and some others

Add runtime tests for default_arg_values, inherit_missing,
memberin_extend, rename_predicates, template_inherit,
template_tbase_template, and typedef_classforward_same_name.
This commit is contained in:
Zackery Spytz 2019-02-01 12:59:29 -07:00
commit 35e417a4db
7 changed files with 115 additions and 0 deletions

View file

@ -0,0 +1,17 @@
open Swig
open Default_arg_values
let _ =
let d = new_Display '() in
assert (d -> draw1 () as float = 0.);
let arg = C_float 12. in
assert (d -> draw1 (arg) as float = 12.);
let arg = C_float 123. in
let p = _createPtr '(arg) in
assert (d -> draw2 () as float = 0.);
assert (d -> draw2 (p) as float = 123.);
assert (d -> bool0 () as bool = false);
assert (d -> bool1 () as bool = true);
assert (d -> mybool0 () as bool = false);
assert (d -> mybool1 () as bool = true)
;;