blob: 3d190135693afb78fdd3e189462c89ed1bfca628 (
plain)
1
2
3
4
5
6
7
8
9
10
|
open Swig
open Inherit_missing
let _ =
let a = _new_Foo '() and b = new_Bar '() and c = new_Spam '() in
assert (_do_blah '(a) as string = "Foo::blah");
assert (_do_blah '(b) as string = "Bar::blah");
assert (_do_blah '(c) as string = "Spam::blah");
assert (_delete_Foo '(a) = C_void)
;;
|
