diff options
| author | Haibo Huang <hhb@google.com> | 2019-10-08 15:48:26 -0700 |
|---|---|---|
| committer | Haibo Huang <hhb@google.com> | 2019-11-14 22:14:23 +0000 |
| commit | 80b4251e302efb18c145a4786249d695397ed42a (patch) | |
| tree | 12b9dec2513f7caa92e7835bc17ab16ae5635df6 /Examples/test-suite/ocaml/fvirtual_runme.ml | |
| parent | 189852d8cdfd5863c52ec7aa73affd926c5a3f43 (diff) | |
| parent | 1e36f51346d95f8b9848e682c2eb986e9cb9b4f4 (diff) | |
| download | swig-80b4251e302efb18c145a4786249d695397ed42a.tar.gz | |
Upgrade swig to 'rel-4.0.1'llvm-r383902b
Also run autogen.sh to generate configure files.
Exempt-From-Owner-Approval: add myself to owners
Change-Id: I391aa20428836ae74dab8c8427627ca4dbc8ecf4
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) +;; |