1 (* Basic constructor and method calls.
2 * $Id: 030-call-method.ml,v 1.1 2005-01-28 23:09:33 rich Exp $
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" [];;