blob: 2c49c5e6fdb396a8b4226c4f71b6229af7a1ae50 (
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
|
open Swig
open Using_inherit
let _ =
let b = new_Bar '() in
assert (b -> test (3) as int = 3);
assert (b -> test (3.5) as float = 3.5);
let b = new_Bar2 '() in
assert (b -> test (3) as int = 6);
assert (b -> test (3.5) as float = 7.0);
let b = new_Bar3 '() in
assert (b -> test (3) as int = 6);
assert (b -> test (3.5) as float = 7.0);
let b = new_Bar4 '() in
assert (b -> test (3) as int = 6);
assert (b -> test (3.5) as float = 7.0);
let f = new_Fred1 '() in
assert (f -> test (3) as int = 3);
assert (f -> test (3.5) as float = 7.0);
let f = new_Fred2 '() in
assert (f -> test (3) as int = 3);
assert (f -> test (3.5) as float = 7.0)
;;
|