Examples/test-suite/ocaml/sizet_runme.ml


1
2
3
4
5
6
7
8
9
10

open Swig
open Sizet

let _ =
  let s = C_int64 2000L in
  assert (_test1 '(s) as int = 2000);
  assert (_test2 '(s) as int = 2000);
  assert (_test3 '(s) as int = 2000);
  assert (_test4 '(s) as int = 2000);
;;