15 lines
301 B
OCaml
15 lines
301 B
OCaml
|
open Swig
|
||
|
|
open Catches_strings
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
try
|
||
|
|
ignore (_StringsThrower_charstring (C_void)); assert false
|
||
|
|
with Failure s ->
|
||
|
|
assert (s = "charstring message")
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
try
|
||
|
|
ignore (_StringsThrower_stdstring (C_void)); assert false
|
||
|
|
with Failure s ->
|
||
|
|
assert (s = "stdstring message")
|