24 lines
633 B
OCaml
24 lines
633 B
OCaml
|
open Swig
|
||
|
|
open Li_std_vector
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let iv = new_IntVector '() in
|
||
|
|
assert (iv -> "empty" () as bool);
|
||
|
|
assert ((iv -> "size" () as int) = 0);
|
||
|
|
ignore (iv -> "push_back" (123));
|
||
|
|
assert ((iv -> "empty" () as bool) = false);
|
||
|
|
assert ((iv -> "size" () as int) = 1);
|
||
|
|
assert ((iv -> "[]" (0) as int) = 123);
|
||
|
|
ignore (iv -> "clear" ());
|
||
|
|
assert (iv -> "empty" () as bool);
|
||
|
|
assert ((iv -> "size" () as int) = 0);
|
||
|
|
;;
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let rv = new_RealVector '() in
|
||
|
|
ignore (rv -> "push_back" (100.));
|
||
|
|
ignore (rv -> "push_back" (200.));
|
||
|
|
assert ((rv -> "[]" (0) as float) = 100.);
|
||
|
|
assert ((rv -> "[]" (1) as float) = 200.);
|
||
|
|
;;
|