Add catches_strings test to test throws char * typemap
This commit is contained in:
parent
034e2358f9
commit
4a29229bab
21 changed files with 286 additions and 0 deletions
8
Examples/test-suite/ocaml/catches_strings_runme.ml
Normal file
8
Examples/test-suite/ocaml/catches_strings_runme.ml
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
open Swig
|
||||
open Catches_strings
|
||||
|
||||
let _ =
|
||||
try
|
||||
ignore (_StringsThrower_charstring (C_void)); assert false
|
||||
with Failure s ->
|
||||
assert (s = "charstring message")
|
||||
Loading…
Add table
Add a link
Reference in a new issue