jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[OCaml] Add a typecheck typemap for SWIGTYPE

Browse source 
This fixes many of the remaining warnings in the OCaml test suite.

Add multiple runtime tests.
This commit is contained in:
Zackery Spytz 2019-02-16 01:07:31 -07:00
commit b7a400f991
8 changed files with 211 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Examples/test-suite/ocaml/template_default_arg_overloaded_extend_runme.ml Normal file
View file

@ -0,0 +1,17 @@
open Swig
open Template_default_arg_overloaded_extend
let _ =
let rs = new_ResultSet '() and sp = new_SearchPoint '() in
assert (rs -> go_get_method (0, sp) as int = -1);
assert (rs -> go_get_method (0, sp, 100) as int = 100);
assert (rs -> go_get_template (0, sp) as int = -2);
assert (rs -> go_get_template (0, sp, 100) as int = 100);
assert (rs -> over () as string = "over(int)");
assert (rs -> over (10) as string = "over(int)");
assert (rs -> over (sp) as string = "over(giai2::SearchPoint, int)");
assert (rs -> over (sp, 10) as string = "over(giai2::SearchPoint, int)");
assert (rs -> over (true, sp) as string = "over(bool, gaia2::SearchPoint, int)");
assert (rs -> over (true, sp, 10) as string = "over(bool, gaia2::SearchPoint, int)");
;;