blob: 94f2291f1e3198a1e469a37b8a4a22f471789121 (
plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
open Swig
open Template_default_arg
let _ =
let helloInt = new_Hello_int '() and enumArg = _hi '() in
assert (helloInt -> foo (enumArg) = C_void);
assert (helloInt -> foo () = C_void);
let x = new_X_int '() in
assert (x -> meth (20.0, 200) as int = 200);
assert (x -> meth (20) as int = 20);
assert (x -> meth () as int = 0);
let x = new_Y_unsigned '() in
let args = C_list [ C_double 20.0 ; C_uint 200l ] in
assert (x -> meth (args) as int = 200);
let args = C_uint 20l in
assert (x -> meth (args) as int = 20);
assert (x -> meth () as int = 0);
let x = new_X_longlong '() in
assert (x -> meth (20.0) as int = 0);
let x = new_X_longlong '(20.0) in
assert (x -> meth (20.0) as int = 0);
let args = C_list [ C_double 20.0 ; C_int64 200L ] in
let x = new_X_longlong '(args) in
assert (x -> meth (20.0) as int = 0);
let x = new_X_int '() in
assert (x -> meth (20.0) as int = 0);
let x = new_X_int '(20.0) in
assert (x -> meth (20.0) as int = 0);
let x = new_X_int '(20.0, 200) in
assert (x -> meth (20.0) as int = 0);
let arg = new_Foo_int '() in
assert (_ott '(arg) as int = 30);
assert (_ott '() as int = 10);
assert (_ott '(1) as int = 10);
assert (_ott '(1, 1) as int = 10);
assert (_ott '("hi") as int = 20);
assert (_ott '("hi", 1) as int = 20);
assert (_ott '("hi", 1, 1) as int = 20);
let arg = new_Hello_int '() in
assert (_ottstring '(arg, "hi") as int = 40);
assert (_ottstring '(arg) as int = 40);
assert (_ottint '(arg, 1) as int = 50);
assert (_ottint '(arg) as int = 50);
assert (_ott '(arg, 1.0) as int = 60);
assert (_ott '(arg) as int = 60);
;;
|