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"