[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:
parent
ec72026285
commit
35e417a4db
7 changed files with 115 additions and 0 deletions
17
Examples/test-suite/ocaml/default_arg_values_runme.ml
Normal file
17
Examples/test-suite/ocaml/default_arg_values_runme.ml
Normal 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)
|
||||
;;
|
||||
Loading…
Add table
Add a link
Reference in a new issue