Merge remote-tracking branch 'upstream/master' into OCaml-INPUT-OUTPUT-INOUT-primitives
This commit is contained in:
commit
2f48bec666
363 changed files with 5825 additions and 2936 deletions
|
|
@ -11,5 +11,19 @@ let _ =
|
|||
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")
|
||||
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");
|
||||
;;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue