21 lines
903 B
OCaml
21 lines
903 B
OCaml
|
open Swig
|
||
|
|
open Extend_template_method
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let em = new_ExtendMe '() in
|
||
|
|
assert (em -> do_stuff_double (1, 1.1) as float = 1.1);
|
||
|
|
assert (em -> do_stuff_string (1, "hello there") as string = "hello there");
|
||
|
|
assert (em -> do_overloaded_stuff (1.1) as float = 1.1);
|
||
|
|
assert (em -> do_overloaded_stuff ("hello there") as string = "hello there");
|
||
|
|
|
||
|
|
assert (_ExtendMe_static_method '(123) as int = 123);
|
||
|
|
ignore (new_ExtendMe '(123));
|
||
|
|
let em = new_TemplateExtend '() in
|
||
|
|
assert (em -> do_template_stuff_double (1, 1.1) as float = 1.1);
|
||
|
|
assert (em -> do_template_stuff_string (1, "hello there") as string = "hello there");
|
||
|
|
assert (em -> do_template_overloaded_stuff (1.1) as float = 1.1);
|
||
|
|
assert (em -> do_template_overloaded_stuff ("hello there") as string = "hello there");
|
||
|
|
assert (_TemplateExtend_static_template_method '(123) as int = 123);
|
||
|
|
ignore (new_TemplateExtend '(123))
|
||
|
|
;;
|