Sign in
fuchsia
/
third_party
/
swig
/
3f78ea64c041d0f55966b896745b9fc6c3704b71
/
.
/
Examples
/
test-suite
/
ocaml
/
multivalue_runme.ml
blob: d7e19e7d814e6f45c0fe991324d88e4be3e8200c [
file
] [
log
] [
blame
]
open
Swig
open
Multivalue
let
_
=
assert
(
_divide_l
'
(
37
,
5
)
=
C_list
[
'
7
;
'
2
]);
assert
(
_divide_v
'
(
41
,
7
)
=
C_list
[
'
5
;
'
6
]);
assert
(
_divide_mv
'
(
91
,
13
)
=
C_list
[
'
7
;
'
0
]);
;;