blob: 026cbfd9144091c27646a24c012723a47875c98c (
plain)
1
2
3
4
5
6
7
8
9
10
|
open Swig
open Using_private
let _ =
let f = new_FooBar '() in
let _ = f -> "[x]" (3) in
assert (f -> blah (4) as int = 4);
assert (f -> defaulted () as int = -1);
assert (f -> defaulted (222) as int = 222)
;;
|