[Krobot-commits] [SCM] krobot branch, master, updated. 27883db5fcfe178511ac38c6f1fe9caaefe39b54

[Jérémie D. <Ba...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "krobot".

The branch, master has been updated
       via  27883db5fcfe178511ac38c6f1fe9caaefe39b54 (commit)
      from  1bf87865c23ba2d57bca7c09327bd2b60723ed0a (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 27883db5fcfe178511ac38c6f1fe9caaefe39b54
Author: Jérémie Dimino <je...@di...>
Date:   Sun May 16 22:42:49 2010 +0200

    Gay!

-----------------------------------------------------------------------

Changes:
diff --git a/info/control/tests/grip_gay.ml b/info/control/tests/grip_gay.ml
new file mode 100644
index 0000000..32614f1
--- /dev/null
+++ b/info/control/tests/grip_gay.ml
@@ -0,0 +1,23 @@
+(*
+ * grip_gay.ml
+ * -----------
+ * Copyright : (c) 2010, Jeremie Dimino <je...@di...>
+ * Licence   : BSD3
+ *
+ * This file is a part of [kro]bot.
+ *)
+
+open Lwt
+
+lwt () =
+  lwt krobot = Krobot.create () in
+  let rec loop () =
+    lwt () = Lwt_io.printl "going up" in
+    lwt _ = Krobot.Grip.up krobot in
+    lwt () = Lwt_unix.sleep 3.0 in
+    lwt () = Lwt_io.printl "going down" in
+    lwt _ = Krobot.Grip.down krobot in
+    lwt () = Lwt_unix.sleep 4.0 in
+    loop ()
+  in
+  loop ()


hooks/post-receive
-- 
krobot