[OCaml] Runtime tests for default_arg_values, inherit_missing and some others
Add runtime tests for default_arg_values, inherit_missing, memberin_extend, rename_predicates, template_inherit, template_tbase_template, and typedef_classforward_same_name.
This commit is contained in:
parent
ec72026285
commit
35e417a4db
7 changed files with 115 additions and 0 deletions
22
Examples/test-suite/ocaml/template_inherit_runme.ml
Normal file
22
Examples/test-suite/ocaml/template_inherit_runme.ml
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
open Swig
|
||||
open Template_inherit
|
||||
|
||||
let _ =
|
||||
let a = new_FooInt '() and b = new_FooDouble '() and c = new_BarInt '()
|
||||
and d = new_BarDouble '() and e = new_FooUInt '() and f = new_BarUInt '() in
|
||||
assert (a -> blah () as string = "Foo");
|
||||
assert (b -> blah () as string = "Foo");
|
||||
assert (e -> blah () as string = "Foo");
|
||||
assert (c -> blah () as string = "Bar");
|
||||
assert (d -> blah () as string = "Bar");
|
||||
assert (f -> blah () as string = "Bar");
|
||||
assert (c -> foomethod () as string = "foomethod");
|
||||
assert (d -> foomethod () as string = "foomethod");
|
||||
assert (f -> foomethod () as string = "foomethod");
|
||||
assert (_invoke_blah_int '(a) as string = "Foo");
|
||||
assert (_invoke_blah_int '(c) as string = "Bar");
|
||||
assert (_invoke_blah_double '(b) as string = "Foo");
|
||||
assert (_invoke_blah_double '(d) as string = "Bar");
|
||||
assert (_invoke_blah_uint '(e) as string = "Foo");
|
||||
assert (_invoke_blah_uint '(f) as string = "Bar")
|
||||
;;
|
||||
Loading…
Add table
Add a link
Reference in a new issue