blob: 6b0782b20a47df0dd4ce724c20bd35949e91a105 (
plain)
1
2
3
4
5
6
7
8
9
10
|
open Swig
open Fvirtual
let _ =
let sw = new_NodeSwitch '() and n = new_Node '() in
assert (n -> addChild (n) as int = 1);
assert (sw -> addChild (n) as int = 2);
assert (sw -> addChild (sw) as int = 2);
assert (sw -> addChild (n, false) as int = 3)
;;
|