diff options
Diffstat (limited to 'Examples/test-suite/ocaml/fvirtual_runme.ml')
| -rw-r--r-- | Examples/test-suite/ocaml/fvirtual_runme.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/fvirtual_runme.ml b/Examples/test-suite/ocaml/fvirtual_runme.ml new file mode 100644 index 000000000..6b0782b20 --- /dev/null +++ b/Examples/test-suite/ocaml/fvirtual_runme.ml @@ -0,0 +1,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) +;; |