11 lines
264 B
OCaml
11 lines
264 B
OCaml
|
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)
|
||
|
|
;;
|