Added test programs.

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

diff --git a/ocaml-extlib/test1.ml b/ocaml-extlib/test1.ml
new file mode 100644 (file)
index 0000000..ae5668d
--- /dev/null
+++ b/ocaml-extlib/test1.ml
@@ -0,0 +1,10 @@
+module StringMap = Map.Make (String)
+
+let () =
+  let map = StringMap.empty in
+  let map = StringMap.add "foo" "bar" map in
+  let map = StringMap.add "bar" "baz" map in
+  let map = StringMap.add "baz" "bil" map in
+  let map = StringMap.add "bil" "biz" map in
+  print_endline (Std.dump map)
+