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