test/030-call-method.ml

   1 (* Basic constructor and method calls.
   2  * $Id: 030-call-method.ml,v 1.1 2005-01-28 23:09:33 rich Exp $
   3  *)
   4
   5 open Perl
   6
   7 let () =
   8   ignore (eval "use IO::File");
   9   let io = call_class_method "IO::File" "new_tmpfile" [] in
  10   call_method_void io "print" [ sv_of_string "hello, world" ];
  11   call_method_void io "close" [];;
  12
  13 Gc.full_major ()