blob: 6352fd4ad1b8c39750b065a35372cb308bc35e91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
open Swig
open Typedef_inherit
let _ =
let a = new_Foo '() and b = new_Bar '() in
assert (_do_blah (a) as string = "Foo::blah");
assert (_do_blah (b) as string = "Bar::blah");
let c = new_Spam '() and d = new_Grok '() in
assert (_do_blah2 (c) as string = "Spam::blah");
assert (_do_blah2 (d) as string = "Grok::blah")
;;
|