Examples/test-suite/ocaml/extend_typedef_class_runme.ml


1
2
3
4
5
6
7
8
9
10
11
12

open Swig
open Extend_typedef_class

let test_obj o v =
  let cint = C_int v in
  let _ = o -> "[membervar]" (cint) in
  assert ((o -> "getvar" () as int) = v)

let ctors = [new_AClass; new_BClass; new_CClass; new_DClass; new_AStruct;
             new_BStruct; new_CStruct; new_DStruct]

let _  = List.iteri (fun i c -> test_obj (c '()) i) ctors