Adding some OCaml test programs.

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

diff --git a/ocaml/test1.ml b/ocaml/test1.ml
new file mode 100644 (file)
index 0000000..1771d02
--- /dev/null
+++ b/ocaml/test1.ml
@@ -0,0 +1,6 @@
+open Printf
+
+let () =
+  printf "reported os_type = %S\n" Sys.os_type;
+  printf "filename concat a b = %S\n" (Filename.concat "a" "b");
+  printf "-1 = %d\n" (-1)