1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
open Swig
open Varargs_overload
let _ =
assert (_vararg_over1 '("Hello") as string = "Hello");
assert (_vararg_over1 '(2) as string = "2");
assert (_vararg_over2 '("Hello") as string = "Hello");
assert (_vararg_over2 '(2, 2.2) as string = "2 2.2");
assert (_vararg_over3 '("Hello") as string = "Hello");
assert (_vararg_over3 '(2, 2.2, "hey") as string = "2 2.2 hey");
assert (_vararg_over4 '("Hello") as string = "Hello");
assert (_vararg_over4 '(123) as string = "123");
assert (_vararg_over4 '("Hello", 123) as string = "Hello");
(* Same as above but non-vararg function declared first *)
assert (_vararg_over6 '("Hello") as string = "Hello");
assert (_vararg_over6 '(2) as string = "2");
assert (_vararg_over7 '("Hello") as string = "Hello");
assert (_vararg_over7 '(2, 2.2) as string = "2 2.2");
assert (_vararg_over8 '("Hello") as string = "Hello");
assert (_vararg_over8 '(2, 2.2, "hey") as string = "2 2.2 hey");
assert (_vararg_over9 '("Hello") as string = "Hello");
assert (_vararg_over9 '(123) as string = "123");
assert (_vararg_over9 '("Hello", 123) as string = "Hello");
;;
|
