From a24c9228374cb8e88fdefcb2d07cd17f078fdc48 Mon Sep 17 00:00:00 2001
From: Joscha <brummer@migejolise.de>
Date: Fri, 9 Feb 2018 22:09:08 +0000
Subject: [PATCH] Add basic test bot

---
 test/testbot.hs | 55 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 test/testbot.hs

diff --git a/test/testbot.hs b/test/testbot.hs
new file mode 100644
index 0000000..75404b3
--- /dev/null
+++ b/test/testbot.hs
@@ -0,0 +1,55 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Control.Monad
+import           Data.Monoid
+import           System.Environment
+
+import qualified Data.Text          as T
+
+import qualified EuphApi            as E
+import qualified EuphApi.Connection as E
+
+
+runBot :: String -> IO ()
+runBot room = do
+  con <- E.startEuphConnection "euphoria.io" room
+  handleEvents room con
+
+handleEvents :: String -> E.Connection -> IO ()
+handleEvents room con = do
+  event <- E.getEvent con
+  case event of
+    E.Disconnected     -> runBot room
+    E.ConnectionFailed -> putStrLn $ "Could not connect to &" ++ room ++ "."
+    E.EuphEvent e      -> handleEuphEvent con e >> handleEvents room con
+
+handleEuphEvent :: E.Connection -> E.Event -> IO ()
+handleEuphEvent con (E.PingEvent time _) = do
+  E.pingReply con time
+  putStrLn "Pong!"
+handleEuphEvent con (E.BounceEvent _ _) = do
+  E.disconnect con
+  putStrLn "Room is private. And I don't have a password."
+handleEuphEvent con (E.HelloEvent _ _ _) = do
+  void $ E.nick con "EuphApi test bot"
+  putStrLn "Set nick"
+handleEuphEvent con (E.JoinEvent sess) = do
+  let msg = "Hello, " <> E.sessName sess <> "!"
+  void $ E.send con Nothing msg
+handleEuphEvent con (E.PartEvent sess) = do
+  let msg = "Bye, " <> E.sessName sess <> "!"
+  void $ E.send con Nothing msg
+handleEuphEvent con (E.NickEvent from to) = do
+  let msg = T.pack $ "From " ++ show from ++ " to " ++ show to ++ "..."
+  void $ E.send con Nothing msg
+handleEuphEvent con (E.SendEvent message)
+  | E.msgContent message == "haskell"  = void $ E.send con (Just $ E.msgID message) "awesome!"
+  | E.msgContent message == "euphoria" = void $ E.send con (Just $ E.msgID message) ":euphoria!:"
+  | otherwise                          = return ()
+handleEuphEvent _ _ = return ()
+
+main = do
+  args <- getArgs
+  case args of
+    [room] -> putStrLn ("Connecting to " ++ room) >> runBot room
+    _      -> putStrLn "wrong arguments"