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