10 lines
198 B
OCaml
10 lines
198 B
OCaml
|
open Swig
|
||
|
|
open Conversion
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let bar = new_Bar '() in
|
||
|
|
assert (bar -> ":classof" () as string = "Bar");
|
||
|
|
let foo = bar -> toFoo () in
|
||
|
|
assert (foo -> ":classof" () as string = "Foo");
|
||
|
|
;;
|