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");
;;