diff options
Diffstat (limited to 'Examples/test-suite/ocaml/typedef_inherit_runme.ml')
-rw-r--r-- | Examples/test-suite/ocaml/typedef_inherit_runme.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/typedef_inherit_runme.ml b/Examples/test-suite/ocaml/typedef_inherit_runme.ml new file mode 100644 index 000000000..6352fd4ad --- /dev/null +++ b/Examples/test-suite/ocaml/typedef_inherit_runme.ml @@ -0,0 +1,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") +;; |