blob: 304f74b7acb01b6a45b7f2fb6d7d09d9ee70d451 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
open Swig
open Typedef_classforward_same_name
let _ =
let foo = new_Foo '() in
ignore (foo -> "[x]" (5));
assert (_extractFoo '(foo) as int = 5);
let boo = new_Boo '() in
ignore (boo -> "[x]" (5));
assert (_extractBoo '(boo) as int = 5)
;;
|
