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) | |
;; |