[OCaml] Fix the dynamic_cast test
Add out typemaps for SWIGTYPE *DYNAMIC and SWIGTYPE &DYNAMIC. Add dynamic_cast_runme.ml.
This commit is contained in:
parent
200984f051
commit
a159a252dd
2 changed files with 14 additions and 0 deletions
9
Examples/test-suite/ocaml/dynamic_cast_runme.ml
Normal file
9
Examples/test-suite/ocaml/dynamic_cast_runme.ml
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
open Swig
|
||||
open Dynamic_cast
|
||||
|
||||
let f = new_Foo '()
|
||||
let b = new_Bar '()
|
||||
|
||||
let x = f -> blah ()
|
||||
let y = b -> blah ()
|
||||
assert (_do_test '(y) as string = "Bar::test")
|
||||
Loading…
Add table
Add a link
Reference in a new issue