Get the Unix module working.

[fedora-mingw.git] / ocaml / test2.ml

diff --git a/ocaml/test2.ml b/ocaml/test2.ml
new file mode 100644 (file)
index 0000000..9810b16
--- /dev/null
+++ b/ocaml/test2.ml
@@ -0,0 +1,8 @@
+open Printf
+open Unix
+
+let () =
+  printf "$HOME = %S\n%!"
+    (try Unix.getenv "HOME" with Not_found -> "(none)");
+  printf "gettimeofday = %f\n%!" (Unix.gettimeofday ())
+