15 lines
388 B
OCaml
15 lines
388 B
OCaml
open Swig
|
|
open Overload_numeric
|
|
|
|
let _ =
|
|
let n = new_Nums '() in
|
|
let arg = C_char 'c' in
|
|
assert (n -> over (arg) as string = "signed char");
|
|
let arg = C_short 2 in
|
|
assert (n -> over (arg) as string = "short");
|
|
assert (n -> over (2) as string = "int");
|
|
let arg = C_float 2. in
|
|
assert (n -> over (arg) as string = "float");
|
|
assert (n -> over (2.) as string = "double")
|
|
;;
|