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

 open Swig
 open Abstract_access

 let d = new_D '()
 let _ = assert ((d -> "do_x" () as int) = 1)
	open Swig
	open Abstract_access

	let d = new_D '()
	let _ = assert ((d -> "do_x" () as int) = 1)