| (* purpose: to receive the hello A method from Imports_a exposed through | |
| * a B object derived from A *) | |
| open Swig | |
| open Imports_a | |
| open Imports_b | |
| let x = new_B C_void | |
| (* Tests conversion of x to a generic value *) | |
| let a = swig_val `unknown x | |
| let _ = (invoke x) "hello" C_void |