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

 open Swig
 open Exception_classname

 let a = new_Exception '()
 assert (a -> testfunc () as int = 42)
	open Swig
	open Exception_classname

	let a = new_Exception '()
	assert (a -> testfunc () as int = 42)