path: root/Examples/test-suite/ocaml/constructor_rename_runme.ml

open Swig
open Constructor_rename

let x = new_RenamedConstructor '()
let _ = assert ((x -> ":classof" () as string) = "Foo")