Sign in
fuchsia
/
third_party
/
swig
/
3f78ea64c041d0f55966b896745b9fc6c3704b71
/
.
/
Examples
/
test-suite
/
ocaml
/
string_simple_runme.ml
blob: 327fb85d268b4a7dd829433e2640766b0f75971f [
file
] [
log
] [
blame
]
open
Swig
open
String_simple
let
str
=
"olé"
let
copy
=
_copy_str
(
C_string str
)
as
string
let
_
=
if
str
<>
copy
then
raise
(
Failure
(
"Error: copy is not equal: original="
^
str
^
", copy="
^
copy
))