Examples/test-suite/ocaml/director_default_runme.ml

open Swig
open Director_default

let director_default_MyFoo ob meth args =
  match meth with
      "Msg" -> (match args with
                  | C_list [ msg ] -> C_string ("director_default_MyFoo-" ^ (msg as string))
                  | _ -> raise (Failure "director_default_MyFoo::Msg()"))
    | _ -> (invoke ob) meth args

let _ =
  let a = new_derived_object new_Foo (director_default_MyFoo) '(10) in
  assert (a -> GetMsg () as string = "director_default_MyFoo-default");
  assert (a -> GetMsg ("boo") as string = "director_default_MyFoo-boo");
  let f = new_Foo '(10) in
  assert (f -> GetMsg () as string = "Foo-default");
  assert (f -> GetMsg ("boo") as string = "Foo-boo");

  let b = new_Bar '(1) in
  assert (b -> GetMsg () as string = "Bar-default");
  assert (b -> GetMsg ("boo") as string = "Bar-boo");
  let b2 = new_Bar '() in
  assert (b2 -> GetMsg () as string = "Bar-default");
  assert (b2 -> GetMsg ("boo") as string = "Bar-boo");
;;