blob: 5f8c98a6be2b555ec26b2034d2cc10c48e05e534 (
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
|
open Swig
open Li_std_string
let _ =
assert (_test_value '("Fee") as string = "Fee");
try
ignore (_test_value '(None)); assert false
with Invalid_argument _ -> ()
assert (_test_const_reference '("Fee") as string = "Fee");
try
ignore (_test_const_reference '(None)); assert false
with Invalid_argument _ -> ()
let stringPtr = _test_pointer_out '() in
ignore (_test_pointer '(stringPtr));
let stringPtr = _test_const_pointer_out '() in
ignore (_test_const_pointer '(stringPtr));
let stringPtr = _test_reference_out '() in
ignore (_test_reference '(stringPtr));
try
ignore (_test_throw '()); assert false
with Failure s -> assert (s = "test_throw message")
try
ignore (_test_const_reference_throw '()); assert false
with Failure s -> assert (s = "test_const_reference_throw message")
assert (_GlobalString2 '() as string = "global string 2");
let s = C_string "initial string" in
ignore (_GlobalString2 '(s));
assert (_GlobalString2 '() = s);
assert (_ConstGlobalString '() as string = "const global string");
let myStructure = new_Structure '() in
assert (myStructure -> "[MemberString2]" () as string = "member string 2");
assert (myStructure -> "[MemberString2]" (s) = C_void);
assert (myStructure -> "[MemberString2]" () = s);
assert (myStructure -> "[ConstMemberString]" () as string = "const member string");
assert (_Structure_StaticMemberString2 '() as string = "static member string 2");
ignore (_Structure_StaticMemberString2 '(s));
assert (_Structure_StaticMemberString2 '() = s);
assert (_Structure_ConstStaticMemberString '() as string = "const static member string")
;;
|
