Examples/test-suite/ocaml/dynamic_cast_runme.ml


1
2
3
4
5
6
7
8
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")