Add test script for connecting to euphoria

I know this is not how tests are meant to work, but hey :)

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"