From 9d25ad5fba5b054a3c362187f1853158ce85ca9c Mon Sep 17 00:00:00 2001
From: Joscha <brummer@migejolise.de>
Date: Thu, 8 Feb 2018 20:47:08 +0000
Subject: [PATCH] Add test script for connecting to euphoria

I know this is not how tests are meant to work, but hey :)
---
 test/euphtest.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test/euphtest.hs

diff --git a/test/euphtest.hs b/test/euphtest.hs
new file mode 100644
index 0000000..0774214
--- /dev/null
+++ b/test/euphtest.hs
@@ -0,0 +1,11 @@
+import qualified EuphApi.Connection as E
+
+main = do
+  con <- E.startEuphConnection "euphoria.io" "test"
+  printEvents con
+  where
+    printEvents con = do
+      event <- E.getEvent con
+      case event of
+        Just e  -> print e >> putStrLn "" >> printEvents con
+        Nothing -> putStrLn "[] end of events"