4ca6fdc551
In classHandler(), assign sym:name to the classname global so that it can be used in membervariableHandler(). Add a small runme test for li_std_vector. Use swigp4 when compiling the runme tests.
23 lines
633 B
OCaml
23 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.);
|
|
;;
|