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/extend_constructor_destructor_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/extend_constructor_destructor_runme.ml')
| -rw-r--r-- | Examples/test-suite/ocaml/extend_constructor_destructor_runme.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/extend_constructor_destructor_runme.ml b/Examples/test-suite/ocaml/extend_constructor_destructor_runme.ml new file mode 100644 index 000000000..432d9d7dc --- /dev/null +++ b/Examples/test-suite/ocaml/extend_constructor_destructor_runme.ml @@ -0,0 +1,12 @@ +open Swig +open Extend_constructor_destructor + +let check o v = + assert ((o -> "[ivar]" () as int) = v); + ignore (o -> "~" ()); + assert ((_globalVar '() as int) = -v) + +let ctors = [new_AStruct; new_BStruct; new_CStruct; new_DStruct; new_EStruct; + new_FStruct; new_GStruct] + +let _ = List.iteri (fun i c -> let j = succ i in check (c (C_int j)) j) ctors |