Examples/test-suite/ocaml/cast_operator_runme.ml - third_party/swig - Git at Google

 open Swig
 open Cast_operator

 let a = new_A '()
 let _ = assert ((a -> "tochar" () as string) = "hi")
	open Swig
	open Cast_operator

	let a = new_A '()
	let _ = assert ((a -> "tochar" () as string) = "hi")